Vba集合单元格与另一个工作表中的单元格相同

Question

我想写一个宏来设置工作表"Section_errors“和"Elemant_errors”中的单元格是否等于"ICS Analysis“工作表中的单元格。所有数据都存在于"ICS分析“中。我尝试了下面的代码，但它不工作，任何错误都没有出现。什么可能是一个原因？我也尝试过简单的复制粘贴，它可以操作，但它太耗时了

 Sub copy_id()
Dim i As Integer
Dim lastrow As Integer

lastrow = Worksheets("ICS Analysis").Cells(Worksheets("ICS Analysis").Rows.Count, 1).End(xlUp).Row

For i = 1 To lastrow

Worksheets("Element_errors").Cells(i, 73).Value = Worksheets("ICS Analysis").Cells(i, 3).Value
Worksheets("Section_errors").Cells(i, 10).Value = Worksheets("ICS Analysis").Cells(i, 3).Value
Next i
End Sub

Answer 1

根据我的说法，的解决方案是：

Sub copy_id()
Dim i As Integer
Dim lastrow As Integer
lastrow = Worksheets("ICS Analysis").Cells(Worksheets("ICS Analysis").Rows.Count,1).End(xlUp).Row
For i = 1 To lastrow
Worksheets("Element_errors").Cells(i, 73).Value = Worksheets("ICS Analysis").Cells(i,3).Value
Worksheets("Section_errors").Cells(i, 10).Value = Worksheets("ICS Analysis").Cells(i,3).Value
Next i
End Sub

更改的是变量lastrow的定义位置。

您可以看到，在早期版本中，在进入循环之前，的lastrow的值是1，因此循环没有运行。

因此没有数据。

希望这能帮到你。