最終列の列番号を列文字に変換することはできますか？

例えばaaaがある列を探し、その列番号は４で列文字がDですが、
列番号から列文字をvbaで取得する方法はありますか？

Sub Sample()
Dim i As Long
Dim Colmoji As String

i = Rows(1).Find(What:="aaa", LookAt:=xlWhole).Column

Colmoji = i 'ここで列文字に変換したい
MsgBox i & "の列文字は" & Colmoji & "です"
End Sub

このようなコードを作ってみたのですが列文字に変換する方法がわかりません。

No.1 ベストアンサー 回答者： DOUGLAS_ 回答日時： 2013/03/12 21:14

　お示しのコードをできるだけ残して書き換えました。

Sub Sample()
　　Dim i As Range
　　Dim Colmoji As String
　　Set i = Rows(1).Find(What:="aaa", LookAt:=xlWhole)
　　Colmoji = i.Address
　　MsgBox i & "の列文字は" & Split(Colmoji, "$")(1) & "です"
End Sub

この回答へのお礼

ご回答ありがとうございます。

お礼日時：2013/03/19 21:55

No.4 回答者： JazzCorp 回答日時： 2013/03/13 00:42

Sub Sample()

Dim mm As Long
Dim nn As Long
Dim xRange As Range
Dim Colmoji As String
For nn = 1 To ActiveSheet.UsedRange.Rows.Count
Set xRange = Rows(nn).Find(What:="aaa", LookAt:=xlWhole)
If Not (xRange Is Nothing) Then
Colmoji = xRange.Address(True, False)
Colmoji = Left(Colmoji, InStr(Colmoji, "$") - 1)
Debug.Print "行：" & nn & "の列番号は" & Colmoji; ""
End If
Next
End Sub

この回答へのお礼

ご回答ありがとうございます。

お礼日時：2013/03/19 21:55

No.3 回答者： tom04 回答日時： 2013/03/12 21:41

こんばんは！

せっかくコードをお考えのようですが・・・

Sub Sample1()
Dim c As Range
Set c = ActiveSheet.Rows(1).Find(What:="aaa", LookIn:=xlValues, LookAt:=xlWhole)
MsgBox c.Address(False, False)
End Sub

といった感じではどうでしょうか？m(_ _)m

この回答へのお礼

ご回答ありがとうございます。

お礼日時：2013/03/19 21:55

No.2 回答者： DOUGLAS_ 回答日時： 2013/03/12 21:16

#1 DOUGLAS_ です。

＃ちょっとミスがありました。

MsgBox i.Column & "の列文字は" & Split(Colmoji, "$")(1) & "です"

ですね。

この回答へのお礼

ご回答ありがとうございます。

お礼日時：2013/03/19 21:55