Excel VBA質問箱 IV

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

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


69381 / 76732 ←次へ | 前へ→

【11869】Re:重複セルの削除
お礼  カド E-MAIL  - 04/3/17(水) 21:53 -

引用なし
パスワード
   ▼ichinose さん 回答ありがとうございます。

わざわざこのような長文ありがとう御座います。
もちろんバッチリ行きました。

あと、ケインさん作の以下のコードもありました。

これは重複する上側の行を残すものですが、上下が逆になるようソートしてから実行すれば
同じ効果が得られると思います。

Sub Test()
  Dim i As Long, MyR As Range

  Application.ScreenUpdating = False
  For i = Cells(65536, 1).End(xlUp).Row To 1 Step -1
   Set MyR = Range("A1", Range("A65536").End(xlUp))
   If WorksheetFunction.CountIf(MyR, Cells(i, 1).Value) > 1 Then
     Rows(i).Delete xlShiftUp '行全体をつめる
     'Cells(i, 1).ClearContents’行をつめない
     'Cells(i, 1).Delete xlShiftUp'行をつめる
   End If
   Set MyR = Nothing
  Next i
 
End Sub

0 hits

【11865】重複セルの削除 カド 04/3/17(水) 18:48 質問
【11866】Re:重複セルの削除 Asaki 04/3/17(水) 20:08 回答
【11868】Re:重複セルの削除 ichinose 04/3/17(水) 21:10 回答
【11869】Re:重複セルの削除 カド 04/3/17(水) 21:53 お礼
【11870】Re:重複セルの削除 Hirofumi 04/3/17(水) 21:56 回答
【11871】Re:重複セルの削除 カド 04/3/17(水) 23:09 お礼

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