Excel VBAで列のアルファベットを取得する方法です。
こんな表があるとします。
| 会員番号 | 名前 |
| 1 | やまだ |
| 2 | いとう |
| 3 | ごとう |
会員番号はA列、名前はB列です。
名前の列のアルファベットを取得するコードはこうなります。
|
1 |
Replace(Cells(1, WorksheetFunction.Match("名前", Range("A1:B1"), 0)).Address(True, False), "$1", "") |
Cells(1, 2).Address(True, False)
は「B$1」となるので、「$1」を消して「B]となります。
Cells(1, 2)の「2」はWorksheetFunction.Match("名前", Range("A1:B1"), 0)で取得できます。
A1:B1 に「名前」が見つからない場合、「WorksheetFunctionクラスのMatchプロパティを取得できません 」というエラーメッセージがでます。