[已解决]请教一句简单代码

af554 · 发表于 2009-9-9 11:48

请教一句简单代码，在“自动筛选”成立下，我想通过代码定位真正最后的一个单元格的下一个单元格！如何写代码，请高手赐教！谢谢!！

VXdTqqxC.rar (2.34 KB, 下载次数: 1)

函数小菜鸟 · 发表于 2009-9-9 12:13

RANGE("A" & SHEETS("SHEET1").RANGE("A65536").END(XLUP).ROW+1) 'A列最后一个非空单元格下一行

懒羊羊 · 发表于 2009-9-9 12:18

好象只能用个循环加判断。

Sub aa()
    For x = [a65536].End(xlUp).Row + 1 To 65536
        If Range("A" & x).EntireRow.Hidden = False Then
            Range("A" & x).Select
            Exit For
        End If
    Next x
End Sub

af554 · 发表于 2009-9-9 13:47

继续期待

蓝桥玄霜 · 发表于 2009-9-9 16:45

3楼的代码很好哦。难道不符合楼主的要求？

爱疯 · 发表于 2009-9-9 16:54

MsgBox Columns(1).Find("").Row

[em04]

rstu580 · 发表于 2009-9-10 00:22

提示: 作者被禁止或删除内容自动屏蔽

af554 · 发表于 2009-9-10 09:08

3楼的代码的确很好。因为我要用的地方一是操作频繁，数据量大，循环就太慢了！还在等有更省内存的

6楼感觉很好，谢谢高手了哈

[此贴子已经被作者于2009-9-10 9:15:09编辑过]

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

rstu580 rstu580 当前离线积分 0 IP卡狗仔卡	发表于 2009-9-10 00:22 \| 显示全部楼层提示: 作者被禁止或删除内容自动屏蔽
rstu580 rstu580 当前离线积分 0 IP卡狗仔卡
	回复使用道具举报显身卡