excel - 範囲の値をセルの値に変更するには?

Question

私は機能を持っています:

=COUNTIF(Data!$V$6:$V$1029;Analyse_ALL!C7)

現時点では、「1029」(列のセル値を持つ最後の行) を手動で入力する必要があります。最後の行をカウントするvba関数を作成し、その結果をセルに書き込むようにしました。

vba 結果/セル値を関数に取り込むにはどうすればよいですか?

前もって感謝します！

Answer 1

1. 1029 だけではなく、VBA に完全な数式を記述させることができます。

   Range("**Coordinates of the formula**").Formula = "=COUNTIF(Data!$V$6:$V$"& **originalVBAresult** & ";Analyse_ALL!C7)"

2. 1029 を書き込むセルにリンクする COUNTIF 内に OFFSET を設定できます。

   =COUNTIF(OFFSET(Data!$V$6;0;0;**Cell with 1029 in it**);Analyse_ALL!C7)

Answer 2

このようなものを使用して

1. シートの V 列で最後に使用された行を検出するData
2. その行が 6 を超える場合は、この式を に追加しますA1(=COUNTIF(Data!$V$6:$VX;Analyse_ALL!C7)はX手順 1 の最後の行です) 。

コード

Sub InsertFormula()
Dim rng1 As Range
Set rng1 = Sheets("Data").Cells(Rows.Count, "V").End(xlUp)
If rng1.Row > 6 Then
[a1].FormulaR1C1 = "=COUNTIF(Data!R6C22:R" & rng1.Row & "C22,Analyse_ALL!R7C3)"
End If
End Sub