一列合并范围

Question

我有以下脚本从工作表1复制范围“ F30：F37”，“ G30：G37”。我试图从ROW G101开始将这两个范围都选择到Sheet2中。但是，只有工作表1“ G30：G37”数据复制到工作表2，ROW G101。可能是什么问题，您能否简化我的数据提取？下面列出了宏：

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没有标题：

这是我的结果：

My result would look like the second image, sheet 2

Answer 1

首先，Results是一个变量，应放在您的Dim语句中，而不是"Sheet2"中。其次，您要粘贴第一个粘贴。如果要第一行，请粘贴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