Excel 格子内置定位引用中函数错误，求更改if a lik

阅： 924 | 回： 6

格子内置定位引用中函数错误，求更改if a like 那一句提示错误全部 , 编号:01597

a1766628260

发表于2021/8/26 7:02:52 楼主

回复楼主

等级:初学者

积分:0

财富值:2.0

身份:普通用户

Sub 定位数据及区域的空值() Dim aa As Range For Each a In ActiveSheet.UsedRange If a Like < 0 Then If aa Is Nothing Then Set aa = a.Cells Else Set aa = Union(aa, a.Cells) End If End If Next aa.Select End Sub

我的个性签名

清风扬

发表于 2021/8/26 10:12:25

回复2楼

等级:传说级人物

积分:2577

财富值:1863

身份:普通用户

是DiY工具箱中的宏收纳箱里面吗

我的个性签名

Littlebao

发表于 2021/8/26 15:27:59

回复3楼

等级:初学者

积分:5

财富值:2

身份:普通用户

我给你改写了点，Like后面是不能接<的，所以会报错

Sub 定位数据及区域的空值()
Dim aa As Range
For Each a In ActiveSheet.UsedRange
If Not a.Value Like "*?*" Then
If aa Is Nothing Then
Set aa = a.Cells
Else
Set aa = Union(aa, a.Cells)
End If
End If
Next
aa.Select
End Sub

我的个性签名

兔阿兔

发表于 2021/8/26 15:43:04

回复4楼

等级:初学者

积分:6

财富值:2

身份:普通用户

回复：2楼

对，diy里面定位引用的所选区域空值，，楼下改了可以用了，不过2楼改成了所选区域非空值

我的个性签名

兔阿兔

发表于 2021/8/26 15:43:48

回复5楼

等级:初学者

积分:6

财富值:2

身份:普通用户

回复：3楼

您改了可以用了，不过改成了所选区域非空值

我的个性签名

Littlebao

发表于 2021/8/26 15:55:30

回复6楼

等级:初学者

积分:5

财富值:2

身份:普通用户

回复：5楼

我改的是选择所选区域空值

我的个性签名

兔阿兔

发表于 2021/8/26 16:28:41

回复7楼

等级:初学者

积分:6

财富值:2

身份:普通用户

回复：6楼代码没看懂，我试了试，结果就是那个啊。。。

我的个性签名

快速回复