如何获得VBA中范围的第一个非空白单元格的列字母?

Question

我需要得到一个范围的第一个非空白单元格的列字母。这个范围基本上是一行的一部分，比如。

的例子:范围= A2:G2第一个非空白单元格在F2单元格上。需要获得'F'并将其存储在字符串变量中。得到这个最有效的方法是什么?

感谢

Answer 1

试试这个:

Sub columnName()
Dim mainRange As Range, cell As Range, columnName As String
Set mainRange = Range("A2:G2")
'Set mainRange = Selection
For Each cell In mainRange.Cells
If Not IsEmpty(cell.Value) Then
MsgBox Split(cell.Address, "$")(1)
Exit For
End If
Next cell
End Sub

Answer 2

您可以使用以下函数获取该列字母:

Function firstBlankCol(rg As Range) As String
Dim x
If rg(1) = "" Then
x = rg(1).Address
Else
x = rg(1).End(xlToRight).Offset(0, 1).Address
End If
firstBlankCol = Split(x, "$")(1)
End Function

但是，通常更简单的方法是处理列号，并将其用于Cells属性的column参数。

Function firstBlankCol(rg As Range) As Long
Dim x
If rg(1) = "" Then
x = rg(1).Column
Else
x = rg(1).End(xlToRight).Column + 1
End If
firstBlankCol = x
End Function