返回列表 上一主題 發帖

[發問] 插入欄位

[發問] 插入欄位

請教各位前輩, 如何修改才可在"綠色"欄位後自動加入欄位, 謝謝!
插入3欄.rar (9.83 KB)

回復 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

TOP

回復 2# singo1232001

可以了, 感謝前輩幫助!

TOP

        靜思自在 : 屋寬不如心寬。
返回列表 上一主題