[分享] usedrange

Sub usedrange行列()
Dim Col_Count As Long
With ActiveSheet.UsedRange
For Col_Count = .Columns.Count To 1 Step -1
If WorksheetFunction.CountA(.Item(1).Resize(1, .Columns.Count)(Col_Count).EntireColumn) = 0 Then
.Item(1).Resize(1, .Columns.Count)(Col_Count).EntireColumn.Delete
End If
Next
End With
Dim Row_Count As Long
With ActiveSheet.UsedRange
For Row_Count = .Rows.Count To 1 Step -1
If WorksheetFunction.CountA(.Item(1).Resize(.Rows.Count, 1)(Row_Count).EntireRow) = 0 Then
.Item(1).Resize(.Rows.Count, 1)(Row_Count).EntireRow.Delete
End If
Next
End With
With ActiveSheet.UsedRange
MsgBox "已用的区域地址为：" & .Address & Chr(13) & "最大行为：" & .Rows.Count & Chr(13) & "最大列为：" & .Columns.Count _
& Chr(13) & "共有单元格数：" & .Cells.Count & Chr(13) & "第一行为：" & .Item(1, 1).Row & Chr(13) & "第一列为：" & .Item(1, 1).Column

End With
End Sub

大家再想想，还有什么忘掉的，因为usedrange非常特别

樓主熱帖

学习

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

2^#

發表於 2010-7-10 15:57 | 只看該作者

回復 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