1樓:匿名使用者
i=range("a65536").end(xlup).row()+1
這個i就是a列你要的行號
此**只適用於excel 2003
如果是07以上
65536修改為1048576
2樓:靜靜邁除人
sub 選擇單元格最下面第一個空值()
range("a" & cells(rows.count, 1).end(xlup).row + 1).select
end sub
sub 選擇單元格最後一行()
range("a" & cells(rows.count, 1).end(xlup).row).select
cells(rows.count, 1).end(xlup).select' 或者這樣也行
end sub
cells(rows.count, 1)'選擇最後一個單元格
(excel,vba) 如果某一行中有的單元格的值為0,則在下面插入一行?怎麼用vba實現?謝謝!
3樓:匿名使用者
編輯bai---查詢---選項----勾選單元格匹du配----輸入
zhi0----查詢。對話方塊中會顯dao所有0的格,按住ctrl鍵,專點中找到的數屬據,關閉對話方塊,**中所有0格被選中,在某個0的位置右鍵---插入---整行---確定。全部0格的“上”方插入一空行。
(插入到0的下方不行)必要時可以在輸入資料前,把空行拖拽到0的下邊。
4樓:恢メ烣
1、某一特徵的行
(至少有一個單元格為0)
對第x行計算
可以用連乘函式product(x:x)
值為0則滿
內足特徵條件
2、如果是在上容面的基礎上進行加一行操作
vba中是
rows(x+1).insert
+1表示該行之後
如果是某個單元格(假設為c5)值為0時才加一行,則用以下語句
if [c5]=0 then
rows(6).insert
end if
5樓:匿名使用者
**如下:復
'a列單元格的值為0,則在下面制插入一行
'sub insertrow()
dim n as integer
dim i as integer
n = [a65536].end(xlup).row 'a列最後一行非空單元格行號
i = 1
do while i <= n '如果當前單元格行號不大於最後一行則執行迴圈
if cells(i, "a") = 0 then '單元格如果是0
cells(i + 1, "a").entirerow.insert '在其下一行插入空行
n = n + 1 '最後一行的行號增加1行i = i + 1 '跳過新插入的空行end if
i = i + 1 '行號+1,準備下一個迴圈loop
end sub
PING命令如何使用,CMD命令中PING的使用
是dos命令,一般用於檢測網路通與不通 也叫時延,其值越大,速度越慢。ping packet internet groper 1 因特網包探索器,用於測試網路連線量的程式。ping傳送一個icmp internet control messages protocol 即因特網信報控制協議 回聲請求訊...
如何使用tracert命令檢視網路狀態
方法 步驟 第一步,點選左下角開始 第二步,繼續點選執行 第三步,彈出對話方塊 第四步,輸入命令cmd 第五步,彈出dos視窗 第六步,輸入命令tracert 域名,如下第七步,返回結果如下 如何使用netstat命令檢視網路狀態 如何用tracert和ping 命令判斷網路執行狀況 簡單的理解為 ...
如何使用ping命令檢查網路故障
校驗與遠端計算機或本地計算機的連線。只有在安裝 tcp ip 協議之後才能使用該命令。ping t a n count l length f i ttl v tos r count s count j computer list k computer list w timeout destinati...