Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


59696 / 76732 ←次へ | 前へ→

【21712】Re:重複するデータの削除について
回答  YN61  - 05/1/27(木) 20:49 -

引用なし
パスワード
   ▼もくたん さん:
>はじめまして、こんにちは。
>次の作業について、困っております。お知恵を拝借したいと考えております。
>
>   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
2 hits

【21692】重複するデータの削除について もくたん 05/1/27(木) 0:37 質問
【21693】Re:重複するデータの削除について IROC 05/1/27(木) 8:57 回答
【21712】Re:重複するデータの削除について YN61 05/1/27(木) 20:49 回答
【21713】Re:重複するデータの削除について Hirofumi 05/1/27(木) 21:21 回答
【21715】Re:重複するデータの削除について もくたん 05/1/27(木) 23:06 お礼

59696 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free