
    '-------------------------------------
    '   カラム位置を　英字→数字変換
    '-------------------------------------

	https://ateitexe.com/change-alphabet-integer/

	数値もアルファベットもカバーできるように、変換前後の変数はVariantで宣言しておいてください。

	Dim va As Variant
	DIM c_va As Variant

	va = "AA" '列のアルファベットor数値
	c_va = CNumAlp(va)


    '-------------------------------------
    '   カラム位置を　数字→英字変換
    '-------------------------------------

	アルファベットだった場合

	こちらはもっと簡単。Rangeの形で、.Columnで列番号にしてあげるだけ。

    '-------------------------------------
    '   カラム位置を　数字→英字変換 その２
    '-------------------------------------
    Dim colstrSTA As String     '英数変換後カラム 日付開始用
    colstrSTA = Cells(1, ActiveCell.Column).Address(True, False)
    colstrSTA = Left(colstrSTA, InStr(colstrSTA, "$") - 1)


     'カラム位置＋1を数字→英字変換

      Dim cilFreez As String
      cilFreez = Cells(1, ActiveCell.Column + 1).Address(True, False)
       cilFreez = Left(cilFreez, InStr(cilFreez, "$") - 1)ft(cilFreez, InStr(cilFreez, "$") - 1)

