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

hanzhuossby · 发表于 2010-9-6 15:19

将表格里，若固定一列中的某个单元格的数据为"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 · 发表于 2010-9-6 15:22

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

sh205 · 发表于 2010-9-6 15:35

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

		自动登录	找回密码
密码			免费注册