问visual studio vb -将单元格(Excel)地址从"C15“转换为行= 15，列=3

EN

Private Function xlCol(ByVal col As Integer) As String
  'col -= 1 'Uncomment this line if you are using 1-based column indices
  Dim s As String = ""
  If col < 0 Or col > 16383 Then
    Throw New ArgumentException(String.Format("{0} is an invalid column", col), "col")
  End If
  If col >= 26 ^ 2 Then
    s = Chr(64 + (col \ 26 \ 26) Mod 26)
  End If
  If col >= 26 Then
    s &= Chr(64 + (col \ 26) Mod 26)
  End If
  s &= Chr(65 + (col Mod 26))
  Return s
End Function