|
▼もくたん さん:
>はじめまして、こんにちは。
>次の作業について、困っております。お知恵を拝借したいと考えております。
>
> A B C D・・・
>1 住所 氏名 年齢
>2 東京都 あ 22
>3 埼玉県 え 40
>4 千葉県 う 17
>5 東京都 あ 22
>6 東京都 か 34
>・ ・ ・ ・
>・ ・ ・ ・
>・ ・ ・ ・
>(シート1)
sub 重複検出()
Dim Ks As String 'Ks・・・検索語
Dim Ts As Long 'Ts・・・対象数
Dim Kn As Integer 'Kn・・・確認
Range("A2"),Activate
Do Until ActiveCell.Value=""
Ks=ActiveCell.Value
Ts=WorksheetFunction.CountIf(Range("A:A"),Ks)
If Ts>=2 Then
ActiveCell.AutoFilter Field:=1,Criteria1:=ks
Kn=MsgBox("次を検索しますか?",vbYesNo)
If Kn=vbNo Then Exit Sub
End If
ActiveCell.Offset(1,0).Activate
Loop
MsgBox"終了しました。"
Range("A1").Select
End Sub
|
|