vba判断excel最后一行最后一列
(2012-07-03 10:12:48)
标签:
杂谈 |
分类: 电脑应用技巧 |
-
Function
LastColumn() AsLong -
Dim ix AsLong -
ix = ActiveSheet.UsedRange.Column - 1 + ActiveSheet.UsedRange.Columns.Count -
LastColumn = ix -
End
Function -
-
-
Function
LastRow() AsLong -
Dim ix AsLong -
ix = ActiveSheet.UsedRange.Row - 1 + ActiveSheet.UsedRange.Rows.Count -
LastRow = ix -
End
Function