将单元格区域粘贴到第一个空行和空列

我试图实现的是从表“Arkusz1”中复制3个第一个单元格，然后将其粘贴到“Arkusz2”表单中的第一个空列和第一个空行。 之后，这个过程重申。 我有代码将它粘贴到列A中的第一个空行，但它不能正常工作，如上所述。 我会提供任何帮助。

Skok = Sheets("Arkusz3").Range("B1").Value ActiveCellRow = ActiveCell.Row Dim NextRow As Range Set NextRow = Range(A + 1 & Sheets("Arkusz2").UsedRange.Rows.Count + 0) Worksheets("Arkusz1").Activate Sheets("Arkusz1").Range("A1").Select ActiveCell.Offset(Skok, 0).Activate Range("A1", ActiveCell.Offset(-1, 0)).Select Selection.Copy Worksheets("Arkusz2").Activate NextRow.PasteSpecial Paste:=xlValues, Transpose:=False Application.CutCopyMode = False Set NextRow = Nothing 

Answer 1

在这个例子中，我从表1中取出A1，A2，A3，并将它复制到表2.然后它将下降到每个迭代的下一个集合（A4，A5，A6等等）。 但是，我不完全确定你的期望，所以这应该是一个好的开始。

 Dim s1a1 As String, s1a2 As String, s1a3 As String Dim s2a1 As Long, s2a2 As Long, s2a3 As Long Dim i As Integer s2a1 = 1 s2a2 = 2 s2a3 = 3 For i = 1 To 6 s1a1 = Worksheets("Arkusz1").Cells(1, "A") s1a2 = Worksheets("Arkusz1").Cells(2, "A") s1a3 = Worksheets("Arkusz1").Cells(3, "A") Worksheets("Arkusz2").Range("A" & s2a1) = s1a1 Worksheets("Arkusz2").Range("A" & s2a2) = s1a2 Worksheets("Arkusz2").Range("A" & s2a3) = s1a3 s2a1 = s2a1 + 3 s2a2 = s2a2 + 3 s2a3 = s2a3 + 3 Next i