Excel VBA：如果条件

Question

我的情况是这样的：将列B的编号（如果列A的相邻单元格为n / a）复制到工作表2的A列，从A1到A2到A3等（逐个） ）

enter image description here

此代码有效：

For i = 1 To LastRow Step 1
If Cells(i, 1).Text = "#N/A" Then Worksheets(2).Range("A" & 
Sheets("Sheet2").Range("A" & Rows.Count).End(xlUp).Row + 1) = 
Worksheets(1).Cells(i, 2).Value
Next i

顺便说一句：任何人都可以指导我完成这个：工作表（2）。范围（＆＃34; A＆＃34;＆amp; Sheets（＆＃34; Sheet2＆＃34;）。范​​围（＆＃34; A＆＃34 ;＆amp; Rows.Count）.End（xlUp）.Row + 1） 我从stackflow复制它但我不清楚它

但是，我不明白为什么这个不起作用：

Sub test()
Dim i As Integer, j As Integer

LastRow = Range("A1048576").End(xlUp).Row
j = Worksheets(2).Range("A1048576").End(xlUp).Row


For i = 1 To LastRow Step 1
If Cells(i, 1).Text = "#N/A" Then Worksheets(2).Range("A" & j + 1) = 
Worksheets(1).Cells(i, 2).Value


Next i
End Sub

此输出为：

**第2页的A栏

4 **

（它没有逐个循环，但前一个数字被后一个替换）我想我用j代替第一个案例的长句，但它没有工作< / p>