如何刪除固定的列數

如何再刪除固定的列數，除了標題A4列保留外，刪除其他固定的列位，如以下資料畫上顏色為刪除的對象，謝謝各位老師們幫忙。
附檔:

1070920.rar (51.16 KB)

樓主熱帖

准提部林

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 2848
主題: 10
精華: 0
積分: 2903
點名: 0
作業系統: 〔略〕
軟體版本: 〔略〕
閱讀權限: 100
性別: 男
來自: 〔略〕
註冊時間: 2013-5-13
最後登錄: 2026-7-25

2^#

發表於 2018-9-21 10:16 | 只看該作者

Sub Del_Lab()
Dim xC As Range, xR As Range, xU As Range
For Each xR In ActiveSheet.UsedRange.Columns(1).Cells
If xR <> "物品編號" Or xR.Row <= 4 Then GoTo 101
Set xC = xR(-2, 1).Resize(4)
If xU Is Nothing Then Set xU = xC Else Set xU = Union(xU, xC)
101: Next
If Not xU Is Nothing Then xU.EntireRow.Delete
End Sub

TOP

man65boy

中學生 Rank: 2

帖子: 169
主題: 39
精華: 0
積分: 252
點名: 0
作業系統: XP
軟體版本: 2003
閱讀權限: 20
註冊時間: 2011-4-17
最後登錄: 2020-7-17

2012龍年全勤獎章 2011兔年全勤獎章

3^#

發表於 2018-9-21 11:51 | 只看該作者

回復 2# 准提部林

謝准大大的回答，符合需求，感謝你，但在請准大在幫忙修改一下另一個檔，因為格式有稍不同，一樣是固定畫顏色的列位刪除，謝謝老師。

1070921.rar (11.6 KB)

TOP

准提部林

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 2848
主題: 10
精華: 0
積分: 2903
點名: 0
作業系統: 〔略〕
軟體版本: 〔略〕
閱讀權限: 100
性別: 男
來自: 〔略〕
註冊時間: 2013-5-13
最後登錄: 2026-7-25

4^#

發表於 2018-9-21 13:34 | 只看該作者

回復 3# man65boy

Sub Del_Lab()
Dim xC As Range, xR As Range, xU As Range
For Each xR In ActiveSheet.UsedRange.Columns(1).Cells
If xR <> "日期" Or xR.Row <= 4 Then GoTo 101
Set xC = xR(-3, 1).Resize(5)
If xU Is Nothing Then Set xU = xC Else Set xU = Union(xU, xC)
101: Next
If Not xU Is Nothing Then xU.EntireRow.Delete
End Sub

TOP

hcm19522