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

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 IfNext记得采纳噢！：）

Answer 2

Option ExplicitPrivate Sub Worksheet_Change(ByVal Target As Range)Dim z%z = Target.RowWhile (Cells(z, 1).Value <> "r") And (Cells(z, 1).Value <> "")z = z + 1WendCells(z, 1).SelectEnd Sub