1樓：【名臣
先在來第一行設定自好標bai題格式，再du執行zhi以下巨集daosub 巨集1()
for i = [b65536].end(3).row to 3 step -1
if range("b" & i) = 1 thenrows("1:1").copy
rows(i & ":" & i).insert shift:=xldown
end if
next
end sub
2樓：匿名使用者
抱歉，沒注意復到你的每一組資訊制，有的是8行，有的是10行。
請使用以下的**，就沒問題了。
sub titlerowscopy_new()dim i as integer
i = sheet2.usedrange.rows.countdoif sheet2.cells(i, 2).value = 1 then
sheet2.rows(i).insertsheet2.rows(1).copy sheet2.rows(i)end if
i = i - 1
loop until i = 2
end sub
如何在excel中vba新增指定格式的一行
3樓：匿名使用者
複製並插入該行
sub 插入
相同格式的行()
dim r1 as integer, r2 as integerr1 = 2
r2 = 4
rows(r1).copy
rows(r2).insert
end sub
excel插入一行如何保留公式上一行的公式
其實excel有 擴充套件資料區域格式及格式 功能。但要求有一定的條件，一般不是很好掌握，一般不推薦使用。還有一個列表功能可以實現你這樣的要求。資料 列表 建立列表，只要公式在列表區域內，插入一行公式會自動增加。有以下方法可以 1，直接選擇有公式的那個單元格，複製 快捷鍵ctrl c 然後在你插入的...
如何在EXCEL中每隔一行插入一行相同的標題行急用啊謝謝把公式貼上來，並說明下吧
加入此表在sheet1工作表中，則在sheet2工作表中a1輸入 if mod row 3 0,if mod row 3 1,sheet1 a 2,index sheet1 a m,row 4 3 1,column 然後b1將 a 2 改成 b 2 即可，後面的列以此類推，只改這一個地方 sub t...
如何在Excel中的每一行再插入一行相同的內容
增加一列 作為 一個 排序的序號 自動填充序列 然後你把這些記錄全部選中 複製 插入到上方 或者是下方 然後你再 按這個新增加的 序號列 排序 ok 你的目的達到了，你就可以把這新增的一列 決定是否留下了 先將原有的前面插入單序號1 3，然後複製下拉。再把你的這100多行復制到下面，再接著輸雙序號2...