如何用宏返回某列第一个非空单元格所在的行数

yangyang1986080

Sub test123()
For i = 1 To 60000
If Cells(i, 2) = "" Then '如果查找第一个非空第一个行号 把 = 改成 <>
  a = i
  GoTo AA
End If
Next

AA:
MsgBox "第2列的第一个空白单元格在第" & a & "行"
End Sub

yangyang1986080

yangyang1986080 发表于 2013-11-14 09:21
Sub test123()
For i = 1 To 60000
If Cells(i, 2) = "" Then '如果查找第一个非空第一个行号 把 = 改成 ...

For i = 1 To 60000
的60000可以改成excel版本容纳的最大行号

yangyang1986080

yangyang1986080 发表于 2013-11-14 09:22
For i = 1 To 60000
的60000可以改成excel版本容纳的最大行号

goto AA 是为了避免找到后 还继续找下去

找到后 就跳到AA 退出for循环

之前有个高人和我说 在VBA尽量少用goto 说可能会出错 但是我每个程序都几乎用了5个沟通 似乎都没什么问题

winony

LangQueS 发表于 2010-12-13 13:54
Range("A1:A65536").Find("*").Select    '第一个非空单元
    Range("a1").End(xlDown).Offset(1, 0).Sel ...

平时用惯了从最后一个单元格往回取数，却忘记了任意单元格都可以这样使用，谢谢版主提醒

yqdaqinqin

alvazjb 发表于 2010-12-13 14:11
谢谢
这个问题有两种情况：
1.如果A1非空，则 Range("A1").end(xlDown).row 定位到的是A1向下连续的最后 ...

如果A1不空，下面也没有数据，定位到的是1048576行，还是不可以

bpodq

在弄个条件数组，正需要学习这个