|
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用 · 内置多项VBA编程加强工具 ★ 免费下载 ★ ★ 使用手册★
Private Sub CommandButton1_Click()
Set rng = Sheet2.Range(Sheet2.[b3], Sheet2.Cells(Rows.Count, "j").End(3)) '数据源工作表及区域
Sheet1.[b3:j65536] = "" '提取至工作表名称及所在区域
Sheet1.[b3].Resize(rng.Rows.Count, 9).Value = rng.Value '提取至工作表名称及所在区域开始行,9为取数列数
arr = Sheet1.UsedRange
r = UBound(arr) '确定行数
With Sheet1.Range("b3", Sheet1.Cells(r, 10))
Cells.Borders.LineStyle = 0 '取消边框
.Borders(xlEdgeLeft).LineStyle = 7 '粗边框
.Borders(xlEdgeTop).LineStyle = 7 '粗边框
.Borders(xlEdgeBottom).LineStyle = 7 '粗边框
.Borders(xlEdgeRight).LineStyle = 7 '粗边框
.EntireRow.AutoFit '自动行高:
.EntireColumn.AutoFit '自动列宽
.HorizontalAlignment = xlCenter '水平居中
.VerticalAlignment = xlCenter '垂直居中
End With
End Sub |
评分
-
1
查看全部评分
-
|