[算表] vba的新插入列

[anhbclbe (Crush)]

軟體: excel

版本:2007



想請教各位


我在excel 中的vba做一個插入的功能

選好目標欄位後就會插入一列空白儲存格


但是新插入的儲存格卻沒有延續上面儲存格的格式、

合併的儲存格分開了，格線也沒了，公式也沒有延續

目前寫出來的結果如下連結(imgur)
http://imgur.com/a/KLIkt


插入新列的寫法如下:
Private Sub CommandButton1_Click()

If ComboBox1.Text = "" Then MsgBox "請選擇製程"

Worksheets("FC").Select
Worksheets("FC").Range("A30").Select
fcchno = ActiveCell.End(xlUp).Row


For i = 7 To fcchno

If Worksheets("FC").Range("A" & i).Value = UserForm9.ComboBox1.Text Then
Rows(i).Select
Selection.Insert shift:=xlDown

Next i


End Sub

目前的寫法有誤，會多插入2行，而且單純的插入沒有辦法達到我的需求
請問一下我還有什麼方式可以達成呢

請多指教
謝謝!!




--

落霞與孤鶩齊飛 秋水共長天一色


--
※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 49.159.11.188
※ 文章網址: https://www.ptt.cc/bbs/Office/M.1446645672.A.4B2.html
→ soyoso: 格線如要以上方或下方列的為準的話，可用複製後再以
→ soyoso: range.pastespecial貼上格式
→ soyoso: 公式方面可用複製貼上或是用range.autofill
→ soyoso: 有寫到會多插入二行方面，以原文巨集來看是否將selection.
→ soyoso: insert包在if...end if內，因沒有看到end if所以猜說是否
→ soyoso: 迴圈內都會執行到這行；如果then後面直接接rows(i).select
→ soyoso: 也要續接selection.insert的話，請用:(冒號)
→ anhbclbe: 感謝解答~~再來找資料看看!!