こんにちはゲストさん。会員登録(無料)して質問・回答してみよう!

解決済みの質問

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

マクロの説明
1.Sub Sample7()はsheet4の列をソートするマクロです。
(単独では、このマクロでソートできる)
2.Sub sample2()はsheet4のソート以外は完成しています。


やりたいこと

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

但し、組み込むとして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

投稿日時 - 2019-01-20 13:48:37

QNo.9579609

困ってます

質問者が選んだベストアンサー

>Sub sample2()の中にsheet4の重複データを削除したもののソートのコードを組み込みたい。
'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

投稿日時 - 2019-01-20 21:53:46

お礼

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

投稿日時 - 2019-01-21 19:22:29

このQ&Aは役に立ちましたか?

0人が「このQ&Aが役に立った」と投票しています

-広告-
-広告-

回答(2)

ANo.2

一部訂正
>  .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
       ↑ .を付け忘れていました。

投稿日時 - 2019-01-20 21:56:27

お礼

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

投稿日時 - 2019-01-21 19:22:03

-広告-
-広告-

あなたにオススメの質問

-広告-
-広告-