1樓：匿名使用者
你沒寫清楚是要查空單元格啊還是 查單元格內容有空格.汗一個先.兩段**都貼給你吧
在工作表名稱上點右鍵,選檢視**,貼上下面的**sub 檢查空單元格()
dim rng as range, arr()for each rng in range("a1:a30")if rng = "" then
n = n + 1
redim preserve arr(1 to n)arr(n) = rng.address(0, 0)end if
next
msgbox "a1:a30有" & n & "個空單元格," & vbcrlf & "分別是:" & join(arr, ",")
end sub
sub 檢查空格()
dim rng as range, arr()for each rng in range("a1:a30")if instr(rng, " ") <> 0 thenn = n + 1
redim preserve arr(1 to n)arr(n) = rng.address(0, 0)end if
next
msgbox "a1:a30包含空格的單元格有" & n & "個," & vbcrlf & "分別是:" & join(arr, ",")
end sub
2樓：刁蟲小技
sub rowmsg()
for i = 1 to 30
if range("a" & i) = "" thena = a & "," & i & "行"
end if
next
msgbox "以下行為空:" & a
end sub
excel vba 判斷a列空值 如果 a1:a30 單元格為空，則彈出對話方塊「空了」
3樓：迎客鬆
sub 按鈕1_單擊()
if range("a1:a30").find("").row > 0 then
msgbox "空了"
end if
end sub
4樓：匿名使用者
sub aaa()
for i=1 to 30
if cells(i,1)="" thenn=n+1
end if
next
if n=30 then msgbox ("空了")end sub
5樓：匿名使用者
sub 判斷()
for i = 1 to 30
if cells(i, 1) = "" then s = s + 1next
if s = 30 then msgbox "空了"
end sub
excel vba怎樣判斷a列中不為空的單元格，寫入abc，比如a1,a2,a3都有值，a4是空的，加入abc 10
6樓：匿名使用者
其實不用使用vba，按如下操作即可：
選定a列，f5-定位條件-空值-確定
輸入abc
按ctrl+enter
7樓：表裡如一
**這樣寫就可以了
sub aa()
end sub
EXCEL VBA列統計排序，怎麼用VBA對EXCEL內的資料排序
錄製巨集就得到vba 了 如何用vba將excel中的一列值進行從小到大排序，然後顯示到excel上喔？假設源資料在a列，排好的資料輸出到b列，如下 sub s dim arr,i,j,n,tmpn cells rows.count,1 end 3 row arr a1 resize n for i...
excel vba中選中單位各然後每隔9列插入等式並且autofill往下，可是老說範圍出錯。怎麼辦
sub delete0 c iv1 end xltoleft column for i 1 to 2 c 2 3 activecell.offset 0,9 range a2 select activecell.formular1c1 if rc 2 0,rc 2 activecell.range ...
在Excel VBA中，如何實現年齡一列的統計。比如，20 25歲 26 30歲的人數
既然是問vba中實現，那麼就講vba的事瞭如你的年齡一列在f列，那麼用迴圈直接計算出結果for x 2 to 100 if cells x,6 20 thenrange h2 range h2 1elseif cells x,6 26 thenrange h3 range h3 1elseif ce...