基于范围的 Excel VBA 返回表的顶部单元格地址

Question

>我试图根据范围获取顶部单元格地址。 这里的"顶部单元格"是指工作表第一行中的单元格(行号应始终为 1(。 如果区域包含多列，请使用区域的第一列。

我的代码如下：

Sub main()
Dim rg As Range
Set rg = Range(Cells(10, 2), Cells(100, 2))
Debug.Print Range(rg.Cells(1, 1).EntireColumn.Address).Rows(1).Address(RowAbsolute:=False)
' Out put is $B1
End Sub

它按预期工作。 但我想知道是否有更简单的方法/表达来实现相同的目的。 谢谢！

Answer 1

使用Cells(1, rg.Column)

---

Option Explicit
Public Sub GetTopCell()
Dim rg As Range
With ActiveSheet
Set rg = .Range(.Cells(10, 2), .Cells(100, 9))
Debug.Print .Cells(1, rg.Column).Address(RowAbsolute:=False)    'Prints $B1
End With
End Sub

---

rg.Column提取定义范围内左上角单元格的列