VBA代码编写——自定义函数自动获取指定单元格的数据

VBA代码编写


自定义函数可实现输入列表名及行号，自动获取指定单元格的数据

求教各位：用vba实现自定义函数F(X,Y)：  X：代表要提取数据的列表名，字符串A、B、C、D等，Y：代表要提取数据的行(从下向上)，输入1、2、3、4至N等。f(A,1)代表获取表名为A所在的列最后一行的单元格，即Range("C15")，值为60。详见附件。谢谢您的帮助！！！

自定义函数可实现输入列表名及行号，自动获取指定单元格的数据，便于进一步处理数据

自定义函数F(X,Y).rar (14.76 KB) 本附件包括：

• 001.XLS

2011-3-15 16:31:55 上传

VBA不熟阿 Matlab可以吗

EXCEL中能处理数据吗

楼主，这个是不是直接用Vlookup函数编写就可以了

需要用VBA代码编写，谢谢您的关注

附件有问题

能描述一下附件有什么问题吗？
只要能用VBA代码实现我要求的功能就行！

能描述一下附件有什么问题吗？
只要能用VBA代码实现我要求的功能就行！

附件打不开？？？

Function test(jj, ii)

Dim i
Dim j
Dim k
Dim r

i = ActiveSheet.UsedRange.Rows.Count
r = i - ii + 1
If Len(jj) = 1 Then
j = Asc(jj) - 96
ElseIf Len(jj) = 2 Then
j = (Asc(jj) - 96) * 26 + Asc(Right(jj, 1)) - 96
End If
test = Cells(r, j).Value

End Function


代码如上。需要注意的是，输入列数字母时需要双引号，同时输入数据的表格必须在分析目标表格中间不然会影响UsedRange.Rows.Count 的数据输出，看不到你的附件，如果有什么问题可以帮你改。 另外 赏金拿来，谢谢打赏，呵呵。