VBA如何获取某一行中最后一列的字母

把下边的代码放到模块中，

可以考虑在表格中加一个按钮指向这个宏代码。

你想查找哪一行，就先点击该行中的任意单元格，然后执行代码。

Sub shishi()

  Dim irow&, icol%, ix$

  irow = SelectionRow

  icol = ColumnsCount

  ix = Replace(Cells(1, Cells(irow, icol)End(1)Column)Address(0, 0), 1, "")

  If MsgBox("第" & irow & "行，最末列号为：" & ix & vbLf & vbLf & _

      "是否跳转到 " & ix & irow & " 单元格？", vbYesNo, "提示") = vbNo Then Exit Sub

  Range(ix & irow)Select

End Sub

要求不高就用上面的吧，那段代码缺点是 如果输入的范围超过excel的列范围就不行了。

给你段任意的吧：

    Dim N   As Long

    Dim C   As String

    C = InputBox("请输入列标")

    C = UCase(C)

    N = Asc(Mid(C, Len(C), 1)) - 64    '个位

    If Len(C) > 1 Then N = N + (Asc(Mid(C, Len(C) - 1, 1)) - 64)  26    '十位

    If Len(C) > 2 Then N = N + (Asc(Mid(C, Len(C) - 2, 1)) - 64)  26  26 '百位

    If Len(C) > 3 Then N = N + (Asc(Mid(C, Len(C) - 2, 1)) - 64)  26  26  26 '千位

    MsgBox N

End Sub

上面代码最多能转换 4 位字母的，如果更多，照着加上去就好了。

Set MC = Worksheets("Sheet1")Cells(1, 1)CurrentRegionEnd(xlToRight)

MsgBox Mid(MCAddress(), 2, InStr(2, MCAddress(), "$") - InStr(1, MCAddress(), "$") - 1)

以上就是关于VBA如何获取某一行中最后一列的字母全部的内容，包括:VBA如何获取某一行中最后一列的字母、excel中vba中通过input中的字母列标来得到其数字列表,用msgbox显示、excel vba中如何知道当前表格最大列标，注意是字母列标，而不是数字等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！