Question

我正在尝试将变量用于多个范围，但我还没想办法做到这一点。正如您在我的代码中看到的，我想基于for复制多行，但无法弄清楚如何包含变量“v”。换句话说，我怎么做范围（“F”和“V＆amp;”：K“＆amp; v等......）。选择

For v = 7 To lastr
        Sheets(1).Select
        Range("F7:K7,M7:Q7,AE7:AI7,AW7:BA7,BO7:BS7,CG7:CK7,CY7:DJ7").Select
        Selection.Copy

        For w = 2 To destrow

            Sheets("Data").Select
            Range("H" & w).Select
            Selection.PasteSpecial Paste:=xlPasteValues, Transpose:=True
            w = w + 42
        Next w
    Next v

感谢任何帮助

Answer 1

Range("F1:K1,M1:Q1,AE1:AI1,AW1:BA1,BO1:BS1,CG1:CK1,CY1:DJ1").offset(v-1,0).Copy

请注意，无需先选择 - 您可以直接复制

使用变量在VBA Excel中选择多个范围

1 个答案: