数字の列番号を文字の列名にする方法

行列で処理するには
r:行番号 仮に 4
c:列番号 仮に 10 だったとする

ssht.Cells(RR, CC) = “=int(” + Cells(r, c).Address(False, False) + “/3)”

RR,CC には、
=INT(J5/3)
が、入る。

Addess オプション

Object.Address(RowAbsolute, ColumnAbsolute, ReferenceStyle,External, RelativeTo) ※取得のみ

Object Rangeオブジェクト
RowAbsolute True：行の絶対参照（既定値）、False：相対参照　[省略可能]
ColumnAbsolute True：列の絶対参照（既定値）、False：相対参照　[省略可能]
ReferenceStyle 参照形式の指定を定数で指定。既定値はxlA1　[省略可能]
External True：外部参照形式、False：ローカル参照（既定値）[省略可能]
RelativeTo 相対参照形式での基準となるRangeオブジェクトを指定　[省略可能]

便利な Split 関数

Split
Dim aaa, bbb
aaa = Split(“1$2”, “$”)(0)
bbb = Split(“1$2”, “$”)(1)
aaaには、1 bbbには2 が入る。

Split サンプル

Dim tmp As Variant
tmp = Split(“123,abc,1s23”, “,”)
tmp(0):123
tmp(1):abc
tmp(2):1s23