Question

如何将数字转换为字母数字单元格引用？例如，我有数字行col（0,1），我想转换为标准MS Excel字母数字col，行（B，1）？对不起，我不知道描述不同单元格引用的正确术语。

我想用数字单元格引用编写VB.NET代码，所以我的代码可以迭代但转换为字母数字，这样我就可以在我的电子表格中插入公式。

Answer 1

要从数字列指示符转换为字母指示符，请考虑：

Sub qwerty()
    n = 134
    s = Cells(1, n).Address(0, 0)
    MsgBox Left(s, Len(s) - 1)
End Sub

修改＃1 ：

对于执行转换的功能：

Public Function ColumnId(N As Long) As String s = Cells(1, N).Address(0, 0) ColumnId = Left(s, Len(s) - 1) End Function

Answer 2

如果您想获得完整地址。然后，您可以使用范围的.Address属性。

如果要分隔行和列，则可以使用Split上的$将地址拆分为各个部分。

Sub RangeAddressTest()

Dim cell As Range
Dim fullAddress As String
Dim rowAddress As String, columnAddress As String

Dim detailsArray As Variant

'select your cell
Set cell = ActiveSheet.Cells(30, 25)



fullAddress = cell.Address

detailsArray = Split(fullAddress, "$")

columnAddress = detailsArray(1)
rowAddress = detailsArray(2)


MsgBox "Full Address: " & fullAddress _
        & vbCrLf & vbCrLf & _
       "Column Address: " & columnAddress _
        & vbCrLf & vbCrLf & _
       "Row Address: " & rowAddress

End Sub

Answer 3

感谢您对我的问题的回答，两者看起来都应该有效，但在环顾四周时，我从Aspose论坛找到了一个非常简单的答案，用两行代码完成工作。感谢您的想法 - 我通过了解不同的方法来了解更多相关解决方案。

Aspose论坛：根据我的理解，您希望在“A1”（单元名称）的语法中获取单元格引用。您可以考虑使用以下代码片段返回单元格[0,0]的字母数字单元格引用。

VB

Dim r As Integer = 0，c As Integer = 0

Dim Cell As String = CellsHelper.ColumnIndexToName（c）+（r + 1）

将数字转换为字母数字excel单元格引用

3 个答案: