標題: 如何刪除固定的列數 [打印本頁]

---

作者: man65boy    時間: 2018-9-20 09:43     標題: 如何刪除固定的列數

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

---

作者: 准提部林    時間: 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

---

作者: man65boy    時間: 2018-9-21 11:51

回復 2# 准提部林

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

---

作者: 准提部林    時間: 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

---

作者: hcm19522    時間: 2018-9-22 11:12

A:V格式化 自色白色 隱藏=MOD(ROW(A1)-1,15)<3

---

作者: man65boy    時間: 2018-9-25 08:47

回復 4# 准提部林

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

---

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