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判斷迴圈多行單元格數值及賦值. 20
4樓：怎樣會是怎樣
dim i , j ,x
for i = 1 to 10
for j = 1 to 5
if cells(i , j) =1 thenx=3cells(i , j).interior.colorindex = x
endif
next j
next i
在cells(1,1)到cells(10,5)範圍內找出值為1的格子並上紅色
在EXCEL中。用VBA程式編寫
自定義函式如下，請新增到要使用的excel檔案的vba 模組中function iscircletext byval 字串 as string do while len 字串 1if left 字串,1 right 字串,1 then iscircletext no exit function en...
excel 用vba如何刪除一列中的重複資料
1 開啟要進行資料處理的 2 按alt f11，進入vbe程式操作頁面，3 將滑鼠下移，右鍵彈出如圖，4 選擇插入 模組，5 滑鼠向右移動，將如下 寫入 sub test dim d as object dim r i dim arr set d createobject scripting.dic...
Excel中vba怎麼獲取檔案的固定行資料
剛才試了一下，你說的這種型別的txt好像可以直接用excel開啟，所以我錄了個巨集，改了一下 你可內以試試 sub 提取 set zsht activesheet workbooks.opentext filename d abc.txt set mytxt activeworkbook zsht....