![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?a65a0e2)
No.2ベストアンサー
- 回答日時:
こんばんは!
まず「マクロの記録」をとってみてください。
かなり長いコードになると思いますが、そのコードを参考にするのが上達の早道だと思います。
慣れてくるとご自身で不要だと思う部分は省略できるようになります。
ただ、これではお役に立たないと思うので・・・
一例です。
Sub 並び替え()
Worksheets("管理表").Range("A6").CurrentRegion.Sort key1:=Range("H6"), order1:=xlDescending, _
key2:=Range("A6"), order1:=xlAscending, Header:=xlYes
End Sub
こんな感じでいけると思います。m(_ _)m
No.4
- 回答日時:
No.3 の訂正
すみません。5行目のどこかのセルに何か入っているだけでもダメですね。
No.1 の補足
tom04 さんのようにシート名を指定したほうが誤動作が起きにくいですね。
「Sheets("管理表").Select」を最初に入れてください。
No.3
- 回答日時:
No.2 について
tom04 さんの方法ですと 4行目と5行目の両方のどこかのセルに何か入っている(値が空白になる式も含む)と、そこも含めてソートをしてしまうので注意してください。
No.1
- 回答日時:
こんな感じで良いと思います。
----------------------------------------------------------------------
Sub Sample()
Range(Cells(6, 1), Cells(Rows.Count, Columns.Count)).Sort _
Key1:=Range("H7"), Order1:=xlDescending, _
Key2:=Range("A7"), Order2:=xlAscending, _
Header:=xlYes, _
OrderCustom:=1, _
MatchCase:=False, _
Orientation:=xlTopToBottom, _
SortMethod:=xlPinYin
End Sub
----------------------------------------------------------------------
※ 最終行を調べる必要はないので上記で良いのですが、どうしてもというなら以下のようにしてみてください。
----------------------------------------------------------------------
Sub Sample()
Dim 終 As Long
終 = Cells(Rows.Count, 1).End(xlUp).Row
Range(Cells(6, 1), Cells(終, Columns.Count)).Sort _
Key1:=Range("H7"), Order1:=xlDescending, _
Key2:=Range("A7"), Order2:=xlAscending, _
Header:=xlYes, _
OrderCustom:=1, _
MatchCase:=False, _
Orientation:=xlTopToBottom, _
SortMethod:=xlPinYin
End Sub
----------------------------------------------------------------------
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- その他(Microsoft Office) 1の行を固定した上でVBAを用いて日付順に自動並べ替え 2 2022/06/06 15:09
- Visual Basic(VBA) Excel VBAで並べ替えをしたい 3 2023/02/25 09:31
- Excel(エクセル) オフィスをLibreOfficeからmicrosoft 2013に変えました。 1 2022/05/09 00:28
- Excel(エクセル) Excelの並び替え(先頭の文字以外を基準に並び替えたい) 3 2023/07/07 22:21
- Excel(エクセル) エクセルVBA オートフィルタでの絞り込みと並び替えについて 1 2023/07/08 13:08
- Excel(エクセル) Googleスプレッドシートの割合の関数と円グラフの並べ替えについて 1 2022/07/22 17:31
- Excel(エクセル) エクセルの並び替えについて 5 2022/07/11 00:49
- Excel(エクセル) 【エクセル】並び替えからの並び替え方法 7 2022/07/22 09:46
- その他(Microsoft Office) エクセルで串刺ししたシートの並べ替えをしたいです 4 2023/02/14 11:59
- Visual Basic(VBA) Excel VBA 最終行を取得しVlookup関数をコピーする方法をコーディングで教えてください。 3 2023/05/11 13:14
このQ&Aを見た人はこんなQ&Aも見ています
-
【お題】大変な警告
【大喜利】「今このパソコンは大変危険な状態です」という警告メッセージを無視してパソコンを開いたら、こんなことが起こった
-
初めて自分の家と他人の家が違う、と意識した時
子供の頃、友達の家に行くと「なんか自分の家と匂いが違うな?」って思いませんでしたか?
-
最強の防寒、あったか術を教えてください!
とっても寒がりなのですが、冬に皆さんがされている最強の防寒、あったか術が知りたいです!
-
洋服何着持ってますか?
洋服を減らそうと思っているのですが、何着くらいが相場なのかわかりません。
-
思い出すきっかけは 音楽?におい?景色?
記憶をふと思い出すきっかけは 音楽、におい、景色 どれですか?
-
エクセルVBA 最終行を選んで並び替え (空白セルを一番上に表示したい)
Excel(エクセル)
-
エクセル マクロ 範囲指定で、データの最終行・最終列を取得したい
Excel(エクセル)
-
数式による空白を無視して最終行を取得するマクロ
Excel(エクセル)
-
-
4
エクセルVBAで、条件に一致するセルへ移動
Excel(エクセル)
-
5
エクセル マクロ オートフィルの終点の指定について
Excel(エクセル)
-
6
エクセル 空白を無視して並び替える方法を教えてください。
Excel(エクセル)
-
7
【Excel VBA】複数ある特定の文字列を含む行を削除
Excel(エクセル)
-
8
もしセルが#N/A"なら~をする・・・には?"
Excel(エクセル)
-
9
指定した文字があった場合、その行を削除するマクロが欲しいです
Excel(エクセル)
-
10
値を入力後、自動的にアクティブセルが移動するマクロ
Excel(エクセル)
-
11
エクセル2003で並べ替えする場合で、空白行を先頭ではなく末尾に表示し
Excel(エクセル)
-
12
VBA 特定の文字が入力されたセルに移動する 複数
Visual Basic(VBA)
-
13
VBAで色の付いているセルの行削除
Excel(エクセル)
-
14
ExcelのVBAで連番を振る。
Excel(エクセル)
-
15
EXCELで2列を参照し、重複するものを横に並べたい
Excel(エクセル)
-
16
VBAで複数の数式セルを最終行までコピーするには?
Excel(エクセル)
-
17
エクセル:マクロ「Application.CutCopyMode = False」って?
Excel(エクセル)
-
18
EXCEL VBA セルに既に入力されている文字に文字を追加する
Excel(エクセル)
-
19
エクセル 自動で別シートへ並べ替えてコピーするには?
Excel(エクセル)
-
20
エクセル(2003) 「1900/1/0」を消したい
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・一番好きなみそ汁の具材は?
- ・泣きながら食べたご飯の思い出
- ・「これはヤバかったな」という遅刻エピソード
- ・初めて自分の家と他人の家が違う、と意識した時
- ・いちばん失敗した人決定戦
- ・思い出すきっかけは 音楽?におい?景色?
- ・あなたなりのストレス発散方法を教えてください!
- ・もし10億円当たったら何に使いますか?
- ・何回やってもうまくいかないことは?
- ・今年はじめたいことは?
- ・あなたの人生で一番ピンチに陥った瞬間は?
- ・初めて見た映画を教えてください!
- ・今の日本に期待することはなんですか?
- ・集中するためにやっていること
- ・テレビやラジオに出たことがある人、いますか?
- ・【お題】斜め上を行くスキー場にありがちなこと
- ・人生でいちばんスベッた瞬間
- ・コーピングについて教えてください
- ・あなたの「プチ贅沢」はなんですか?
- ・コンビニでおにぎりを買うときのスタメンはどの具?
- ・おすすめの美術館・博物館、教えてください!
- ・【お題】大変な警告
- ・洋服何着持ってますか?
- ・みんなの【マイ・ベスト積読2024】を教えてください。
- ・「これいらなくない?」という慣習、教えてください
- ・今から楽しみな予定はありますか?
- ・AIツールの活用方法を教えて
- ・最強の防寒、あったか術を教えてください!
- ・歳とったな〜〜と思ったことは?
- ・モテ期を経験した方いらっしゃいますか?
- ・好きな人を振り向かせるためにしたこと
- ・スマホに会話を聞かれているな!?と思ったことありますか?
- ・それもChatGPT!?と驚いた使用方法を教えてください
- ・見学に行くとしたら【天国】と【地獄】どっち?
- ・これまでで一番「情けなかったとき」はいつですか?
- ・この人頭いいなと思ったエピソード
- ・あなたの「必」の書き順を教えてください
- ・14歳の自分に衝撃の事実を告げてください
- ・人生最悪の忘れ物
- ・あなたの習慣について教えてください!!
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Excelの「0」だけ非表示、小数...
-
別シートのセルを絶対参照にする
-
エクセルで条件に一致したセル...
-
Excelで複数シートの選択セルを...
-
日付が未入力の際はゼロか、空...
-
Excelシートの保護時にデータの...
-
Rangeメソッドは失敗しました。...
-
複数シートの同じセル内容を1シ...
-
エクセルで指定のセルのみ完全...
-
マクロ 新しいシートにデータ...
-
エクセルで1月0日と表示される!!
-
EXCELのハイパーリンクのセルを...
-
エクセルで、加筆修正したセル...
-
エクセルのセルに、マウスで選...
-
エクセルで20万行あるシート...
-
エクセルで特定の文字を打つと...
-
VBAで、セル(Range)のオブジ...
-
シート参照で変数を使いたい(EX...
-
エクセル ハイパーリンクで画像...
-
Excelでスクロールすると文字が...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Excelの「0」だけ非表示、小数...
-
Excelで複数シートの選択セルを...
-
エクセルで条件に一致したセル...
-
別シートのセルを絶対参照にする
-
日付が未入力の際はゼロか、空...
-
Excelシートの保護時にデータの...
-
エクセルで1月0日と表示される!!
-
Rangeメソッドは失敗しました。...
-
ExcelでTODAY関数を更新させな...
-
エクセルで、加筆修正したセル...
-
複数シートの同じセル内容を1シ...
-
エクセルで指定のセルのみ完全...
-
エクセルで複写のように自動入...
-
Excelでスクロールすると文字が...
-
シート参照で変数を使いたい(EX...
-
マクロ 新しいシートにデータ...
-
Excelのファイル容量が減らない...
-
エクセルで20万行あるシート...
-
エクセルのルビがついたセルを...
-
エクセルの文字
おすすめ情報