欢迎您访问52IJ教育培训网，今天小编为你分享的师说方面的学习知识是通过网络精心收集整理的：“usedrange_...的单元格的address在一个usedrange中，如第2行的最...”，注意：所整理内容不代表本站观点，如你有补充或疑问请在正文下方的评论处发表。下面是详细内容。
本文发布时间:2016-04-28 10:51 编辑:勤奋者
精选知识
Sub test002()
Dim rng As Range
Dim tem_rng
Dim i&
Dim temp%: temp = 0
For i = 1 To Sheet1.UsedRange.Rows.Count
Set rng = Sheet1.Range("IV" & i).End(xlToLeft)
If rng.Column > temp Then
temp = rng.Column
Set temp_rng = rng
End If
Next i
msgbox "本行，最后一个非空单元格所在的列最大！第" & temp_rng.Row & "行，第" & temp_rng.Column & "列"
msgbox "本列，最后一个非空单元格所在的行最大！第" & rng.Row & "行，第" & rng.Column & "列"
End Sub
测试了一下结果正确，你自己再试试吧
此外：
a为string类型
a=rng.Address(0,0) '返回相对地址，格式为 B1
a =rng.Address(1,1) '返回绝对地址，格式为$B$1
- 评论列表（网友评论仅供网友表达个人看法，并不表明本站同意其观点或证实其描述）
-