1樓：匿名使用者
自己錄一段，改改就行了
2樓：匿名使用者
首先在類別列來查詢"五金",如果源
找到,然後從從此行開bai始向下迴圈
du,(可以用for each 在找到的單元zhi格到此dao列的最後一個單元格),在迴圈體中用if進行測試b列單元格的內容,如果是"五金",則繼續向一行,如果不是,則表示已經到末尾了,現在可以在此插入下行.將你的內容分別輸入到對應的單元格中即可.
如果沒有找到"五金",那麼你要麼在最後追加,要麼在第一行之前插入一行,這個就看你的個人意思了.
如何在excel中vba新增指定格式的一行
3樓：匿名使用者
複製並插入該行
sub 插入
相同格式的行()
dim r1 as integer, r2 as integerr1 = 2
r2 = 4
rows(r1).copy
rows(r2).insert
end sub
求助如何用vba新增下一行
4樓：陽光上的橋
在vba**上一行的末尾，按回車鍵，就可以增加一個新行。
5樓：矽谷少年
上**，寫描述，寫出你到底想要做什麼？不懂你是office還是cad？
vba怎麼excel中插入行
6樓：天雨下凡
給個思路，要插入行，首先要選擇行，再進行插入操作。假設在第二行處插入一行，則vba**如下：rows(2).insert shift:=xlup
7樓：典暄郜邵美
rows("2:2").insert
shift:=xldown,
copyorigin:=xlformatfromleftorabove
就是在第二行前插入一行
(excel,vba) 如果某一行中有的單元格的值為0，則在下面插入一行？怎麼用vba實現？謝謝！
8樓：匿名使用者
編輯bai---查詢---選項----勾選單元格匹du配----輸入
zhi0----查詢。對話方塊中會顯dao所有0的格，按住ctrl鍵，專點中找到的數屬據，關閉對話方塊，**中所有0格被選中，在某個0的位置右鍵---插入---整行---確定。全部0格的「上」方插入一空行。
（插入到0的下方不行）必要時可以在輸入資料前，把空行拖拽到0的下邊。
9樓：恢メ烣
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
10樓：匿名使用者
**如下：復
'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
excel中如何用vba處理表1中如果含有表2中的某個關鍵詞則記錄下來
假設表是下面這樣的，簡單的示例，然後稍微改改就可以了 示例表1的樣子，名字就是sheet1 示例表2的樣子，名字sheet2 option explicit sub comb dim i as long,j as long,res as integer dim ln1 as long,ln2 as ...
如何用ps摳出公章新增到excel中
手機或相機 畫素越高越好 將需要的印章拍照！把 放到ps上，把印章部分裁剪出來！使用印章工具把黑色字型去掉！同時把印章紅色部分修復一下！慢慢來！ctrl l 使用色階工具將紅色部加深！選擇 色彩範圍 吸取顏色 容差設為200，之後吸取圖章上的紅色！確定後，新增向量蒙版，建立新圖層，並填充成白色，放置...
如何一開啟Excel就執行VBA
在workbook open事件中寫入 或者在auto open事件中寫入 1.將excel巨集安全性改為 低 開啟有vba 的工作簿時，就不會提示是否啟用巨集 2.將需要首先執行的vba 寫在workbook open事件裡面 或許你需要的是一種，或者你要的是這兩種 在workbook open事...