Question

離れたセルの中にある同じ文字列をカウントしたいのですが、
B3～AQ3、B14～AQ14,B25～AQ25、B36～AQ36、B47～AQ47,B58～AQ58の中に
A73～A100に入力してある文字列をB73～B100に表示したい。
（上記範囲B4～AQ4・・・の範囲で同じ文字列A73～A100をC73～というふ
うに10回繰り返したい）
VBAで作ってみましたが、動きません。初心者です。

Sub カウント()
'
Dim R As Range
Dim i As String
Dim j As String
Dim k As String
Dim sNumber As String
Dim カウント As String
Dim sFormura As String

For i = 73 To 200
 If Cells(i, 1).Value = ”” Then Exit For
 R = Cells(i, 1).Value
    カウント = 0
    
    For j = 2 To 43
        For k = 3 To 58 Step 11
            sNumber = Cells(k, j)
            Formula = ”COUNTIF(sNumber,R)”
       
            カウント = sFormula
            Exit For
       
        Next k
    Next j
Next i

End Sub

どこがおかしいでしょうか？ご指導お願いします。

Answer 1

とりあえず主な文法上のことだけ書いておきます。
・Rangeオブジェクトの変数RにCells(i, 1).Value（文字列，または数値)
  を代入できません。
・多分入力ミスだと思いますが，変数i，j，kはStringではなくInteger
 です。
・セルにCOUNTIF関数を設定されているようですが，数式を設定するとき
 は　Range(アドレス).Formula=”=COUNTIF(・・・)” の形式になります。
 また，” ”の中は文字列なので，sNumberのような変数をそのまま使うこと
 は出来ません。
　”=COUNTIF(” & sNumber & ”,” & R & ”)”
 のような形で　&　でつなぎます。