1樓:
x 沒有賦初值,則使用預設值 0。但在 excel 中,行標(列標也相同)是不可能小於 1 的,所以,執行到 cells(x,1) 肯定出錯。
1 個小的提醒,在 excel 中行號是長整型數,最好將它宣告成 long 型。
使用 excel 自身的 countblank 函式或許更高效:
2樓:匿名使用者
首先x沒有賦值,所以預設為0,而cells(0,1)會提示400錯誤。
其次,這段**是統計**第一行出現內容的行號是多少。比如你這個,在不錯的情況下會返回2。
如果要**,可以寫一段給你。
sub cyts()
x = 0
for r = [a65536].end(xlup).row to 1 step -1
if cells(r, 1) = "" then x = x + 1next
msgbox x
end sub
3樓:匿名使用者
sub cyts()
dim x as integer
x = 1
do while cells(x, 1) = ""
x = x + 1
loop
msgbox x - 1
end sub
正解是1,a2單元格已經停止迴圈。
vba中查出的行數不定,怎麼在查出的新內容自動從空行填充
4樓:仙劍4之處
用range("a65536").end(xlup).row定位
或者直接range("a65536").end(xlup).row.offset(1,0)後進行填充即可。
5樓:匿名使用者
在for迴圈中加判斷,如果為空,就直接填充啊
excel vba 空行自動隱藏
6樓:匿名使用者
sub macro1()
for i = 1 to 108
if cells(i, 4) = "" and cells(i, 11) = "" then
rows(i).entirerow.hidden = trueelse
rows(i).entirerow.hidden = falseend if
next
end sub
vba找出一列中最後一個非空單元格
7樓:
以a列舉例:
dim maxrow as long
maxrow = sheets("sheet1").[a65535].end(xlup).row
以上就是獲取的最後一個非空單元格的行號。無論中間有沒有空行都不要緊,因為是從65535最大行開始往上找的(xlup)。
8樓:匿名使用者
假設你要操作的列號是columnno
那麼該列最後一個非空單元格的行號是
cells(65536, columnno).end(xlup).row
有行號列號,搞定。
相當於手選該列最後一格,再按下end+up 組合鍵.
9樓:匿名使用者
因為當中有空行,所以不能用投機方法,所以只能迴圈65536次從第一行開始迴圈,如果非空,則記錄下該行地址到任意一個單元格(比如取d2),然後再移到下一行
如果為空,則不記錄,直接跳到一行
這樣的話那個d2單元格就會不停地被覆蓋,最後那個d2的資料就是最後一個非空單元格的地址
這個演算法時間很長,期待有更好方法
vba獲取a列最後一行的下一空白行並賦值
10樓:匿名使用者
range("a60000").end(xlup).row可以獲取到a列最後一行的行號
range("a" & range("a60000").end(xlup).row+1).value="123"
vba 怎麼表示非空最後一行
11樓:匿名使用者
兩種方法
第一:看列
2003最大列 65536 其他自己找
比如a列
range("a65536").end(xlup).row第二:看使用區域
sheet.usedrange.rows.count如果從第一行往下有連續幾個空行的,還要加上這幾個空行的數量
Excel中vba怎麼獲取檔案的固定行資料
剛才試了一下,你說的這種型別的txt好像可以直接用excel開啟,所以我錄了個巨集,改了一下 你可內以試試 sub 提取 set zsht activesheet workbooks.opentext filename d abc.txt set mytxt activeworkbook zsht....
「找出和下面句子相照應的語句抄下來,體會這樣寫的好處。」的答案
1.她沉默bai 了一會兒,說du 我希望你的手指zhi已經好了。相對dao應的句子 專 我對小精屬靈說 我一個人在家,我的手指被錘子砸傷了 2.湯米,我要到另一個世界去歌唱。相照應的句子 蘇珊想了想,對我說 你知道嗎,這隻可愛的小鳥,它要到另一個世界去歌唱。課文多次前後照應的好處是什麼?好處 這樣...
這樣的婆婆這樣的老公我該怎麼辦,婆婆這樣我該怎麼辦?
先去打掉小孩,這是個痛苦的決定,但你必須這樣,切不可猶豫拖延,越遲越難辦,會影響你身體健康和將來的生活!其實,換個角度來說,你願意你的孩子出生 成長在這樣一個環境當中麼?然後,堅決離婚!看得出,你是一個自立自強 自信的女人,不會找不到真正懂得疼你 愛你的好男人的!退一萬步,即使離婚後難找,也好過和這...