返回列表 上一主題 發帖

[發問] 插入欄位

donod

帖子
140 
主題
24 
精華
0 
積分
167 
點名
0  
作業系統
WIN 7 
軟體版本
OFFICE 2007 
閱讀權限
20 
性別
男 
註冊時間
2012-2-26 
最後登錄
2023-1-30 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2022-11-14 22:15 | 只看該作者

[發問] 插入欄位

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

singo1232001
　暱稱: 熱狗慶

中學生Rank: 2

帖子
354 
主題
5 
精華
0 
積分
387 
點名
0  
作業系統
windows7 
軟體版本
vba,vb,excel2007 
閱讀權限
20 
性別
男 
註冊時間
2017-1-8 
最後登錄
2024-8-2 

論壇榮譽勳章論壇贊助勳章
2#
發表於 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

TOP

donod

帖子
140 
主題
24 
精華
0 
積分
167 
點名
0  
作業系統
WIN 7 
軟體版本
OFFICE 2007 
閱讀權限
20 
性別
男 
註冊時間
2012-2-26 
最後登錄
2023-1-30 
3#
發表於 2022-11-14 22:42 | 只看該作者
回復 2# singo1232001

可以了, 感謝前輩幫助!

TOP

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