1樓：太極健
你的判斷是為0而不是為空，如果是判斷為空，=""
迴圈如下
sub test ()
i=range("a65536").end(xlup).row‘判斷a列最後一行的行號
for x=1 to i’建立迴圈從第一行到最後一行if cells(x,1)=0 then cells(x,6)=cells(x,1) & cells(x,2) & cells(x,3)'判斷a值為0時，如果是判斷為空，=0改變＝""
next x
end sub
2樓：匿名使用者
簡單的迴圈
sub test()
dim i as long
dim endrow as long
endrow = range("a" & rows.count).end(xlup).row '獲取末行
if endrow < 1 then exit sub
for i = 1 to endrow-1
if trim(range("a" & i).value) = "" then
end if
next i
end sub
或者sub test()
dim i as long
dim endrow as long
endrow = range("a" & rows.count).end(xlup).row '獲取末行
if endrow < 0 then exit sub
for i = 1 to endrow
if trim(range("a" & i).value) = "" then
end if
next i
end sub
二段**，前面是f1=(=a2&b2&c2)，後一段是f1=(=a1&b1&c1)
3樓：
sub abc()
dim r as long
for r = 1 to 1000
next r
end sub
請修改迴圈大小為所需的數值。
另外，[a1]=0時，[f1]=a2&b2&c2，還是=a1&b1&c1 ？
上面的**是 =a1&b1&c1
在EXCEL中。用VBA程式編寫
函安白 自定義函式如下，請新增到要使用的excel檔案的vba 模組中function iscircletext byval 字串 as string do while len 字串 1if left 字串,1 right 字串,1 then iscircletext no exit functio...
ecel中如何判斷，excel中如何判斷？
第七次要分 用了自定義名稱，資料有效性用了indirect函式，具體看附件吧 if可以用。如果要兩個條件都滿足，加and函式 if and 5500 b24,5000000 c24 pos可正常運轉 pos不可正常運轉 如果只是滿足其中一個就行，用or函式 if or 5500 b24,500000...
VBA請問在EXCEL中如何批量插入行
sub charuhang 你所說的假設選中哪一列，其實，插入行和選中的列不相關，有用的資訊是你所選中的行 起止行號 start inputbox 請輸入要插入行的起始行號 3 end inputbox 請輸入要插入行的終止行號 26 h inputbox 請輸入要插入行數 2 for i end ...