以下的语句错了，请问要怎样改呢？求指点

Question

While (SheetsCells(z, 1).Value <> r) Or (Sheets("1").Cells(z, 1).Value <> "")z = z + 1  Wend我的目的是当“单元格的值，不等于空白，或者不等于R时，z自动加1！（当SheetsCells(z, 1).Value = r，程序修改当行的数据）

Answer 1

你写的语法和逻辑有误，请参考下面的：

For z=1 to 最大行数值
If (Sheet1.Cells(z, 1).Value <> r) Or (Sheet1.Cells(z, 1).Value <> "") Then
'''此处修改当行的数据
End If
Next

记得采纳噢！：）

Answer 2

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
Dim z%
z = Target.Row
While (Cells(z, 1).Value <> "r") And (Cells(z, 1).Value <> "")
z = z + 1
Wend
Cells(z, 1).Select
End Sub