Excel VBA質問箱 IV

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

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


9573 / 76732 ←次へ | 前へ→

【72720】重複文字の書き出し
質問  Aoichi  - 12/9/8(土) 12:45 -

引用なし
パスワード
   以下のようなコードで重複コードを別シートに書き出したのですが
2度同じコードを書きださないようにしたい
作成したマクロでは全て書き出されてしまい
何か良い方法がありましたらご教示お願いします

商品コード
A001
A002
A004
A002
A005
A001
A007
A003
A003
A001

Sub 重複()
  Dim Rng As Range
  Dim i As Long
  Dim cnt As Long
  Dim jyufukulng As Long
  Dim Gyou As Integer
  Dim LastRow As Long
  
  Worksheets("重複Data").Activate
  Set Rng = Range("C4", Range("C65536").End(xlUp))
  Gyou = 4
  LastRow = Cells(65536, 3).End(xlUp).Row
  For i = Cells(65536, 3).End(xlUp).Row To 4 Step -1
    Worksheets("重複Data").Activate
    With Worksheets("重複Data").Range("C4")
       .AutoFilter Field:=1, Criteria1:=Cells(i, 3).Value
       jyufukulng = WorksheetFunction.CountIf(Rng, Cells(i, 3).Value)
       If jyufukulng > 1 Then
        .CurrentRegion.SpecialCells(xlCellTypeVisible).Copy Worksheets("重複一覧").Range("C" & CStr(Gyou))
         cnt = Worksheets("重複Data").UsedRange.Rows.Count
        .AutoFilter
       End If
    End With
    Worksheets("重複一覧").Activate
    Gyou = Cells(65536, 3).End(xlUp).Row + 2
  Next i
  For i = 1 To 4
    Worksheets("重複一覧").Columns(i).ColumnWidth = Worksheets("重複Data").Columns(i).ColumnWidth
  Next i
  Worksheets("重複一覧").Activate
End Sub

0 hits

【72720】重複文字の書き出し Aoichi 12/9/8(土) 12:45 質問
【72722】Re:重複文字の書き出し UO3 12/9/8(土) 13:44 発言
【72724】Re:重複文字の書き出し UO3 12/9/8(土) 14:14 発言
【72725】Re:重複文字の書き出し kanabun 12/9/8(土) 17:08 発言
【72726】Re:重複文字の書き出し Aoichi 12/9/8(土) 22:41 お礼
【72727】Re:重複文字の書き出し kanabun 12/9/9(日) 19:56 発言

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