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編寫巨集,形成10行的楊輝三角
sub 楊輝三角 dim i as integer,j as integerfor i 1 to 10 cells i,11 i 1 cells i,9 i 1 if i 3 then for j 13 i to 7 i step 2cells i,j cells i 1,j 1 cells i 1...
ecel中如何判斷,excel中如何判斷?
第七次要分 用了自定義名稱,資料有效性用了indirect函式,具體看附件吧 if可以用。如果要兩個條件都滿足,加and函式 if and 5500 b24,5000000 c24 pos可正常運轉 pos不可正常運轉 如果只是滿足其中一個就行,用or函式 if or 5500 b24,500000...
vba刪除excel資料,vba中怎麼清空工作表中的資料
對於刪除重複資料,excel 2007中有一個功能可以刪除,不需要vba程式設計。方法 選中重複資料出現的單元格區域 選單 欄 資料 刪除重複項 點選 確定 即可如圖 在excel開啟控制元件工具箱,在excel中新增一個button commandbutton1 然後在button上滑鼠右鍵 檢視...