t8899

帖子: 745
主題: 242
精華: 0
積分: 1000
點名: 0
作業系統: WINXP
軟體版本: OFFICE2003
閱讀權限: 50
性別: 男
註冊時間: 2011-5-30
最後登錄: 2024-4-20

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2015-1-18 09:44 | 顯示全部帖子

[發問] kill row

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

Book1.zip (324.09 KB)

樓主熱帖

t8899

大學生 Rank: 4

帖子: 745
主題: 242
精華: 0
積分: 1000
點名: 0
作業系統: WINXP
軟體版本: OFFICE2003
閱讀權限: 50
性別: 男
註冊時間: 2011-5-30
最後登錄: 2024-4-20

2^#

發表於 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 也無效 :'(

TOP

t8899

大學生 Rank: 4

帖子: 745
主題: 242
精華: 0
積分: 1000
點名: 0
作業系統: WINXP
軟體版本: OFFICE2003
閱讀權限: 50
性別: 男
註冊時間: 2011-5-30
最後登錄: 2024-4-20

3^#

發表於 2015-1-19 06:57 | 顯示全部帖子

沒看懂我說的?

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

了解! 謝謝

TOP

t8899

大學生 Rank: 4

帖子: 745
主題: 242
精華: 0
積分: 1000
點名: 0
作業系統: WINXP
軟體版本: OFFICE2003
閱讀權限: 50
性別: 男
註冊時間: 2011-5-30
最後登錄: 2024-4-20

4^#

發表於 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

t8899

大學生 Rank: 4

帖子: 745
主題: 242
精華: 0
積分: 1000
點名: 0
作業系統: WINXP
軟體版本: OFFICE2003
閱讀權限: 50
性別: 男
註冊時間: 2011-5-30
最後登錄: 2024-4-20

5^#

發表於 2015-1-19 18:50 | 顯示全部帖子

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

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

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

TOP

t8899

大學生 Rank: 4

帖子: 745
主題: 242
精華: 0
積分: 1000
點名: 0
作業系統: WINXP
軟體版本: OFFICE2003
閱讀權限: 50
性別: 男
註冊時間: 2011-5-30
最後登錄: 2024-4-20

6^#

發表於 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

t8899