返回列表 上一主題 發帖

如何刪除固定的列數

如何刪除固定的列數

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

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
EXCEL參考資料:
http://blog.xuite.net/smile1000mile/blog

TOP

回復 2# 准提部林

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

TOP

回復 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
EXCEL參考資料:
http://blog.xuite.net/smile1000mile/blog

TOP

A:V格式化 自色白色 隱藏=MOD(ROW(A1)-1,15)<3
隨意窩 "EXCEL迷"  blog  或 http://blog.xuite.net/hcm19522/twblog
已收集5000篇 EXCEL函數

TOP

回復 4# 准提部林

謝謝準大的回答,幫了小弟的忙,祝準大"中秋節快樂"順心,謝謝你!

TOP

        靜思自在 : 【蒙蔽的自由】人常在什麼都可以自由自在的時候,卻被這種隨心所欲的自由蒙蔽,虛擲時光而毫無覺知。
返回列表 上一主題