获得某列最后一个有效(非空格)值?

后飞笨鸟

请问如何获得某列最后一个非空格值?
我想把余额结转到下一个月,总是Copy&Paste太累了.我用VBA作过,但没有成功.[em00]
......

谢谢!

[此贴子已经被作者于2003-4-4 12:06:13编辑过]

后飞笨鸟

搞定!
Sub GetBalanceAtGG()
    Dim old As Variant
    With Worksheets(3).Range("G:G")
        Set c = .Find("*")
        If Not c Is Nothing Then
            firstAddress = c.Address
            old = c.Value
            Set c = .FindNext(c)
            Do
                If Not c Is Nothing Then old = c.Value
                Set c = .FindNext(c)
            Loop While firstAddress <> c.Address
            MsgBox old
        Else
            MsgBox "没有找到"
        End If
    End With
End Sub

linhuer

似乎不用这么麻烦.  VBA内可以使用 XLUP功能, 很容易就可以找到一列中的最后一个空白单元.

后飞笨鸟

哦,是吗?! 我发现Excel比我想象的还要功能强大.
XLUP功能是指什么.可不可以给我说说.TTTTTTTTTTTTTTTTThx

linhuer

xldown, xlup : 是寻找一列之中最后一个有数据的单元的方法,在VBA中有相应的语句可以使用。在工作表中，寻找一列数据中的连续数据的最后一个单元，可以将光标移到该列的数据中，按下 “end" 后再按下 向下箭头，光标将移动到这些数据的最后一个单元。如果要到达所有有数据的单元的最后一个单元，跳过中间的空值，可以将光标定位在此列最后一个单元后，按下"end" 后再按向上箭头。前者称为 xldown, 后者是 xlup.

shuiyuan

To  后飞笨鸟：
显示一列最后一个数参见实例：
http://club.excelhome.net/dispbbs.asp?BoardID=3&replyID=7852&id=14484&star=1&skin=0

JUNXI

收藏，谢谢楼主

mxlwq

http://liweiqiang.web-124.com/a/accbbs.swf顶！