投稿/コメントを表示します。

発展編1 フォローメールセミナー
発展編1 フォローメールセミナー　第8回

たかちゃんさんの投稿

(投稿ID: 4870)

最後のA列に降った番号並び替えで、すでにワークシートが指定されているので
shFm.Activateを最後に入れなくても動きましたが。やっと一通りできました。(^^)
自分で考えたマクロは罫線を１行１行引いたり、動けば良いや的なマクロでした。
見本解答は、思いもつかない方法で、とても勉強になりました。


Sub bango_narabikae()
Dim saigo As Long
saigo = Worksheets("main").Range("b1048576").End(xlUp).Row

Range("A1").Select
ActiveWorkbook.Worksheets("main").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("main").Sort.SortFields.Add
　Key:=Range("A2:A" & saigo), _
Order:=xlAscending

With ActiveWorkbook.Worksheets("main").Sort
.SetRange Range("A1:G" & saigo)
.Header = xlYes
.Apply
End With
End Sub
2020/09/26 15:08