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列單元格的內容,如果是"五金",則繼續向一行,如果不是,則表示已經到末尾了,現在可以在此插入下行.將你的內容分別輸入到對應的單元格中即可.
如果沒有找到"五金",那麼你要麼在最後追加,要麼在第一行之前插入一行,這個就看你的個人意思了.
Excel如何通過VBA找出最後一行資料所在的列
陽光上的橋 一般有兩個方法，一是使用activesheet.usedrange，這個表示所有已經使用的區域，一般可以賦值給陣列完成所有資料的讀取，也可以使用activesheet.usedrange.rows.count和activesheet.usedrange.columns.count獲得區域...
愛一行幹一行寓意是什麼，對於 幹一行愛一行 和 愛一行幹一行 ,你有什麼看法 有什麼理解
米格戰鬥機 形容只要開始做某一件事或某一種行業就應該喜愛它並繼續做下去，是一種做事的態度。幹 這裡指的是 做工作 做事 一行 這裡指 一件事 一種行業 愛 應該是指嘗試接受你所在做的事。幹一行愛一行是指一個人對職業的一種精神態度，尤其是在當今社會，社會高速發展且人心浮躁的今天，職業敬仰精神越來越顯得...
如何做到幹一行愛一行，「幹一行，愛一行」這句話的出自哪裡以及如何解釋？
個人認為端正工作態度，才能促成 愛一行，成一行 而也只有 幹一行，愛一行 做好手頭的工作，人生才更加完美。行業無貴賤。那些在工作中做出傑出成就的高效能人士無一不深愛著自己的工作，將工作中的榮譽當成對自己人生的最大獎賞。三百六十行，行行出狀元。這不僅強調了每一項工作的重要，更說明了每一項工作都大有可為...