[發問] kill row

帖子: 759
主題: 249
精華: 0
積分: 1021
點名: 0
作業系統: windows 11
軟體版本: OFFICE2021
閱讀權限: 50
性別: 男
註冊時間: 2011-5-30
最後登錄: 2024-11-22

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2015-1-18 09:44 | 只看該作者

[發問] kill row

之前我在跑某程序時，程序有問題
導致我按ctrl-end row居然到65536
我用mark 的方式刪除，刪除75-65536
按ctrl-end還是到65536 ??

Book1.zip (324.09 KB)

樓主熱帖

bobomi

中學生 Rank: 2

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

2^#

發表於 2015-1-18 10:56 | 只看該作者

EXCEL 應該本來就是這樣吧

你在 [A10000] 放入值 22, 然後整列刪除它

在按 ctrl-end row 它就直接圈選到 Row 10000

我也因為此感到困擾, 因為垂直捲軸會變得很難用

bobomi

中學生 Rank: 2

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

3^#

發表於 2015-1-18 11:02 | 只看該作者

你在空白頁執行一下 Sheet1.[A1:A800].Clear
按 ctrl-end row 它就直接圈選到 Row 800

帖子: 759
主題: 249
精華: 0
積分: 1021
點名: 0
作業系統: windows 11
軟體版本: OFFICE2021
閱讀權限: 50
性別: 男
註冊時間: 2011-5-30
最後登錄: 2024-11-22

4^#

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

你在空白頁執行一下 Sheet1.[A1:A800].Clear
按 ctrl-end row 它就直接圈選到 Row 800
bobomi 發表於 2015-1-18 11:02

無效啊?
我用這一句 Range("i74:i65536").EntireRow.Delete 也無效 :'(

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 自己的問題嗎

帖子: 759
主題: 249
精華: 0
積分: 1021
點名: 0
作業系統: windows 11
軟體版本: OFFICE2021
閱讀權限: 50
性別: 男
註冊時間: 2011-5-30
最後登錄: 2024-11-22

6^#

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

沒看懂我說的?

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

了解! 謝謝

版主 Rank: 7 Rank: 7 Rank: 7

准提部林

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

7^#

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

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

執行 ctrl + end

帖子: 759
主題: 249
精華: 0
積分: 1021
點名: 0
作業系統: windows 11
軟體版本: OFFICE2021
閱讀權限: 50
性別: 男
註冊時間: 2011-5-30
最後登錄: 2024-11-22

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 這行意思是?

帖子: 759
主題: 249
精華: 0
積分: 1021
點名: 0
作業系統: windows 11
軟體版本: OFFICE2021
閱讀權限: 50
性別: 男
註冊時間: 2011-5-30
最後登錄: 2024-11-22

9^#

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

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

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

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

版主 Rank: 7 Rank: 7 Rank: 7

准提部林

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

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內建說明檔可找到相關語法，花些時間在這找資料，可學到很多！
　