如何在Excel內用快速鍵設定動態範圍？

Question

如題，我有一個從某資料庫程式轉換出來的excel表格資料檔，
內容不算亂，只是一大堆空白欄位要去刪除~~!

我不求高深的程式語言技巧，最好是能像錄製巨集這般，
快速鍵設定完後，我移到那個儲存格或行、列開頭，按個鍵就自動
選取我要的幾個儲存格或幾列、行？

請教各位高手!!

嗯，感謝"辛苦"的回答~~^^
可是那只解決我問題的一部份。我更希望，
有可以設定固定範圍的快速鍵~~
嗯，程式也行，不過我就只有20點。:p

ㄜ，"辛苦"的code編譯失敗...

嗯，說錯了，執行階段錯誤。不好意思，查ㄕㄧbug的事我就不參加了~~~

Answer 1

你會不會用巨集? 先編輯巨集.再將下列的code輸入在巨集內.如果欄位B 的資料為0 既可整列刪除Sub find_range_delete()'' delete the row contant with FALSE and also use the function below''找B欄任何有空格的儲存格然後整行刪除Find_Range(" ", Columns("b:b"), MatchCase:=True).EntireRow.DeleteEnd SubFunction Find_Range(Find_Item As Variant, _    Search_Range As Range, _    Optional LookIn As Variant, _    Optional LookAt As Variant, _    Optional MatchCase As Boolean) As Range         Dim c As Range    If IsMissing(LookIn) Then LookIn = xlValues 'xlFormulas    If IsMissing(LookAt) Then LookAt = xlPart 'xlWhole    If IsMissing(MatchCase) Then MatchCase = False    With Search_Range        Set c = .Find(What:=Find_Item, LookIn:=LookIn, _        LookAt:=LookAt, SearchOrder:=xlByRows, _        SearchDirection:=xlNext, MatchCase:=MatchCase)        If Not c Is Nothing Then            Set Find_Range = c            FirstAddress = c.Address            Do                Set Find_Range = Union(Find_Range, c)                Set c = .FindNext(c)            Loop While Not c Is Nothing And c.Address <> FirstAddress        End If    End With     End Function你可先在活頁簿上弄個按鈕在編輯巨集.然後只移動儲存格再按結束.然後到工具>巨集>編輯巨集將我的code貼上去就可以了.然後再到excel的活頁簿上按這個鈕.你的欄位B 的資料為0 的話.就會整列刪除了.

2005-10-26 08:50:24 補充：
在錄巨集時可以自選快速鍵..這和用巨集按鈕沒有不同

2005-10-27 09:21:09 補充：
那裡不行? 說來聽聽．

2005-11-02 00:02:23 補充：
我在自用電腦用沒問題..但是在網上下載就debug了..建議存到c槽再試..

Answer 2

你的意見我覺得簡潔多了~~

Answer 3

試試看這個方法吧
http://tw.knowledge.yahoo.com/question/?qid=1305090908048

Answer 4

[辛苦]大大，受教了。
但不知此方式的是否也可設快速鍵？
如此對使用者可以比巨集按鈕方便。