Question

EXCEL VBA if 循环语句

我写了下面一段代码，可以DEBUG的时候提示说 next without for,可是我前面明明已经写了FOR的，请大侠们帮忙改一下，谢谢！在线等答案啊~
Dim i%, a%
a = Sheets("source data from 201010 to (2)").Range("h1").CurrentRegion.Rows.Count
For i = 2 To a
If Cells(i, 6).Value = "NB" Then
Cells(i, 1) = Cells(i, 6).Value
Cells(i, 2) = Cells(i, 7).Value
Cells(i, 3) = Cells(i, 8).Value
Next i

Answer 1

不会吧，那么难。算了半天还没弄出来，你还是自己想想办法吧。

Answer 2

Dim i%, a%
a = Sheets("source data from 201010 to (2)").Range("h1").CurrentRegion.Rows.Count
For i = 2 To a
If Cells(i, 6).Value = "NB" Then
Cells(i, 1) = Cells(i, 6).Value
Cells(i, 2) = Cells(i, 7).Value
Cells(i, 3) = Cells(i, 8).Value

END IF
Next i

没有加END IF朋友！