Excel VBA質問箱 IV

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

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


69380 / 76732 ←次へ | 前へ→

【11870】Re:重複セルの削除
回答  Hirofumi E-MAIL  - 04/3/17(水) 21:56 -

引用なし
パスワード
   Dictionaryオブジェクトを使ってこんなのでも善いかも?
ただし、基本的な事しかやって無いので、2列以上選択した場合等は考慮していません

Public Sub Test()

  Dim i As Long
  Dim lngTop As Long
  Dim lngEnd As Long
  Dim lngCol As Long
  Dim vntTmp As Variant
  Dim dicIndex As Object
  
  Set dicIndex = CreateObject("Scripting.Dictionary")
  
  lngTop = Selection.Row
  lngEnd = lngTop + Selection.Rows.Count - 1
  lngCol = Selection.Column
  
  With dicIndex
    For i = lngEnd To lngTop Step -1
      vntTmp = Cells(i, lngCol).Value
      If .Exists(vntTmp) Then
        Rows(i).Delete
      Else
        .Add vntTmp, i
      End If
    Next i
  End With
  
  Set dicIndex = Nothing
  
End Sub

3 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 お礼

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