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

alvazjb · 发表于 2010-12-13 13:35

RT.

thx

flhgtgssxf · 发表于 2010-12-13 13:43

比如 A列的第一个非空单元格：[a65536].end(xlup).row

alvazjb · 发表于 2010-12-13 13:53

这是A列的最下面一个非空单元格吧，最上面的呢？

LangQueS · 发表于 2010-12-13 13:54

Range("A1:A65536").Find("*").Select '第一个非空单元
Range("a1").End(xlDown).Offset(1, 0).Select '第一个空单元

[ 本帖最后由 LangQueS 于 2010-12-13 13:56 编辑 ]

daley · 发表于 2010-12-13 13:55

Sub xx()
x = Range("A" & Rows.Count).End(xlUp).Row + 1
y = Range("A1").End(xlDown).Row + 1
MsgBox "第一个非空行号是:" & y & vbCrLf & "最后非空行号是:" & x
End Sub

somalia · 发表于 2010-12-13 13:57

sheet(i).cells(1,j).end(xlDown).row
其中：
sheet(i)代表第几张工作表
cells(1,j)代表第j列
end(xlDown)代表自cells(1,j)单元格向下
.row获取第j列最后一个使用的单元格的行数

我发现这样的公式编译时可以通过的，但是在敲入公式sheet(i).cells(1,j). end( 时，excel不会自动显示xlDown，xlUp等可选项，此时如果把down和up等敲成小写的，编译时会报错，但敲成大写的就不会。不知道什么原因，有高手能解答一下吗？

alvazjb · 发表于 2010-12-13 14:11

谢谢
这个问题有两种情况：
1.如果A1非空，则 Range("A1").end(xlDown).row 定位到的是A1向下连续的最后一个非空单元格的行
2.如果A1空，则 Range("A1").end(xlDown).row 定位到的确实是A1向下的第一个非空单元格的行
所以我现在的办法就是不管A1是否为空，都先插入一空行，这是笨办法，呵呵

还有楼上的两位Range("A1").end(xlDown).row +1 和Range("A1").end(xlDown).Offset(1,0).row一样，都是第二个非空单元格。

[ 本帖最后由 alvazjb 于 2010-12-13 14:17 编辑 ]

落子无声 · 发表于 2011-3-14 14:59

正需要这方面的内容。

Zamyi · 发表于 2011-3-14 15:17

原帖由 daley 于 2010-12-13 13:55 发表
Sub xx()
x = Range("A" & Rows.Count).End(xlUp).Row + 1
y = Range("A1").End(xlDown).Row + 1
MsgBox "第一个非空行号是:" & y & vbCrLf & "最后非空行号是:" & x
End Sub

这象是版主的回答？

Zamyi · 发表于 2011-3-14 15:34

c = 1
MsgBox IIf(Cells(1, c) = "", Cells(1, c).End(4).Row, 1)

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

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

恩，希望能帮到你

回复 6楼 somalia 的帖子