- 帖子
- 5923
- 主題
- 13
- 精華
- 1
- 積分
- 5986
- 點名
- 0
- 作業系統
- win10
- 軟體版本
- Office 2010
- 閱讀權限
- 150
- 性別
- 男
- 來自
- 台灣基隆
- 註冊時間
- 2010-5-1
- 最後登錄
- 2022-1-23
        
|
回復 1# wqfzqgk
2003 為例
繁體版 A-IV 稱為欄 1- 65536 稱為列
簡體版 A-IV 稱為列 1- 65536 稱為行
簡化樓主的分享程式 並改為繁體- Sub Usedrange行列()
- Dim i%
- With ActiveSheet.UsedRange
- For i = .Columns.Count To 1 Step -1
- If Application.CountA(.Columns(i)) = 0 Then .Columns(i).Delete
- Next
- For i = .Rows.Count To 1 Step -1
- If Application.CountA(.Rows(i)) = 0 Then .Rows(i).Delete
- Next
- MsgBox "已用的區域地址為：" & .Address & Chr(13) & "最大列為 : " & .Cells(.Count).Row & Chr(13) & "最大欄為 : " & .Cells(.Count).Column _
- & Chr(13) & "共有單元格數：" & .Count & Chr(13) & "第一列為 : " & .Cells(1).Row & Chr(13) & "第一欄為 : " & .Cells(1).Column
- End With
- End Sub
|
|
發表於 2010-7-10 15:57
| 