国产一区二区欧美精品免费-欧美国产日韩在线视频-欧美亚洲国语精品一区二区-欧美激情五月综合啪啪-国产69精品麻豆久久久久-亚洲人成精品久久久久桥网站-欧美刺激肥熟在线视频-十七岁日本免费完整版BD-黑夜在线拖拽不卡第一页

`
發(fā)表于2021/8/26 7:02:52 樓主 
頭像 等級(jí):初學(xué)者
積分:0
財(cái)富值:2.00
身份:普通用戶
Sub 定位數(shù)據(jù)及區(qū)域的空值() 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
我的個(gè)性簽名
發(fā)表于 2021/8/26 10:12:25   
頭像 等級(jí):傳說(shuō)級(jí)人物
積分:2675
財(cái)富值:1850
身份:普通用戶
是DiY工具箱中的宏收納箱里面嗎
我的個(gè)性簽名
發(fā)表于 2021/8/26 15:27:59   
頭像 等級(jí):初學(xué)者
積分:5
財(cái)富值:2
身份:普通用戶

我給你改寫(xiě)了點(diǎn)，Like后面是不能接<的，所以會(huì)報(bào)錯(cuò)

Sub 定位數(shù)據(jù)及區(qū)域的空值()
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

我的個(gè)性簽名
發(fā)表于 2021/8/26 15:43:04   
頭像 等級(jí):初學(xué)者
積分:6
財(cái)富值:2
身份:普通用戶

回復(fù)：2樓

對(duì)，diy里面定位引用的所選區(qū)域空值，，樓下改了可以用了，不過(guò)2樓改成了所選區(qū)域非空值
我的個(gè)性簽名
發(fā)表于 2021/8/26 15:43:48   
頭像 等級(jí):初學(xué)者
積分:6
財(cái)富值:2
身份:普通用戶

回復(fù)：3樓


您改了可以用了，不過(guò)改成了所選區(qū)域非空值
我的個(gè)性簽名
發(fā)表于 2021/8/26 15:55:30   
頭像 等級(jí):初學(xué)者
積分:5
財(cái)富值:2
身份:普通用戶

回復(fù)：5樓

我改的是選擇所選區(qū)域空值
我的個(gè)性簽名
發(fā)表于 2021/8/26 16:28:41   
頭像 等級(jí):初學(xué)者
積分:6
財(cái)富值:2
身份:普通用戶

回復(fù)：6樓代碼沒(méi)看懂，我試了試，結(jié)果就是那個(gè)啊。。。



我的個(gè)性簽名

快速回復(fù)

目前不允許游客發(fā)表，請(qǐng) 登錄 注冊(cè) 后再發(fā)貼。