如何使用 Excel VBA 获取包含特定范围（例如 A 列和 B 列）内的数据的最后一个单元格Range("A:B")?
using Find像下面这样很有用，因为它
- 可以立即找到二维范围中的最后一个（或第一个）单元格
- 测试
Nothing识别空白范围
- 将在可能不连续的范围内工作（即
SpecialCells range)
change "YourSheet"到您正在搜索的工作表的名称
Sub Method2()
Dim ws As Worksheet
Dim rng1 As Range
Set ws = Sheets("YourSheet")
Set rng1 = ws.Columns("A:B").Find("*", ws.[a1], xlValues, , xlByRows, xlPrevious)
If Not rng1 Is Nothing Then
MsgBox "last cell is " & rng1.Address(0, 0)
Else
MsgBox ws.Name & " columns A:B are empty", vbCritical
End If
End Sub
本文内容由网友自发贡献，版权归原作者所有，本站不承担相应法律责任。如您发现有涉嫌抄袭侵权的内容，请联系:hwhale#tublm.com(使用前将#替换为@)
