- 675 名前：デフォルトの名無しさん mailto:sage [2023/04/30(日) 14:58:48.37 ID:izKLiPLe.net]
- 'A列の重複文字を削除したいのですが.RemoveDuplicatesで型が一致しないとでます。
どうすればよいでしょうか。お願いします。
Sub RemoveDuplicatesExample()
Dim lastRow As Long
Dim rng As Range
Dim dupCount As Long
Dim cell As Range
' 最終行を取得する
lastRow = Cells(Rows.Count, "A").End(xlUp).Row
' A列の範囲を取得する
Set rng = Range("A6:A" & lastRow)
