1樓：匿名使用者
sub addbeforebold()
dim rng as range, i as integerfor i = 100 to 1 step -1cells(i, 1).select
if cells(i, 1).font.bold = true and cells(i, 1) <> "" then
selection.insert shift:=xldown, copyorigin:=xlformatfromleftorabove
end if
end if
next
end sub
2樓：匿名使用者
你說的“黑體”是字型，還是文字加粗？
下面的程式判斷字型是 黑體 ：
----------
sub addbeforebold()
dim rng as range, i, s$'----根據需要改動下面兩個變數的值
s = "黑體" '字型名稱
set rng = range("a1:a100") '資料來源
with rng.columns(1)
for i = .rows.count to 1 step -1if .
cells(i, 1).font.name = s then .
cells(i, 1).insert xlshiftdown
next
end with
end sub
3樓：匿名使用者
例如： range(rows(3), rows(5)).insert shift:=xldown 1）在當前單元格處插入一行 ； 可以增加迴圈語句來實現插入多行 range(
excel 求助如何用vba新增下一行
4樓：匿名使用者
自己錄一段，改改就行了
5樓：匿名使用者
首先在類別列來查詢"五金",如果源
找到,然後從從此行開bai始向下迴圈
du,(可以用for each 在找到的單元zhi格到此dao列的最後一個單元格),在迴圈體中用if進行測試b列單元格的內容,如果是"五金",則繼續向一行,如果不是,則表示已經到末尾了,現在可以在此插入下行.將你的內容分別輸入到對應的單元格中即可.
如果沒有找到"五金",那麼你要麼在最後追加,要麼在第一行之前插入一行,這個就看你的個人意思了.
愛一行幹一行寓意是什麼，對於 幹一行愛一行 和 愛一行幹一行 ,你有什麼看法 有什麼理解
米格戰鬥機 形容只要開始做某一件事或某一種行業就應該喜愛它並繼續做下去，是一種做事的態度。幹 這裡指的是 做工作 做事 一行 這裡指 一件事 一種行業 愛 應該是指嘗試接受你所在做的事。幹一行愛一行是指一個人對職業的一種精神態度，尤其是在當今社會，社會高速發展且人心浮躁的今天，職業敬仰精神越來越顯得...
對於 幹一行愛一行 和 愛一行幹一行 ,你有什麼看法 有什麼
休梓杉 很多人會選擇 愛一行，幹一行 吧？畢竟興趣是最好的老師，如果每天做著自己完全不感興趣的事情，怎麼能把每件事都用心做好呢，怎麼能在自己的行業做出一番成績呢？中國的孩子在高考填報志願時，往往並不知道每個專業對應著什麼職業，高考前也只是專注於做題，對自己的未來職業沒有太多的設想和規劃。等進了大學才...
你認為幹一行,愛一行,還是愛一行,幹一行 為什麼
您好朋友，幹一行愛一行叫敬業，愛一行幹一行叫愛好！很多時候是沒機會去選擇的，因為都是在為了生活在拼搏，沒辦法去選擇 這是兩種不同的生活態度，幹一行愛一行，這種人對待生活很認真。而愛一行幹一行，這種人是把興趣放在前面，以興趣主導生活。愛一行 幹一行。我畢業將近十年了 都沒有定性 因為沒有自己感興趣的不...