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，因此循环未运行。

因此没有数据。

希望这对您有帮助...

Vba设置的单元格等于另一个工作表中的单元格

1 个答案: