返回列表 上一主題 發帖

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

freeffly

帖子
586 
主題
123 
精華
0 
積分
763 
點名
0  
作業系統
WINDOW7 
軟體版本
Office 2003 
閱讀權限
50 
性別
男 
註冊時間
2010-5-16 
最後登錄
2017-3-14 

熱烈參與勳章好學求知勳章
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2011-11-8 15:28 | 顯示全部帖子

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

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

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

freeffly

帖子
586 
主題
123 
精華
0 
積分
763 
點名
0  
作業系統
WINDOW7 
軟體版本
Office 2003 
閱讀權限
50 
性別
男 
註冊時間
2010-5-16 
最後登錄
2017-3-14 

熱烈參與勳章好學求知勳章
2#
發表於 2011-11-9 08:34 | 顯示全部帖子
回復 2# Hsieh


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

TOP

freeffly

帖子
586 
主題
123 
精華
0 
積分
763 
點名
0  
作業系統
WINDOW7 
軟體版本
Office 2003 
閱讀權限
50 
性別
男 
註冊時間
2010-5-16 
最後登錄
2017-3-14 

熱烈參與勳章好學求知勳章
3#
發表於 2011-11-9 15:44 | 顯示全部帖子
回復 4# Hsieh

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

TOP

freeffly

帖子
586 
主題
123 
精華
0 
積分
763 
點名
0  
作業系統
WINDOW7 
軟體版本
Office 2003 
閱讀權限
50 
性別
男 
註冊時間
2010-5-16 
最後登錄
2017-3-14 

熱烈參與勳章好學求知勳章
4#
發表於 2011-11-15 13:49 | 顯示全部帖子
回復 7# Hsieh

  謝謝版主
要學的還很多
字典兩各字 還真難理解

TOP

        靜思自在 : 【時日莫空過】一個人在世間做了多少事，就等於壽命有多長。因此必須與時間競爭，切莫使時日空過。
返回列表 上一主題