excel2007 VBA countif関数

Question

CountIf関数が使えなくて（構文エラーになる）困っています。ワークシートで試した時には、普通に動いていたのですが、、、、A列のデータに重複がないか調べるプログラムで、flag列というのがあって
ここに0が入っている行のデータのみ重複をチェックするようにする（途中）です。
矢印で書いた部分がおかしくて、なぜか構文エラーとなります。COUNTIF(A:A,A&i) という風に本当は使いたいのですが ":"で構文エラーになってしまいます。さんざん調べたのですが、私の力では解決できません。将来的にCOUNTIFのカウント数が1>でNGと表示させるつもりです。
よろしくお願いします。
    
'flagデータ数を配列に代入
    For i = 1 To lRow
        flag_column(i) = Cells(i + 1, flag_column_number).Value '各行の情報を配列に代入
     
    Next i

'配列が0の行についてCOUNTIF関数を実行
    For i = 1 To lRow
        If flag_column(i) = 0 Then
            j = COUNTIF(A1:A10, A & i）　　<- ここ
            Cells(i + 1, 6).Value = j
        End If
    Next i

junonboys2077 · Accepted Answer

こんばんわ

とりあえず、速報的な回答として、ワークシート関数をVBA上で使用する使い方が間違っている。

サンプルとしてこんな感じとか。
Sub ASD()
    Dim rRange As Range
    Dim j As Long
    Set rRange = Worksheets("Sheet1").Range("A1:A10")
    A = 1
    j = Application.WorksheetFunction.CountIf(rRange, A & i)
    MsgBox (j)
End Sub

ココとか
http://officetanaka.net/excel/vba/db/db02.htm

ココを参考にしてみて。
http://hinekure.vba-soft.com/?eid=484729

参考URL：http://hinekure.vba-soft.com/?eid=484729

imogasi · Answer

標準モジュールに
Sub test01()
j = WorksheetFunction.CountIf(Range("a1:A10"), 1)
MsgBox j
End Sub
で正しく件数をカウントしましたよ。２００７、２０１０でも変わりない。
（１）ワークシート関数をＶＢＡで使う場合、前にWorksheetFunction.またはApplication.WorksheetFunction.をつける必要があること。
（２）ＶＢＡでは、セル範囲を示す引数は、シートの場合のＡ１：Ａ１０などはＲａｎｇｅ("A1:A10")としなければならない。
あるいはＲａｎｇｅ（Ｃｅｌｌｓ（・・），Ｃｅｌｌｓ（・・））
（３）ＶＢＡではそのままは使えない関数がある。（本質問の件の関数のことではないが）
これらはＶＢＡでワークシートの関数を使うときの常識。
データ最下行が固定で無い場合は
Sub test02()
d = Range("a65536").End(xlUp).Row
'MsgBox d
j = WorksheetFunction.CountIf(Range("a1:A" & d), 1)
MsgBox j
End Sub
--
一般にエクセルのシートがメモリ的には配列的に考えられるので、データをさらに配列に入れることは必要が無いのでは？と
振り返ることが必要。
全般に少時間の勉強・経験で、ことをやろうとしている感じ。
まだまだ使うよりＶＢＡやエクセルの智識輸入の時期だろう。

keithin · Answer

そこにあるデータをなぜわざわざ配列に格納したいのか不明という回答：
sub macro1()
　dim c as long
　dim r as long
　dim i as long

c = あなたのflag_column_number
　r = あなたのlRow

for i = 1 to r
　　if cells(i + 1, c) = 0 then
　　　cells(i + 1, 6) = application.countif(range("A1:A10"), cells(i, "A"))
　　end if
　next i
end sub

アナタのヤリタイ流儀を最大限尊重した回答：
間違い：
j = COUNTIF(A1:A10, A & i）　　<- ここ
正解：
j = application.worksheetfunction.countif(range("A1:A10"), range("A" & i).value)

excel2007 VBA countif関数

こんばんわ

標準モジュールに

そこにあるデータをなぜわざわざ配列に格納したいのか不明という回答：

関連するカテゴリからQ&Aを探す

デイリーランキングこのカテゴリの人気デイリーQ&Aランキング

マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング