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樓：匿名使用者
for i = 1 to range("a65536").end(xlup).row()
定義這樣一個變數i
對i進行迴圈就行了。
這是2003的**，2007及以上的，把65536修改為1048576
3樓：匿名使用者
肯定是迴圈
其中假設一個if
if cells(i,1)="" then ' cells（i，1）表示的是a列
exit for '退出迴圈
else
你要執行的語句
endif
4樓：匿名使用者
看是否適用
if cells(1,i).value<>0 thenexit sub
end if
在excel中如何判斷vba迴圈,達到條件時中止迴圈 20
5樓：q城裡城外
啟動excel後按alt+f11啟動vba編輯環境，並在左側點選右鍵→插入→使用者窗體。在工具欄中，新增按鈕到窗體：
雙擊按鈕，並新增如下**
private sub commandbutton1_click()dim lastrow, i as longwith sheets(1)
lastrow = sheets(1).usedrange.rows.count
for i = 1 to lastrow
if textbox1.text = .range("a" & i).value then
.range("a" & i).selectexit for
end if
next
end with
end sub
在vba中執行視窗，測試結果為輸入10，a列單元格的10被選中：
6樓：
private sub commandbutton1_click()dim inttemp as long
dim i as long
inttemp = int(textbox1.text)for i = 1 to 65534
if sheet3.cells(i, 1) = inttemp then
sheet3.cells(i, 1).selectexit for
end if
next
end sub
sheet3要換成你的資料所在表
excel vba 判斷a列空值 如果 a1:a30 單元格為空，則彈出對話方塊「空了」並說明有幾個，位置在哪~
7樓：匿名使用者
你沒寫清楚是要查空單元格啊還是 查單元格內容有空格.汗一個先.兩段**都貼給你吧
在工作表名稱上點右鍵,選檢視**,貼上下面的**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
8樓：刁蟲小技
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 單元格為空，則彈出對話方塊「空了」
9樓：迎客鬆
sub 按鈕1_單擊()
if range("a1:a30").find("").row > 0 then
msgbox "空了"
end if
end sub
10樓：匿名使用者
sub aaa()
for i=1 to 30
if cells(i,1)="" thenn=n+1
end if
next
if n=30 then msgbox ("空了")end sub
11樓：匿名使用者
sub 判斷()
for i = 1 to 30
if cells(i, 1) = "" then s = s + 1next
if s = 30 then msgbox "空了"
end sub
excel vba 刪除空白單元格所在的行
12樓：匿名使用者
1、首先在開發工具中開啟vba編輯器。
2、在單元格區域當中輸入一些內容。
3、在vba編輯器中插入模組。
4、在模組當中輸入如下**，然後執行sub 清除空白資料行()dim i as longfor i=cells(1048576, 2).end(xlup).row to 3 step-1if cells(i, 3)="" then'如果單元格為cells(i,1).
entirerow.delete'符合條件的都刪除整行end ifnext'檢測下一個end sub。
5、用快捷鍵alt+f8調出執行巨集視窗，然後單擊「執行」按鈕，程式執行後第三列為空白之單元格所在行全部刪除。
13樓：大風吹大風吹大風吹
sub macro1()
dim i as integer '小於32,767用integer
'dim i as long '超過32,767用long
for i = [a20].end(1).row to 1 step -1 'a20到a1結束，步長 -1，就是每迴圈一次減1
if cells(i, 1) = "" then '判斷 i 行是否為空？
range("a" & i & ":e" & i).select '然後選擇ai:ei
selection.delete shift:=xlup '下方單元格上移的方式刪除該行，這樣刪除不會影響到f列的資料
end if
next
end sub
14樓：
假設你要查詢的空白單元格在b列
sub my()
dim i as long
for i = 1 to [a65536].end(xlup).row
if cells(i, 2) = "" then '這裡的2就是你的列數，可以自己替換
rows(i & ":" & i).delete shift:=xlup
end if
next
end sub
15樓：平陽虎
sub 刪除行()
for i = [b65536].end(3).row to 2 step -1
if cells(i, 2) = "" then rows(i & ":" & i).delete shift:=xlup
next
end sub
16樓：匿名使用者
sub delblank()
on error resume next
columns("b:b").specialcells(xlcelltypeblanks).entirerow.delete
end sub
17樓：匿名使用者
sub 空值則刪除整行()
with activesheet
for i = .[a65536].end(3).row to 1 step -1 '這裡的1是你的表頭行數
if .cells(i, 2) = "" then .rows(i).delete '這裡的2就是你的列數，可以自己替換
next
end with
end sub
excel vba怎樣判斷a列中不為空的單元格，寫入abc，比如a1,a2,a3都有值，a4是空的，加入abc 10
18樓：匿名使用者
其實不用使用vba，按如下操作即可：
選定a列，f5-定位條件-空值-確定
輸入abc
按ctrl+enter
19樓：表裡如一
**這樣寫就可以了
sub aa()
end sub
如果在夢裡夢見女生代表什麼,如果在夢裡夢見一個女生代表什麼
整常啦 我也常常夢到女生 不能代表什麼的 為什麼我總是在夢裡夢見一個女孩?對這個問題我想談談我 自己的想法 說真的我早就 出現過你說的 問題別人我不知道是怎麼樣的但我呢?親身的感觸是。老想著惦記一個人的時候晚上做夢就會夢見她,還有夢見的不一定就是自己喜歡的人,但這也不排除如果喜歡一個人的話,不自覺的...
如果在夢裡見到人說明什麼，如果在夢裡見到一個人 說明什麼
夢見一個人，不代表他真的在想你，而是僅僅代表你在想他，這是因為潛意識佔據我們頭腦中的絕大部分，並且不受我們的意識所控制。那些不被我們注意或是被忽視遺忘的事情都會進入潛意識中，並會在將來的某一天，在不經意間被重新喚醒。而做夢，則是潛意識表達的途徑，在睡夢中，我們的意識變得非常不活躍，潛意識便佔據了主導...
如果在日本買房能拿永駐嗎，如果在日本買房能拿永駐嗎
歸化申請 1.在日本連續居住5年以上，一般不能連續離開超過3個月，1年合計不能離開超過150天左右。2.20週歲以上 與父母或父母一方同時申請時孩子年齡則不限 具有法令行動的能力。3.遵守日本的法律法規，比如說沒有犯罪記錄 交通違反。4.有足夠維持生活的收入或者資產，年收入不少於200萬日元。5.有...