[算表] vba的新插入列

看板Office作者 (Crush)時間8年前 (2015/11/04 22:01), 編輯推噓0(008)
留言8則, 2人參與, 最新討論串1/1
軟體: 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

11/04 22:19, , 1F
格線如要以上方或下方列的為準的話,可用複製後再以
11/04 22:19, 1F

11/04 22:19, , 2F
range.pastespecial貼上格式
11/04 22:19, 2F

11/04 22:21, , 3F
公式方面可用複製貼上或是用range.autofill
11/04 22:21, 3F

11/04 22:27, , 4F
有寫到會多插入二行方面,以原文巨集來看是否將selection.
11/04 22:27, 4F

11/04 22:28, , 5F
insert包在if...end if內,因沒有看到end if所以猜說是否
11/04 22:28, 5F

11/04 22:30, , 6F
迴圈內都會執行到這行;如果then後面直接接rows(i).select
11/04 22:30, 6F

11/04 22:31, , 7F
也要續接selection.insert的話,請用:(冒號)
11/04 22:31, 7F

11/05 00:04, , 8F
感謝解答~~再來找資料看看!!
11/05 00:04, 8F
文章代碼(AID): #1MEW-eIo (Office)