請問如何刪除多餘空白的資料列

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

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

2^#

發表於 2010-7-17 15:17 | 只看該作者

回復 1# PD961A

Sub nn()
With Range("A2", [A65536].End(xlUp))
.Replace "編號", ""
.SpecialCells(xlCellTypeBlanks).EntireRow.Delete
End With
End Sub

複製代碼

學海無涯_不恥下問

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

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

3^#

發表於 2010-7-17 16:14 | 只看該作者

將資料欄資料複製到新表
用編輯取代功能將第2列以下的"編號"字串清空
選取資料第一欄
編輯/到空格
右鍵刪除/刪除整列

學海無涯_不恥下問

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

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

4^#

發表於 2010-7-17 16:49 | 只看該作者

回復 5# PD961A

學海無涯_不恥下問

asimov

中學生 Rank: 2

帖子: 130
主題: 4
精華: 0
積分: 162
點名: 0
作業系統: xp
軟體版本: office 2003
閱讀權限: 20
註冊時間: 2010-5-7
最後登錄: 2011-7-16

5^#

發表於 2010-7-18 00:10 | 只看該作者

另外不好意思它可以不用用到VBA嗎??謝謝!!
PD961A 發表於 2010-7-17 15:28

如果A欄是數字編號
可以用進階篩選

機器人三大定律-保護人類、服從命令、保護自己
我的三大定律-生命、生存、生活

版主 Rank: 7 Rank: 7 Rank: 7

PD961A

帖子: 1180
主題: 204
精華: 0
積分: 1051
點名: 0
作業系統: Mac.OS10.6
軟體版本: Office 2003
閱讀權限: 100
性別: 男
註冊時間: 2010-5-3
最後登錄: 2012-9-19

2012龍年全勤獎章論壇貢獻勳章終身榮譽會員勳章好學求知勳章熱烈參與勳章 2011兔年全勤獎章

6^#

發表於 2010-7-18 15:24 | 只看該作者

回復 8# asimov

謝謝您
但是依照您的步驟他會顯示到另一個自選的儲存格.並且必須預設準則範圍欄
所以資料篩選後不會是在原來的A~B的位子...還是謝謝您的回文