如下图：
谢谢各位！！
求助VBA自定义函数（如图）
答案:1 悬赏:0 手机版
解决时间 2021-07-29 12:59
- 提问者网友：饥饿走向夜
- 2021-07-28 12:49
最佳答案
- 五星知识达人网友：摆渡翁
- 2021-07-28 13:15
Public Function 位置(Rng1, Rng2) As String '创建一新函数，参数1是一个单元格，参数2是单元格区域
Dim rng As Range '定义一变量为单元格
For Each rng In Rng2 '对参数2内的每一单元格进行循环操作
If rng.Value = Rng1.Value Then '如果其中一单元格的值等于参数1单元格的值
位置 = rng.Address(0, 0) '返回函数的值为满足要求的单元格的地址，0,0表示行和列都非绝对引用（即没有$符号）
Exit Function
End If
Next
End Function
Dim rng As Range '定义一变量为单元格
For Each rng In Rng2 '对参数2内的每一单元格进行循环操作
If rng.Value = Rng1.Value Then '如果其中一单元格的值等于参数1单元格的值
位置 = rng.Address(0, 0) '返回函数的值为满足要求的单元格的地址，0,0表示行和列都非绝对引用（即没有$符号）
Exit Function
End If
Next
End Function
我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
大家都在看
推荐资讯