单元格的问题，请高手批改作业！谢谢！

hanzhuossby

将表格里，若固定一列中的某个单元格的数据为"EDQ",则在第四列的该行处的单元格里写出所在行的地址
例（如图）
我的代码如下：
Dim i As Integer
For i = 1 To 999
If cell(i, 1).Value = "EQD" Then
cell(i, 4).Value = i
Else
MsgBox ("没有EQD!")
End If
Next
End Sub
请高手给予批改啊，哪里有错误啊！我有点晕，谢谢了！

hanzhuossby

不好意思，是将地址行数显示在第6列相应的位置

sh205

Sub sun()
    Dim i As Integer
    For i = 1 To 999
        If Cells(i, 1).Value = "EQD" Then
            Cells(i, 4).Value = i
        Else
            MsgBox ("没有EQD!")
        End If
    Next
End Sub