以下の文の[-1899]の部分を可変型にしたいのですが。
どなたかご存知有りませんか?
ActiveCell.FormulaR1C1 = "=COUNTIF(R[-1899]C:R[-1]C,""いっしょだよ"")"
====================================
マクロの説明です。
====================================
エクセルマクロでsheet1にデータを入力していって、
sheet1のD列内に同一のコードがないかをチェックするために
sheet1のコピーを作成してD列でソートしてから
D列の1行目=2行目ならK列に”いっしょだよ”という
メッセージを出すようにIF文を書きこんでいきます。
最後にこの”いっしょだよ”というメッセージが何件あったかを見たいので、
一番下の行+1行目に
ActiveCell.FormulaR1C1 = "=COUNTIF(R[-1899]C:R[-1]C,""いっしょだよ"")"
という文を入れたのですがこれだと自分が居る一つ上のセルから
1899上までしか行かないのですが、毎回データを入力して行数は増えていってしまいます。
どのような、文にしたらよいのか教えてください。
お願いいたします。
No.1ベストアンサー
- 回答日時:
こんにちは。
VBEのコードエディタの画面を出して、
次のコードを標準モジュールに貼り付けてください。
D列の1行目から、最後の行のひとつ上の行までを検査して、
最後の行のセルと同じデータが何件あるか数えるマクロです。
とくに、ソートをかける必要はありません。
あくまでも検査内容は「D列最後の行」にあるデータと比較して、
同じ内容のデータがD列に何個あるかです。
データ全体に、重複データがあるかどうかを検査するものではないので、
誤解しないようにしてください。
なお、「Const lngCol As Long = 4」の行が、D列で検査することを示しています。
Option Explicit
Sub test()
Const lngCol As Long = 4 'D列
Dim lngMaxRow As Long
Dim lngCount As Long
Dim i As Long
Dim strValue As String
'指定列のデータの最終行を取得
lngMaxRow = Cells(ActiveSheet.Rows.Count, lngCol).End(xlUp).Row
If lngMaxRow = 1 Then Exit Sub
'最終行の入力内容を取得
strValue = Cells(lngMaxRow, lngCol).Value
'1行目から最終-1行目まで、同じデータがあったらカウント
For i = 1 To lngMaxRow - 1
If Cells(i, lngCol).Value = strValue Then
lngCount = lngCount + 1
End If
Next i
'カウント数の表示
Select Case lngCount
Case Is = 0
MsgBox "最終行のデータと同一データは、見つかりませんでした"
Case Else
MsgBox "最終行のデータと同一データは、 " & lngCount & " 件です。"
End Select
End Sub
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) 表示形式、文字列セル(列)に数式を入力するには マクロ 1 2022/09/18 10:53
- Visual Basic(VBA) サブフォルダ(データ)にある複数の.xlsxファイルのSheet3のA2セルの値で01から左側をB2 2 2022/08/14 15:46
- Visual Basic(VBA) 3つのプロシージャをまとめたら実行時エラー発生で対応不能 6 2022/05/17 01:47
- Visual Basic(VBA) 2つのシートの任意のセルの番号が一致したら、一致した行をコピーする VBA 2 2023/06/19 20:48
- Excel(エクセル) Excelの空文字判定について 7 2023/01/06 13:25
- Visual Basic(VBA) VBAで最新のデータを別シートに転記する方法をお教えください。 3 2022/04/07 19:20
- Visual Basic(VBA) Excel vbaについて知恵もしくは、コード教えて下さいm(__)m ① 表にあるデータをコピー、 2 2022/09/01 23:57
- Visual Basic(VBA) vba 等間隔の列に対しての計算 6 2022/05/17 20:15
- Visual Basic(VBA) vbaエクセルマクロ RemoveDuplicatesについて RemoveDuplicatesを使 1 2023/02/27 22:21
- 計算機科学 Excel ある行と列が交わったところにマークを付けるには 7 2023/01/24 08:46
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
首吊りどこ締めるの
-
至急!尿検査前日にオナニーし...
-
白血球が多いとどんな心配があ...
-
中出しをするとお腹が痛い・・・。
-
エクセルでエラーが出て困って...
-
彼女のことが好きすぎて彼女の...
-
検便についてです。 便は取れた...
-
勃起する時って痛いんですか? ...
-
納豆食べた後の尿の納豆臭は何故?
-
小数点以下を繰り上げたものを...
-
これって喉仏ですか? 私は女性...
-
尿検査の前日は自慰控えたほう...
-
値が入っているときだけ計算結...
-
健否~書類の書き方~
-
EXCELで条件付き書式で空白セル...
-
精子が黄色?
-
2つの数値のうち、数値が小さい...
-
麻疹風疹の抗体検査結果につい...
-
EXCELの条件付き書式で数式を空...
-
エクセルのラベルの値(文字列...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
首吊りどこ締めるの
-
エクセルでエラーが出て困って...
-
中出しをするとお腹が痛い・・・。
-
白血球が多いとどんな心配があ...
-
検便についてです。 便は取れた...
-
彼女のことが好きすぎて彼女の...
-
EXCELで条件付き書式で空白セル...
-
勃起する時って痛いんですか? ...
-
納豆食べた後の尿の納豆臭は何故?
-
精子が黄色?
-
至急!尿検査前日にオナニーし...
-
小数点以下を繰り上げたものを...
-
これって喉仏ですか? 私は女性...
-
値が入っているときだけ計算結...
-
口の中に黒い血の塊
-
舌の裏の痛みのないプツプツの...
-
甲状腺が腫れているが血液検査...
-
Excelで""で囲む方法
-
健否~書類の書き方~
-
リンク先のファイルを開かなく...
おすすめ情報