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

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

10-09 03:32