在vba脚本中包含动态范围的单元格边框
在vba脚本中包含动态范围的单元格边框
提问于 2019-10-02 08:28:31
我的代码应该将Sheet1和Sheet2中的动态数据集分别复制到Sheet3和4。复制和格式化完成后，我需要将边框应用到动态范围。
下面是我的脚本的样子
Sub transfer()
Dim Lastrow As Integer
Dim Lastrow1 As Integer
Dim row1 As Long
Dim row2 As Long
Dim range1 As Range
Dim range2 As Range
Lastrow = Worksheets("Sheet1").Cells(Rows.Count, 1).End(xlUp).row
Lastrow1 = Worksheets("Sheet3").Cells(Rows.Count, 1).End(xlUp).row
Debug.Print Lastrow
Debug.Print Lastrow1
Worksheets("Sheet1").Range("B2:G" & Lastrow).copy Worksheets("Sheet2").Range("B2")
Worksheets("Sheet3").Range("B2:H" & Lastrow1).copy Worksheets("Sheet4").Range("B2")
With Worksheets("Sheet2")
row1 = Worksheets("Sheet2").Cells(Rows.Count, 1).End(xlUp).row
Debug.Print row1
Set range1 = Worksheets("Sheet2").Range("B1:G" & row1)
With range1.Borders
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = 0
.TintAndShade = 0
End With
End With
With Worksheets("Sheet4")
row2 = Worksheets("Sheet4").Cells(Rows.Count, 1).End(xlUp).row
Debug.Print row2
Set range2 = Worksheets("Sheet4").Range("B1:H" & row2)
With range2.Borders
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = 0
.TintAndShade = 0
End With
End With
End Sub但是边框并不是只有当我在特定的工作表中时才会出现，即使我指定了sheetname。此外，绘制的边框不一致，并且不会应用于sheet4的整个范围
都会很感谢你的帮助。谢谢。
回答 1
Stack Overflow用户
回答已采纳
发布于 2019-10-02 08:52:49
您可能正在尝试这样做(工作表的所有实例都需要限定)
With Worksheets("Sheet4")
row2 = .Cells(.Rows.Count, 1).End(xlUp).row
Set range2 = .Range("B1:H" & row2)
With range2.Borders
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = 0
.TintAndShade = 0
End With
End With页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持
原文链接：
https://stackoverflow.com/questions/58193823
复制相关文章
相似问题
腾讯云开发者
