昇順

質問

失礼します。昇順がうまくいかず困っています。
本来T3から下を昇順で並び変えたのち重複した値を削除したいのですがうまくいきません
もしよろしければダメな点を教えていただけないでしょうか？よろしくおねがいします。

Option Explicit

Sub test()
Dim i As Double
Dim x As Double
For i = 3 To Cells(Rows.Count, 20).End(xlUp).Row
Range(Cells(i, "T"), Cells(i, "T")).Sort Key1:=Range("T2"), Order1:=xlAscending, Header:=xlYes
Range(Cells(i, "T"), Cells(i, "T")).RemoveDuplicates Columns:=Array(1), Header:=xlYes
Next
End Sub

回答No.1

ushi2015 · ベストアンサー

こんにちは
ループする必要が無いです。
Sub test()
　 Range("T3", Range("T" & Rows.Count).End(xlUp)).Sort _
　 Key1:=Range("T3"), Order1:=xlAscending, Header:=xlNo
　 Range("T3", Range("T" & Rows.Count).End(xlUp)).RemoveDuplicates _
　 Columns:=1, Header:=xlNo
End Sub