Question

我必须将工作表A中的行复制到工作表B.但是，我必须粘贴备用行，如：

<div contenteditable=\"true\"> testing < /div>

这可能吗？

感谢您的帮助。

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

从所有行复制一个工作表并粘贴到备用行中的另一行（Excel vba）

1 个答案: