excel中如何編寫vba判斷迴圈多行單元格數值及賦值

時間 2021-08-11 18:14:17

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上滑鼠右鍵 檢視...