发一个取末行值函数，可以取倒数任意行的值

win2009 · 发表于 2012-8-22 16:15

本帖最后由 win2009 于 2012-8-22 16:20 编辑

为什么要发这里？这里要的人多。把代码粘到vba 模块中

复制代码

Function 末行值(rg As Range, Optional ds As Integer = 0)
Dim 列标 As Integer
Application.Volatile
列标 = rg.Column
末行值 = rg.Parent.Cells(Rows.Count, 列标).End(3).Offset(ds, 0).Value
'MsgBox mi
End Function

默认取最后一行的值，只要鼠标点击列任意一个单元格，就取得该列最后一个非空单元格值
ds=-1 取倒数第2个值
.........................
不管你选中的是 a1 还是 a10000 得到的都是a列最后一个值

用法：=末行值(g1000)

神奇网格 · 发表于 2012-8-23 16:35

楼主是VBA高手，能否函数一个解决这问题

东亚五金 · 发表于 2012-9-3 22:46

楼主威武，楼主高手

psxk3535 · 发表于 2020-12-21 07:47

保存，不错，学习了

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

[原创] 发一个取末行值函数，可以取倒数任意行的值