標題: [發問] (已解決)自動篩選-不刪除標題列 [打印本頁]

---

作者: freeffly    時間: 2011-11-8 15:28     標題: (已解決)自動篩選-不刪除標題列

本帖最後由 freeffly 於 2012-2-22 16:55 編輯

想要刪除不需要的資料
但是又不想檢查該資料是不是已經不存在
如果用vba刪除
都會刪到標題列
在網路上有看到這個類似的程式碼如下
ActiveSheet.UsedRange.Offset(1).SpecialCells(xlCellTypeVisible).EntireRow.Delete
可是如果篩選沒資料還是會刪到標題列
有什麼方式可以解決這問題?

---

作者: Hsieh    時間: 2011-11-8 21:22

回復 1# freeffly

如果標題列不在第一列才會發生標題列被刪除的問題
改用自動篩選範圍
ActiveSheet.AutoFilter.Range.Offset(1).SpecialCells(xlCellTypeVisible).EntireRow.Delete

---

作者: freeffly    時間: 2011-11-9 08:34

回復 2# Hsieh


    謝謝版主
   這個方法可以
   如果使用原本的方式
   標題列在第4行是要將offset(1)改成offset(5)嗎?

---

作者: Hsieh    時間: 2011-11-9 10:44

回復 3# freeffly


    不需要

---

作者: a2305577    時間: 2011-11-9 15:39

我也懂了！希望下有機會來試看看
看文章學經驗

---

作者: freeffly    時間: 2011-11-9 15:44

回復 4# Hsieh

     版主我的意思是用下面這一各方式是要改Offset(4)這裡才能達到同樣效果嗎(標題列第4行)
    ActiveSheet.UsedRange.Offset(1).SpecialCells(xlCellTypeVisible).EntireRow.Delete

---

作者: Hsieh    時間: 2011-11-9 15:50

回復 6# freeffly
用MsgBox ActiveSheet.UsedRange.Offset(1).Address
去看位址變化就知道該怎麼做了

---

作者: freeffly    時間: 2011-11-15 13:49

回復 7# Hsieh

  謝謝版主
要學的還很多

---

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