Excel VBA在For循环中复制行

Question

感谢您的帮助。

我正在尝试将一些行复制到新工作表中，稍后将添加一些条件，但我想把基础知识搞好。

我想将 wsCurrent 工作表上的第 4 行复制到 wsReview 工作表上的第 1 行，然后将第 5-200 行也复制到该工作表上。最终，我将根据条件跳过 for 循环，因此只会复制某些行。

复制第 4 行的第一部分工作正常，但是 for 循环会抛出错误，并且没有按照我的预期执行，例如，它将“j”作为列引用，而不是值，如果我尝试使用更复杂的列引用，然后它不会编译。

Sub exportForReview()
Dim wbCurrent As Workbook
Set wbCurrent = ThisWorkbook
Dim wsReview As Worksheet
Set wsReview = wbCurrent.Worksheets("ExportForReview")
Dim wsCurrent As Worksheet
Set wsCurrent = wbCurrent.Worksheets("Master")
Dim j As Integer
j = 2

wsCurrent.Range("4:4").Copy
wsReview.Range("1:1").PasteSpecial Paste:=xlPasteFormats
wsReview.Range("1:1").PasteSpecial Paste:=xlPasteValues

For i = 5 To 200
    wsCurrent.Cells(i).EntireRow.Copy
    wsReview.Cells(j).EntireRow.PasteSpecial Paste:=xlPasteFormats
    wsReview.Cells(j).EntireRow.PasteSpecial Paste:=xlPasteValues
    j = j + 1

Next i    
End Sub

我也试过

    For i = 5 To 200
    wsCurrent.Range("i:i").Copy
    wsReview.Range("j:j").EntireRow.PasteSpecial Paste:=xlPasteFormats
    wsReview.Range("j:j").PasteSpecial Paste:=xlPasteValues
    j = j + 1

Next i

尝试在代码中使用变量来选择和复制行似乎有问题，有人可以建议吗？

Answer 1

你很亲密:)

改变这部分：

For i = 5 To 200
    wsCurrent.Cells(i).EntireRow.Copy
    wsReview.Cells(j).EntireRow.PasteSpecial Paste:=xlPasteFormats
    wsReview.Cells(j).EntireRow.PasteSpecial Paste:=xlPasteValues
    j = j + 1
Next i    

到这里：

For i = 5 To 200
    wsCurrent.Rows(i).Copy
    wsReview.Rows(j).PasteSpecial Paste:=xlPasteFormats
    wsReview.Rows(j).EntireRow.PasteSpecial Paste:=xlPasteValues
    j = j + 1
Next i

友情提示，是要考虑定义范围！ 示例：

wsCurrent.Range(wsCurrent.Cells(i, "A"), wsCurrent.Cells(i, "DA")).Copy 
wsReview.Range(wsReview.Cells(i, "A"), wsReview.Cells(i, "DA")).PasteSpecial Paste:=xlPasteFormats

您要复制和粘贴的大量数据在大型工作簿中会大大降低性能。运行代码时，您可能会在短时间内“无响应”。

Cells(row, column) 需要一个行和列值，而rows() 或columns() 只需要一个值:)