在一堆数据里查找某个数据,用find函数,要注意查找不到的情况
代码如下
Sub test()
Dim rng As Range
Set rng = Range(“d:d”).Find(Range(“l3”))
'把查找的内容放到rng容器里
If Not rng Is Nothing Then
'判断容器是否为空
Range("m3") = rng.Offset(0, 3)
End If
End Sub
在一堆数据里查找某个数据,用find函数,要注意查找不到的情况
代码如下
Sub test()
Dim rng As Range
Set rng = Range(“d:d”).Find(Range(“l3”))
'把查找的内容放到rng容器里
If Not rng Is Nothing Then
'判断容器是否为空
Range("m3") = rng.Offset(0, 3)
End If
End Sub