复制和粘贴多列答案

【问题标题】：copying and pasting multiple columns复制和粘贴多列
【发布时间】：2016-09-05 13:58:31
【问题描述】：

我有以下问题。我想从工作表中复制包含值的整个列并将其粘贴到另一个工作表。我有以下代码可以做到这一点；

with copySheet.Range("A2:A400")
pasteSheet.Cells(Rows.Count, "B").End(xlUp).Offset(1, 0).resize(.rows.count, .columns.count) = .value
end with

在这里我将 A 列的值复制到第 400 行，我希望它是可变的，所以我想复制到该列中的最终值并将其粘贴到 B 列。

另外，如果我想复制 B 列并将其粘贴到 C 列，使用我上面编写的相同代码与 B 和 C 值交换如下；

with copySheet.Range("B2:B400")
pasteSheet.Cells(Rows.Count, "A").End(xlUp).Offset(1, 0).resize(.rows.count, .columns.count) = .value
end with

这段代码在使用了上面的第一个之后，没有将列粘贴到A列。有谁知道如何解决这个问题？

【问题讨论】：

标签： vba excel

【解决方案1】：

也许你可以试试这个？这有点蛮力....对于第二个问题，您可以更改 B 和 C

Columns("A").Select
Selection.copy
Range("B1").Select
ActiveSheet.Paste
Range("A1").Select
Application.CutCopyMode = False

【讨论】：

【解决方案2】：

创建一个变量来捕获所需复制列中的最后一行数据，然后在您的With 语句中使用它。

Sub test()

Dim copySheet As Worksheet
Dim pasteSheet As Worksheet
Dim lRow As Long

Set copySheet = Sheets("copySheet")
Set pasteSheet = Sheets("pasteSheet")

'Determine last row of Column A in copySheet
lRow = copySheet.Cells(copySheet.Rows.Count, 1).End(xlUp).Row

With copySheet.Range("A2:A" & lRow)
pasteSheet.Cells(Rows.Count, "B").End(xlUp).Offset(1, 0).Resize(.Rows.Count, .Columns.Count) = .Value
End With

'Determine last row of Column B in copySheet
lRow = copySheet.Cells(copySheet.Rows.Count, 2).End(xlUp).Row

With copySheet.Range("B2:B" & lRow)
pasteSheet.Cells(Rows.Count, "C").End(xlUp).Offset(1, 0).Resize(.Rows.Count, .Columns.Count) = .Value
End With

End Sub

然后您可以更进一步，分配一个Long 变量来说明您需要复制多少列，并添加一个For 循环来遍历每一列。

出于好奇，您为什么不复制整个工作表，然后在 pasteSheet 的 A 列前面插入一个新列？

【讨论】：