帖子: 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
可是如果篩選沒資料還是會刪到標題列
有什麼方式可以解決這問題?

樓主熱帖

字典兩各字還真難理解

Hsieh

超級版主 Rank: 8 Rank: 8

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 142
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2026-7-16

2025年全勤獎章 2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

2^#

發表於 2011-11-8 21:22 | 只看該作者

回復 1# freeffly

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

學海無涯_不恥下問

TOP

freeffly

高中生 Rank: 3 Rank: 3

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

熱烈參與勳章好學求知勳章

3^#

發表於 2011-11-9 08:34 | 只看該作者

回復 2# Hsieh

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

字典兩各字還真難理解

TOP

Hsieh

超級版主 Rank: 8 Rank: 8

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 142
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2026-7-16

2025年全勤獎章 2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

4^#

發表於 2011-11-9 10:44 | 只看該作者

回復 3# freeffly

不需要

學海無涯_不恥下問

TOP

a2305577

小學生 Rank: 1

帖子: 24
主題: 2
精華: 0
積分: 32
點名: 0
作業系統: WINDOW XP
軟體版本: OFFICE 2003
閱讀權限: 10
性別: 男
註冊時間: 2011-10-31
最後登錄: 2018-1-17

論壇贊助勳章

5^#

發表於 2011-11-9 15:39 | 只看該作者

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

TOP

freeffly

高中生 Rank: 3 Rank: 3

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

熱烈參與勳章好學求知勳章

6^#

發表於 2011-11-9 15:44 | 只看該作者

回復 4# Hsieh

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

字典兩各字還真難理解

TOP

Hsieh

超級版主 Rank: 8 Rank: 8

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 142
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2026-7-16

2025年全勤獎章 2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

7^#

發表於 2011-11-9 15:50 | 只看該作者

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

學海無涯_不恥下問

TOP

freeffly

高中生 Rank: 3 Rank: 3

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

熱烈參與勳章好學求知勳章

8^#

發表於 2011-11-15 13:49 | 只看該作者

回復 7# Hsieh

謝謝版主
要學的還很多

字典兩各字還真難理解

TOP