VBAでIE操作に役立つセルの重複データ削除「duplicateDataDel」

VBAのIE(InternetExplorer)制御に便利なサブルーチンを紹介しています。

Sub duplicateDataDel(Optional sheetName As String = "mySheet", _
　　　　　 　　　　　Optional col As Variant = "A")
　　　　　 
  Dim r As Long, i As Long, ChkCol As Long
  
  ChkCol = Columns.Count    '最終列取得
　　　　　 
　If sheetName = "mySheet" Then: sheetName = ActiveSheet.Name

　r = maxRC(sheetName, col)

　For i = 1 To r
　
　　Cells(i, ChkCol) = i
　
　Next i

　Cells.Sort Key1:=Range(col & "2"), Order1:=xlAscending, Header:=xlNo
　　　　   
　i = 1
　　　　   
　Do
　
　　If Cells(i, col) = Cells(i + 1, col) Then
　　
　　　Cells(i, ChkCol) = ""
　　
　　End If
　　
　　i = i + 1

　Loop Until Cells(i, col) = ""
　　　　   
　Cells.Sort Key1:=Cells(2, ChkCol), Order1:=xlAscending, Header:=xlNo
　　　　   
　r = maxRC(, ChkCol, 1)
　Range(r & ":" & Rows.Count).Select

　Selection.Delete Shift:=xlUp

　Columns(ChkCol).Clear

End Sub

引数すべてが任意項目となります。

「sheetName」には、ファイル名を入力するシート名文字列を入力します。
初期値は開いているシート名となります。

「col」には、チェック列の文字列を入力します。A列をチェックする場合は「A」を指定してください。
初期値は「A」が設定されています。