excel - Excel VBA - 我需要将一系列数据粘贴到行数据的末尾。

Question

即：我在 E2:W2 中有数据，我想将其粘贴到 E:W，具体取决于 A 列中有多少行。每次运行宏时，行数都会不同。它可以是 3 或 2000 行

此外，可能是 1，因此不需要复制。

Answer 1

像这样的东西会一直复制 E2:W2 直到 A 列中没有填充的单元格

Sub CopyEW

if cells(rows.count,1).end(xlup).row>2 then _
    range("E2:W2").copy range("E2:W2").resize(cells(rows.count,1).end(xlup).row)

end if

end sub