vba - 对于 VBA 中的每个循环意外跳过行

Question

我已经编写了这段代码，这是一个更大问题的一部分。最初它应该开始将一些数据从工作表传输到另一个..但它一直在跳过行，它复制一个，跳过然后复制另一个，跳过，复制，跳过......我使用 Select 方法只是为了测试，而不是复制。

Dim sharepointSheet As Worksheet
Dim masterSheet As Worksheet
Dim sharepointTable As Range

'Auxliary variable
Dim row As Range
Dim cell As Range
Dim RowLast As Long



Set sharepointSheet = ThisWorkbook.Worksheets("Sharepoint List")
Set masterSheet = ThisWorkbook.Worksheets("Master List")

Set sharepointTable = masterSheet.Range("A2", "F133")


For Each row In sharepointTable.Rows
    row.Cells(row.row, 3).Select

   ' RowLast = masterSheet.Cells(Rows.Count, "A").End(xlUp).row + 1
   ' masterSheet.Cells(RowLast, "A").PasteSpecial

Next row

Answer 1

您遇到问题是因为您选择的是相对于您row的范围而不是工作表范围的行。

如果您将选择行更改为以下内容，它将解决您的问题：

masterSheet.Cells(row.row, 3).Select

也不是说使用变量（例如row范围）不是一个好主意，因为它会变得非常混乱！