excel中用vba怎样实现获取第一行的最末一列？

Question

如题。
例：
这样的话获取值为F。

Answer 1

方法很多：即可用：End(xlToRight).Column来获取，也可用：UsedRange.Columns.Count来获取！

但其值为字符或整型，在VBA中行号值不用英文字母AB来表示，见下图：

Answer 2

用 Range("a1").End(xlToRight)，如果中间有空单元格，不能获取最右侧单元格
可以用 Range("IV1").End(xlToLeft).Column

Answer 3

Sub Test004()
Dim CoLumn_Num As String
Dim Num As Long
Num = Range("IV1").End(xlToLeft).Column
If Num < 27 Then
CoLumn_Num = Chr(64 + Num)
ElseIf Num Mod 26 = 0 Then
CoLumn_Num = Chr(63 + Num \ 26) & Chr(90)
Else
CoLumn_Num = Chr(64 + Num \ 26) & Chr(64 + (Num) Mod 26)
End If
MsgBox "第一行最后一列:" & CoLumn_Num & "列"
End Sub
已经测试，放心使用本回答被网友采纳

Answer 4

Sub aa()
MsgBox Range("a1").End(xlToRight)
End Sub

结果：6

或：
Sub aa()
MsgBox "值为第:" & Range("a1").End(xlToRight).Column & "列"
End Sub
结果：
值为第6列，也就是F列了！

Answer 5

回答的都不对吧，没有仔细看题
下面还有“获取值为F”
也就是还要获取最后一个数值