合并范围在一列中

Question

我有以下脚本从Sheet 1复制范围“F30：F37”，“G30：G37”。我试图从ROW G101开始选择两个范围到Sheet2。 但是，只有Sheet 1“G30：G37”数据复制到Sheet 2，ROW G101中。 可能是什么问题，你能简化我的数据拉动吗？ 下面列出了Macro：

Dim LastRow As Long
Dim SHEET2 As Worksheet


Set Results = Sheets("SHEET2")
LastRow = Results.Cells(Results.Rows.Count, "Z").End(xlUp).Row


Range("F30:F37").Copy
Results.Range("G" & LastRow + 101).PasteSpecial xlPasteValues
Range("G30:G37").Copy
Results.Range("G" & LastRow + 101).PasteSpecial xlPasteValues


Application.DataEntryMode = False
End Sub

这是显示行的列的方式，请注意，行G没有标题：

这将是我的结果：

我的结果看起来像第二张图片，第2张

Answer 1

首先，结果是一个应该在Dim语句中的变量，而不是"Sheet2" 。 其次，你粘贴第一个粘贴。 如果你想要第一行101，请在第101行粘贴。然后找到最后一行并粘贴下面的信息。 最后，您希望Application.CutCopyMode将您带出复制/粘贴。

Sub CopyData()

     Dim LastRow As Long
     Dim Results As Worksheet

     Set Results = Sheets("SHEET2")



     Range("F30:F37").Copy
     Results.Range("G101").PasteSpecial xlPasteValues
     LastRow = Results.Cells(Results.Rows.Count, "G").End(xlUp).Row
     Range("G30:G37").Copy
     Results.Range("G" & LastRow).PasteSpecial xlPasteValues


     Application.CutCopyMode = False

End Sub