関数は自分で作る

複数のセルの扱いは、 プロシージャ作りの基本です。Rangeコレクションを配列のように扱う？のです。メモリ上で隣り合わせに連続にあるんでおんなじようなもんです。開始番号が配列が０、コレクションは１というのが違う。

だから、Z入力の次はZ出力です。

Offsetを使ってRangeを配列？みたいに使いましょう。

Offset、For Eachに慣れましょうね。覚えましょう、学習しましょう。じゃなくて書いて実行してみましょう。

表形式のデータでTABキーで横に移動して最後の列でEnterキーを押すと 下の行の左端に移動 する。Z軌道です。

テーブルに設定すると全部TABキーです。横の移動TABキー。最後の列でもTABキーで下の行の左端に移動する。Z軌道です。

VBAでも同じです。Range(“A1:C3”)の範囲の各RangeをFor Eachで処理でするとZ軌道です。

以下のコードは、複数のセルを処理する時の基本形です。

'セル範囲もZ軌道
Function aa(r As Range)
    Dim x As Range
    For Each x In r
        Debug.Print x.Address(0, 0)
    Next
End Function
'aa excel.application.InputBox(prompt:="セル指定",type:=8)   'Type:=8は名前付き引数を使っている

ExcelのInputBoxはセルを指定できる。VBAのInputBoxにはその機能は無い。

私はFor EachとDo Loopばかりかもしれません。そんな時にあるセルの範囲を処理する時はZ。Zです。これで何とかなります。

動的配列数式なるものが実現する前に配列とカスタム関数／自作関数に慣れておきましょう。

myUniqe関数を改造して、２列目に出現回数を入れるようにしました。

'ユニーク、一意のデータを１列目、出現回数を２列名に出力
Function myUniqe2(r As Range)
    Dim col As New Collection 'コレクションオブジェクト
    Dim colAll As New Collection
    Dim x
    For Each x In r '引数のRangeオブジェクトを個々にxに入れる
        colAll.Add VBA.CStr(x)
        On Error GoTo myErr 'エラーの罠
        col.Add VBA.CStr(x), VBA.CStr(x)
        On Error GoTo 0 'エラートラップのリセット
    Next
    ReDim ar(10000, 1)  'NA大作のため大きめの配列にした。１は0と１で2列
    Dim i As Integer, cnt As Integer
    Dim xx
    For Each x In col '一意なコレクション
        cnt = 0 '個数の初期化
        For Each xx In colAll '全データ
            If xx = x Then cnt = cnt + 1 '全データを順番にxxに入れてｘと比較
        Next
        ar(i, 0) = x '値
        ar(i, 1) = cnt '個数
        i = i + 1
    Next
    myUniqe2 = ar
    Exit Function
myErr: 'ラベル：を付ける
    Resume Next
End Function