こんにちは。
お世話になります。
エクセルで、並び替え→セルの色→セルの色なし→下
というコマンドを、W列とAA列で行いたいです。
マクロ記録を借用すると、動いたのですが、不明な点も多く、もっときれいになるような気がします。
ご教授頂ければ幸いです。
よろしくお願い致します。
>条件
W列とAA列で、セルの色がないものを下にしたい。
範囲は、CからAA列を動かしています。
下記の(a.)は、マクロ記録で、active sheetと示されたものを、(a)という名前を付けて複数のシートを動かしているだけでございますので、気になさらないでください。
>マクロ記録されたもの
Range(Selection, Selection.End(xlToLeft)).Select
Range(Selection, Selection.End(xlToLeft)).Select
Range(Selection, Selection.End(xlToLeft)).Select
Range("C6:AA6").Select
Range("AA6").Activate
Range(Selection, Selection.End(xlDown)).Select
Range(Selection, Selection.End(xlDown)).Select
Range(Selection, Selection.End(xlDown)).Select
Range(Selection, Selection.End(xlDown)).Select
Range("C6:AA80").Select
Range("AA6").Activate
Range(Selection, Selection.End(xlUp)).Select
ActiveWindow.SmallScroll Down:=-27
a.Sort.SortFields.Clear
a.Sort.SortFields.Add Key:=Range("W6:W80"), _
SortOn:=xlSortOnCellColor, Order:=xlDescending, DataOption:=xlSortNormal
a.Sort.SortFields.Add Key:=Range("AA6:AA80"), _
SortOn:=xlSortOnCellColor, Order:=xlDescending, DataOption:=xlSortNormal
With a.Sort
.SetRange Range("C5:AA80")
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
No.2ベストアンサー
- 回答日時:
>ActiveWindow.SmallScroll Down:=-27
バージョンの違いなどで詳しくわかりませんが、
少なくとも上記以前の部分は(上記含め)不要です
CoalTar様
早速のご返信ありがとうございます。
おっしゃる通り、ご指摘いただいた箇所から上を除いても正常に作動しました。
ありがとうございます。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) マクロで最終行を取得してコピーしたい 3 2022/04/06 19:07
- Visual Basic(VBA) データのある範囲を選択するVBAについて 2 2022/09/03 00:20
- Excel(エクセル) 日付で矢印マクロ 4 2023/07/25 16:47
- Visual Basic(VBA) Excel_マクロ_現在開いているシートにマクロを実行したいです 1 2023/02/14 23:54
- Visual Basic(VBA) 指定の条件に応じたセルの場所に〇印(図形)を描く 2 2022/11/08 15:26
- Excel(エクセル) エクセルのVBAにショートカットキーの割り当て 3 2022/07/13 14:19
- Visual Basic(VBA) 動きっぱなしです。止め方とプロシージャの間違いを教えて下さい! 5 2022/08/15 23:08
- Excel(エクセル) 表示形式、文字列セル(列)に数式を入力するには マクロ 1 2022/09/18 10:53
- Visual Basic(VBA) ExcelVBAのマクロについて。 9 2022/05/04 14:50
- Excel(エクセル) エクセルで最下行にデータを追加するVBA 6 2023/05/09 09:30
関連するカテゴリからQ&Aを探す
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
一行おきにコピーするマクロが...
-
EXCELにて複数列を同条件(色)...
-
エクセルの関数について(日付で...
-
Excelの非表示列も含めてコピー
-
エクセルマクロ:空白行を除い...
-
シート保護の状態で行の追加を...
-
エクセルで行挿入した際、自動...
-
エクセルで空白以外のセルの値...
-
【初歩】エクセルでのマクロ(...
-
特定の桁数を抽出
-
エクセルのマクロを2つご指南く...
-
エクセルVBA 複数列をコピーす...
-
列を削除すると、セルに黄色の...
-
入力情報の無いふりがなの自動取得
-
最終行から上10行をコピーする...
-
notes ビューでの金額と単位表示
-
エクセルVBA 2つの別シートから...
-
Excel VBAで日にちを入力して線...
-
ExcelでA列の内容をB列の回数だ...
-
【マクロ】IF複数条件の上限に...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
EXCELにて複数列を同条件(色)...
-
一行おきにコピーするマクロが...
-
行数が不規則な一週間ごとの合...
-
Excelの非表示列も含めてコピー
-
シート保護の状態で行の追加を...
-
エクセルで空白以外のセルの値...
-
エクセルの関数について(日付で...
-
エクセル マクロ 貼り付け先が...
-
エクセル VBA 指定の範囲内をコ...
-
エクセルで行挿入した際、自動...
-
エクセルで表示された値だけ行...
-
[Excel VBA]空白セル以外に連番...
-
エクセルVBA 複数列をコピーす...
-
マクロで値がある列までコピー
-
特定の桁数を抽出
-
エクセル マクロ 行や列を削除...
-
エクセルのマクロ、AVERAGEIFを...
-
マクロ初心者です、小数点6桁で...
-
Excel 条件に従いセル移動するには
-
VBAで同じブック内の別シー...
おすすめ情報
googoo900様
ご質問ありがとうございます。
ご提案頂いたBのタイプで、W列とAA列以外のセルに色がないものを「行単位」で下にしたい。
でございます。
早速のご対応、感謝致します。
よろしくお願い致します。