"ベース" システムとしての文字のASCII値を使用し
の
"A" = 1 = ASCII値 - AのASCII値+ 1
"AA" = 27 = (AのASCII値 - A + 1のASCII値)
"BA" =(BのASCII値 - AのASCII値+1) * 26 +(AのASCII値 - AのASCII値+1)
Dim oWorksheet as Worksheet : Set oWorksheet = ActiveSheet
Dim iRow As Integer : iRow = 10
Dim strColumn as String : strColumn = "AZ"
Dim oCell as Range
Set oCell = oWorksheet.Cells(iRow, 1).Range(strColumn & "1")
oWorksheet.Cells(iRow, 1)
はあなたの所望の行の最初のセルを与え、.Range(strColumn & "1")
はあなたに与える:(桁-1)のパワー
Function GetIndex(ByVal str As String) As Integer
Dim i As Integer
str = str.ToUpper()
GetIndex = 0
For i = str.Length - 1 To 0 Step -1
GetIndex = GetIndex + (26^(str.Length - i - 1)) * (Asc(str(i)) - Asc("A") + 1)
Next
End Function
あなたの列番号が付けられていると(文字入り)を順次、あなたはおそらく隠された列を持っています。あなたのカラムTがカラム20でない場合、私は非常に驚くでしょう。Excelでは、テストするカラムに式= 'COLUMN()'を書くことでこれをテストできます。 –