標題: [發問] 插入欄位 [打印本頁]

---

作者: donod    時間: 2022-11-14 22:15     標題: 插入欄位

請教各位前輩, 如何修改才可在"綠色"欄位後自動加入欄位, 謝謝!
[attach]35489[/attach]

---

作者: singo1232001    時間: 2022-11-14 22:31

回復 1# donod


    Private Sub 插入欄()
For j = Cells(1, Columns.Count).End(1).Column To 1 Step -1
If Cells(1, j) = "綠色" Then
Range(Columns(j + 1), Columns(j + 3)).Insert Shift:=xlToRight ', CopyOrigin:=xlFormatFromLeftOrAbove
End If
Next
End Sub

---

作者: donod    時間: 2022-11-14 22:42

回復 2# singo1232001

可以了, 感謝前輩幫助!

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)