Excel VBA質問箱 IV

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

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


39537 / 76732 ←次へ | 前へ→

【42305】Re:重複データのチェック
回答  Kein  - 06/9/6(水) 9:32 -

引用なし
パスワード
   アクティブシートのA列をチェックし、結果をイミディエイトウィンドウに
出力します。IV列を作業列として使います。

Sub Check_Uniq_Data()
  Debug.Print "[ 重複があるデータ ]"
  On Error Resume Next
  With Range("A1", Range("A65536").End(xlUp)).Offset(, 255)
   .Formula = _
   "=IF(AND(COUNTIF(A:A,A1)>1,MATCH(A1,A:A,0)=ROW()),A1,0)"
   For Each C In .SpecialCells(3, 2)
     Debug.Print C.Value
   Next
   .ClearContents
  End With
  On Error GoTo 0
  With Application.VBE.MainWindow
   .Visible = True
   .SetFocus
  End With
  SendKeys "^(g)", True
End Sub

0 hits

【42302】重複データのチェック トホホ 06/9/6(水) 9:15 質問
【42304】Re:重複データのチェック Jaka 06/9/6(水) 9:25 発言
【42314】Re:重複データのチェック トホホ 06/9/6(水) 13:53 お礼
【42305】Re:重複データのチェック Kein 06/9/6(水) 9:32 回答
【42363】Re:重複データのチェック はじめまして 06/9/8(金) 9:24 質問
【42365】Re:重複データのチェック Kein 06/9/8(金) 10:17 発言
【42366】Re:重複データのチェック はじめまして 06/9/8(金) 10:23 お礼

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