vba - VBA中的动态不连续Excel范围

如何动态扩展需要复制到另一张纸的两列中的行数？

首先，我确定需要包含并存储在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/