Hsieh

回復 6# yowhome
不是要刪除綠色部分的整列嗎?
也就是黃表格下面留2列空白列不是嗎?

1. Sub ex()
   
2. With ActiveSheet.UsedRange
   
3. Set rng = .Columns(2).SpecialCells(xlCellTypeBlanks)
   
4. For Each a In rng.Areas
   
5.    If a.Count > 2 Then a.Cells(1).Offset(1).Resize(a.Count - 2, 1).EntireRow.Delete
   
6. Next
   
7. End With
   
8. End Sub

複製代碼