vba - EXCEL VBA复制单元格+循环+定界

Question

我有 appx 3000 行，我希望有一个准备就绪的单元格作为最终结果。

1）复制和

2)循环

循环由 6 个单元组成。D2 和 D3，F2 到 D4，F3 到 D5 和 G2 到 D6，G3 到 D7。

我对从第一个循环开始的单元格的相对定位有问题。

3)划界

如何用固定宽度定界？我发现了许多所谓的说明，但没有示例案例。

感谢您的建议。

Answer 1

您可以使用

Sub LoopRange()
'officevb.com
Dim rgArray As Variant
Dim rg As Range
Dim i As integer

'if your range not mutable use
rgArray = Array("D2:D3", "D4:F2", "D5:F3", "D6:G2", "D7:G3")

For i = LBound(rgArray) To UBound(rgArray)
    For Each rg In Sheets(1).Range(rgArray(i))
        Debug.Print rg.Address
    Next rg
Next i

End Sub