マクロ ソートをしたいのですが、組み込めますか

質問

マクロの説明
１．Sub Sample7()はsheet４の列をソートするマクロです。
(単独では、このマクロでソートできる)
２．Sub sample2()はsheet４のソート以外は完成しています。

やりたいこと

Sub sample2()の中にsheet４の重複データを削除したもののソートのコードを組み込みたい。

但し、組み込むとしてSub Sample7()のコードでよいのか、初心者なのでよくわかりません。

なお、Sub sample2()のマクロは途中省いています。

Sub Sample7()
Sheets("sheet4").Range("A1:A1135").Sort Key1:=Range("A2"), Order1:=xlAscending, Header:=xlYes
End Sub

Sub sample2()
Dim data As Variant 'データコピー用の使いまわし配列
Dim dic As Object
Dim i As Long
Set dic = CreateObject("Scripting.Dictionary")
'Sheet4～5のA列をリセット
Sheets("Sheet4").Range("A2:A" & Rows.Count).ClearContents
Sheets("Sheet5").Range("C3:C" & Rows.Count).ClearContents

　　　　　　　↓↓↓↓↓↓↓↓↓↓↓↓↓↓

'Sheet4に重複していないデータを書き込み
With Sheets("Sheet4")
.Cells(Rows.Count, "A").End(xlUp).Offset(1).Resize(dic.Count).Value = Application.Transpose(dic.keys)

'Sheet4のC列をSheet5にコピー
data = .Range("C2:C" & .Cells(Rows.Count, "A").End(xlUp).Row).Value
End With
Sheets("Sheet5").Range("C3").Resize(UBound(data)).Value = data
Set dic = Nothing
End Sub

回答No.1

watabe007 · ベストアンサー

>Sub sample2()の中にsheet４の重複データを削除したもののソートのコードを組み込みたい。
'Sheet4に重複していないデータを書き込み
With Sheets("Sheet4")
　　.Cells(Rows.Count, "A").End(xlUp).Offset(1).Resize(dic.Count).Value = _
　　　　Application.Transpose(dic.keys)
　　'Sheet4のA列を昇順にソート
　　.Range("A1:A" & .Cells(Rows.Count, "A").End(xlUp).Row).Sort _
　　　　Key1:=Range("A2"), Order1:=xlAscending, Header:=xlYes

　　'Sheet4のC列をSheet5にコピー
　　Data = .Range("C2:C" & .Cells(Rows.Count, "A").End(xlUp).Row).Value
End With

お礼

ありがとうございました。できあがりました、気づいてはいたのですが、いざ、コードをいれるとうまくいきませんでした。丁寧にやったらできました。

回答No.2

watabe007

一部訂正
>　　.Range("A1:A" & .Cells(Rows.Count, "A").End(xlUp).Row).Sort _
>　　　　Key1:=Range("A2"), Order1:=xlAscending, Header:=xlYes
　　.Range("A1:A" & .Cells(Rows.Count, "A").End(xlUp).Row).Sort _
　　　　Key1:=.Range("A2"), Order1:=xlAscending, Header:=xlYes
　　　　　　　↑ .を付け忘れていました。

お礼

ありがとうございました。できあがりました、気づいてはいたのですが、いざ、コードをいれるとうまくいきませんでした。丁寧にやったらできました。