|
>
>>>count関数をうまく使うことができません。
>これを書いたので誤解があったのかもしれません。
>すみません。
>
>このタイミングでカウントしたい!というのがあるので
>マクロボタンを作成して、組んでいました。
>
>よろしければ
>VBAで教えていただきたいです。
前回の投稿の数式入力操作をマクロの記録で実行すれば、土台はは
作ってくれますけどね!!
標準モジュールに
'===============================================================
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に数式を入れます。
出た結果を値に変換することだけ追加しました。
|
|