ryo********

2022/6/19 21:40

22回答

ExcelのVBAについてです。 画像のE列にCountIF関数を入れたいのですが、「引数の数が一致していません。または不正なプロパティを指定しています。」というメッセージが出てきます。

ExcelのVBAについてです。 画像のE列にCountIF関数を入れたいのですが、「引数の数が一致していません。または不正なプロパティを指定しています。」というメッセージが出てきます。 やりたいこととしては、C列を参照し、範囲内に同じ値段が一つしかなければその値段をE列に入れ、下にも同じ値段がある場合は空白にします。 これをVBAを使わずExcel関数で入力すると E3=IF(COUNTIF(C$3:$C5,C3)=1,C3,"") E4=IF(COUNTIF(C$4:$C5,C4)=1,C4,"") E5=IF(COUNTIF(C$5:$C5,C5)=1,C5,"") となっています。 VBAには Cells(i, 5) = WorksheetFunction.CountIf(Range(Cells(i, 3), Cells(i, 3).End(xlDown)), Range(Cells(i, 3)) = 1, Range(Cells(i, 3)), "") と入れています。 どうやったらできるのか教えていただきたいです。 有識者の方、宜しくお願い致します

画像

Visual Basic | Excel・175閲覧・xmlns="http://www.w3.org/2000/svg">25

ベストアンサー

0
Q*******

2022/6/20 0:54

範囲は広くなさそうなので こんなやり方も Sub test() With ActiveSheet.Range("E3:E5") .FormulaLocal = "=IF(COUNTIF(C3:C$5,C3)=1,C3,"""")" .Value = .Value End With End Sub

Q*******

2022/6/20 1:12

Cells(i, 3).End(xlDown) これは　$C5　の時　バグる可能性があるのでは？ 範囲がなぜと意味が少し分からないのですが Dim i As Long, r As Range Set r = Cells(3, 3).End(xlDown) For i = 3 To 5 If WorksheetFunction.CountIf(Range(Cells(i, 3), r), Cells(i, 3)) = 1 Then Cells(i, 5) = Cells(i, 3) Else Cells(i, 5) = "" End If Next

その他の回答（1件）

0
porihiko3

2022/6/20 8:38

こんにちは。 For i = 3 To Cells(i, 3).End(xlDown).Row v1 = WorksheetFunction.CountIf(Range(Cells(i, 3), Cells(i, 3).End(xlDown)), Cells(i, 3)) If v1 = 1 Then Cells(i, 5).Value = Cells(i, 3).Value Else Cells(i, 5).Value = "" End If Next さて、worksheetfunction.if がないのに、あるような雰囲気のコード だから、エラーということです。 でも、worksheetfunction.ifは、コードとしては存在しないので、 2段階で計算が必要ということです。 あとは、1行ごとに、関数の文字列そのものを埋め込むというもの