能描述一下附件有什么问题吗？
只要能用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 的数据输出，看不到你的附件，如果有什么问题可以帮你改。 另外 赏金拿来，谢谢打赏，呵呵。

slayerkook您好！
好长时间没来了。你提供代码无法使用。A、B、C、D应能用任意字符串如RSI、MA5替换

slayerkook您好！
好长时间没来了。你提供代码无法使用。A、B、C、D应能用任意字符串如RSI、MA5替换

slayerkook您好!
代码无法使用
字符串A、B、C、D应能用字符串如rsi、MA5、kd等替换。

Function F(x As String, y)
i = 1

Do While Sheet1.Cells(i, 1) <> ""
a = a + 1
i = i + 1

Loop

j = 1

Do While Sheet1.Cells(1, j) <> ""
If x = Sheet1.Cells(1, j) Then
col = j
Else
End If

j = j + 1
Loop


a = a - y + 1

F = Sheet1.Cells(a, col)
End Function


需要加上双引号
f("rsi",1)=Range("C15")=60