通過VBA在Excel中復制數據

Question

正如您所看到的，我將4列數據從一個工作簿復制到另一個工作簿。 我被困在一個目的地有8列，我的區域是1,2,5,7的情況下。 你能告訴我代碼中的一些變化嗎？ 下面的內容僅適用於前4列。 謝謝。

Sub Copymc()

Dim x As Workbook
Dim y As Workbook
Dim rng As Range

Set x = Workbooks.Open("H:\testing\Q4 2014\US RMBS Q4.xlsx")
Set y = Workbooks.Open("H:\testing\demo\test1.xlsx")

Dim LastRow As Long
Dim NextRow As Long

x.Worksheets("RL Holdings").Activate
Range("A65536").Select
ActiveCell.End(xlUp).Select
LastRow = ActiveCell.Row
Range("A2:D" & LastRow).Copy   

y.Worksheets("Sheet1").Range("a65536").End(xlUp).Offset(1, 0)
Application.CutCopyMode = False

End sub

Answer 1

行范圍（“A2：D”和LastRow）.Copy將D列硬編碼到其中。 這意味着它將始終將A2復制到D65536。 如果你想要特定的列（A，B，E，G），那么我建議你只需重復每列的代碼。

例如

Range("A65536").Select
ActiveCell.End(xlUp).Select
Selection.Copy
y.Worksheets("Sheet1").Range("a65536").End(xlUp).Offset(1, 0).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=False

然后復制代碼四次，並將A替換為要復制或粘貼到的任何列。 如果這不是您想要的，請詳細說明您的需求。