kill row - Excel程式區 - 麻辣家族討論版版

帖子: 764
主題: 254
精華: 0
積分: 1031
點名: 0
作業系統: windows 11
軟體版本: OFFICE2021
閱讀權限: 50
性別: 男
註冊時間: 2011-5-30
最後登錄: 2025-7-18

11^# 跳轉到 »

發表於 2015-1-19 21:35 | 只看該作者

本帖最後由 t8899 於 2015-1-19 21:41 編輯

回復 t8899

Range("i74:i65536").EntireRow.Delete
Dim xE As Range
With ActiveSheet.Used ...
准提部林發表於 2015-1-19 21:00

我寫一個巨集，刪掉最後一列(已使用)後面"沒用的列"都可套用
Sub a133323()
Dim a
Set a = Cells.Find(What:="*", LookIn:=xlFormulas, SearchOrder:=xlByRows, SearchDirection:=xlPrevious)
If Not a Is Nothing Then
e = a.Offset(1).Address
b = ActiveSheet.UsedRange.Rows.Count
c = "d" & b 'd任何欄名皆可
Range(e, c).EntireRow.Delete
End If
ActiveSheet.UsedRange
End Sub

TOP

准提部林

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 2843
主題: 10
精華: 0
積分: 2899
點名: 0
作業系統: 〔略〕
軟體版本: 〔略〕
閱讀權限: 100
性別: 男
來自: 〔略〕
註冊時間: 2013-5-13
最後登錄: 2025-7-19

10^#

發表於 2015-1-19 21:00 | 只看該作者

回復 9# t8899

Range("i74:i65536").EntireRow.Delete
Dim xE As Range
With ActiveSheet.UsedRange
　　　Set xE = .Item(.Count)
　　　MsgBox "最後一格〔位址〕：" & xE.Address
　　　MsgBox "最後一格〔列號〕：" & xE.Row
　　　MsgBox "最後一格〔欄號〕：" & xE.Column
　　　MsgBox "最後一格〔欄名〕：" & Split(xE.Address, "$")(1)
End With

取得〔最後一列〕方法有多種，例如：End(xlUp), End(xlDown)
不過依據實際資料來判斷較準確！
VBE內建說明檔可找到相關語法，花些時間在這找資料，可學到很多！
　

TOP

t8899

大學生 Rank: 4

帖子: 764
主題: 254
精華: 0
積分: 1031
點名: 0
作業系統: windows 11
軟體版本: OFFICE2021
閱讀權限: 50
性別: 男
註冊時間: 2011-5-30
最後登錄: 2025-7-18

9^#

發表於 2015-1-19 18:50 | 只看該作者

Range("i74:i65536").EntireRow.Delete
ActiveSheet.UsedRange

執行 ctrl + end
准提部林發表於 2015-1-19 10:15

再請教:
同此問題，找最後一列的語法 ???

TOP

t8899

大學生 Rank: 4

帖子: 764
主題: 254
精華: 0
積分: 1031
點名: 0
作業系統: windows 11
軟體版本: OFFICE2021
閱讀權限: 50
性別: 男
註冊時間: 2011-5-30
最後登錄: 2025-7-18

8^#

發表於 2015-1-19 10:23 | 只看該作者

本帖最後由 t8899 於 2015-1-19 10:32 編輯

Range("i74:i65536").EntireRow.Delete
ActiveSheet.UsedRange

執行 ctrl + end
准提部林發表於 2015-1-19 10:15

謝謝!可以了,這沒砍掉，檔案大小多了2,500,000 /kb 左右
ActiveSheet.UsedRange 這行意思是?

TOP

准提部林

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 2843
主題: 10
精華: 0
積分: 2899
點名: 0
作業系統: 〔略〕
軟體版本: 〔略〕
閱讀權限: 100
性別: 男
來自: 〔略〕
註冊時間: 2013-5-13
最後登錄: 2025-7-19

7^#

發表於 2015-1-19 10:15 | 只看該作者

Range("i74:i65536").EntireRow.Delete
ActiveSheet.UsedRange

執行 ctrl + end

TOP

t8899

大學生 Rank: 4

帖子: 764
主題: 254
精華: 0
積分: 1031
點名: 0
作業系統: windows 11
軟體版本: OFFICE2021
閱讀權限: 50
性別: 男
註冊時間: 2011-5-30
最後登錄: 2025-7-18

6^#

發表於 2015-1-19 06:57 | 只看該作者

沒看懂我說的?

開啟1個新 EXCEL 檔案 -> vba 執行 Sheet1.[A1:A800].Clear -> 返回 Sheet1 -> ...
bobomi 發表於 2015-1-18 21:35

了解! 謝謝

TOP

bobomi

中學生 Rank: 2

帖子: 181
主題: 5
精華: 0
積分: 197
點名: 0
作業系統: XP
軟體版本: 2000
閱讀權限: 20
性別: 女
註冊時間: 2014-3-9
最後登錄: 2024-4-29

5^#

發表於 2015-1-18 21:35 | 只看該作者

無效啊?
我用這一句 Range("i74:i65536").EntireRow.Delete 也無效
t8899 發表於 2015-1-18 21:02

沒看懂我說的?

開啟1個新 EXCEL 檔案 ->  vba 執行  Sheet1.[A1:A800].Clear ->  返回 Sheet1 ->  按 shift + ctrl  + end  -> EXCEL 就直接圈選到 Row 800

可是我們根本沒填資料不是嗎? 只是執行 Clear 而已,  因為Clear 指定的範圍極限是 Row = 800

按 shift + ctrl  + end 後 Excel 它就自己反白到 Row = 800 ( 800 不正好就是剛剛 Clear 指定的列數嘛 )

所以這不是 EXCEL 自己的問題嗎

TOP

t8899