|
▼kanabun さん:
またまた、回答を頂き、有難うございます!
早速、試してみた所、バッチリです。
kanabunのおかげで、私の理想通りのマクロができました。
感謝です。
kanabun さんって、マクロの天才ですね。
本当に助かりました。
早速ですが、明日会社で使用させて頂きます。
また、何か分からない事があれば投稿させて頂く事が
あるかと思いますが、宜しくお願いいたします。
私も独学ながら、少しずつVBAを勉強して精進して参ります。
有難うございました^^
>>重複データをカウントして、下記の様に MsgBox に
>>アウトプットする方法を教えて頂けませんか?
>> ↓
>>MsgBox "重複データが ●件あります"
>
>こうかな?
>
>Sub 重複Check()
> Dim n As Long
> With Range("K2:K" & Cells(Rows.Count, "E").End(xlUp).Row)
> .Offset(, -1).FormulaR1C1 = "=RC[-6]&RC[-5]"
> .Formula = "=IF(COUNTIF(J:J,J2)>1,""重複"","""")"
> .Value = .Value
> n = WorksheetFunction.CountA(.Cells)
> End With
> MsgBox "重複データは " & n & "件あります", , "チェック終了"
>End Sub
|
|