|
▼ichinose さん:
ご丁寧にありがとうございました。
数式をいれたらマクロ記録でもできるんですね。
恥ずかしながら思い浮かびませんでした。。
勉強になりました。
>前回の投稿の数式入力操作をマクロの記録で実行すれば、土台はは
>作ってくれますけどね!!
>
>標準モジュールに
>
>'===============================================================
>Sub main()
> Dim rng As Range
> Set rng = Range("a1", Cells(Rows.Count, "a").End(xlUp))
> With Range("f1:g5")
> .Formula = Array( _
> "=COUNTIF(" & rng.Address & ",ROW())", _
> "=SUMPRODUCT((" & rng.Address & "=ROW())*(" & _
> rng.Offset(0, 1).Address & "=""○""))")
> .Value = .Value
> End With
>End Sub
>
>VBAで行ってもほぼ同じですよ!!
>セルF1からG5に数式を入れます。
>出た結果を値に変換することだけ追加しました。
|
|