从VBA中的单元格复制一个范围

我有一个公式，通过从上面复制下来自动填充单元格，以下代码完美适用于我需要的单元格引用。

Dim lstRw As Long Dim Rng As Range lstRw = Cells(Rows.Count, "A").End(xlUp).Row Set Rng = Range("A" & lstRw + 1) Range("A" & lstRw & ":C" & lstRw & ":I" & lstRw & ":N" & lstRw).Copy Range("A" & lstRw + 1) With Rng 

不过..我也想要代码复制从AW：BK的范围..

我已经尝试了以下内容：

 Dim lstRw As Long Dim Rng As Range lstRw = Cells(Rows.Count, "A").End(xlUp).Row Set Rng = Range("A" & lstRw + 1) Range("A" & lstRw & ":C" & lstRw & ":I" & lstRw & ":N" & lstRw & "AW:BK" & lstRw).Copy Range("A" & lstRw + 1) With Rng 

但我不断收到编译错误！

问候

Answer 1

将"AW:BK"更改为"AW" & lstRw & ":BK" & lstRw

假设你的最后一行是第10行，要引用第10行的多列，你将不得不写AW10:BK10你的代码只需要复制这个AW10:BK10 。

编辑我只看最初的AW：BK部分。 如果您想要select同一行的列A，C，I，N，AW：BK，则需要用逗号分隔它们，而不是冒号

 range("A" & LstRw & ",C" & LstRw & ",I" & LstRw & ",N" & LstRw & ",AW" & LstRw & ":BK" & LstRw)