从所有行复制一个工作表，然后粘贴到另一行的另一行中（Excel vba）

Question

我必须将行从工作表A复制到工作表B。但是，我必须粘贴以下替代行：

1 st row(Sheet A)-- 1 st row (Sheet B)
2nd row (Sheet A) --> 3rd row (Sheet B)
3rd row (Sheet A)--> 5th row(Sheet B)

这可能吗？

谢谢你的帮助。

Answer 1

您可以尝试这样的事情...

Sub CopyRows()
Dim sws As Worksheet, dws As Worksheet
Dim i As Long, lr As Long
Application.ScreenUpdating = False
Set sws = Sheets("Sheet1")
Set dws = Sheets("Sheet2")
lr = sws.UsedRange.Rows.Count
dws.Cells.Clear
sws.UsedRange.Copy dws.Range("A1")
For i = lr To 1 Step -1
    dws.Rows(i).Insert
Next i
Application.ScreenUpdating = True
End Sub

编辑答案：

您可以尝试这种方法，它将更快地将数据从Sheet1复制到Sheet2。 唯一的缺点是它将仅复制值，而不复制Sheet1上的任何公式。

Sub CopyRows()
Dim sws As Worksheet, dws As Worksheet
Dim i As Long, ii As Long, j As Long
Dim x, y()
Application.ScreenUpdating = False
Set sws = Sheets("Sheet1")
Set dws = Sheets("Sheet2")
dws.Cells.Clear
x = sws.Range("A1").CurrentRegion.Value
ReDim y(1 To UBound(x, 1) * 2, 1 To UBound(x, 2))
For i = 1 To UBound(x, 1)
    j = j + 2
    For ii = 1 To UBound(x, 2)
        y(j, ii) = x(i, ii)
    Next ii
Next i
dws.Range("A1").Resize(UBound(y, 1), UBound(y, 2)).Value = y
End Sub