如何动态扩展需要复制到另一张纸的两列中的行数?
首先,我确定需要包含并存储在totrows
中的行数:
Dim totrows As Integer
With ThisWorkbook.Worksheets("Sheet1")
totrows = .Range("A" & .Rows.Count).End(xlUp).Row
End With
接下来,我尝试扩展感兴趣的两列(“ B”和“ G”),以便范围包括该
totrows
行。对于一个静态示例,如果totrows
= 100,那么我将有:With ThisWorkbook.Worksheets("Sheet1")
.Range("B2:B102,G2:G102").copy
End With
然后,我将它们粘贴到第二张纸上:
ThisWorkbook.Worksheets("Sheet2").Range("A2").Paste
最佳答案
.Range("B2:B102,G2:G102").copy
可以写成
.Range("B2:B" & totrows & ",G2:G" & totrows).Copy
关于vba - VBA中的动态不连续Excel范围,我们在Stack Overflow上找到一个类似的问题:https://stackoverflow.com/questions/38911869/