Note: The other languages of the website are Google-translated. Back to English

複数のワークシートのデータを一度に並べ替える方法は?

Excelでは、特定の列に基づいてワークシート内のデータをすばやく簡単に並べ替えることができますが、複数のワークシート間でデータを並べ替えようとしたことがありますか? それらをXNUMXつずつ並べ替えるには時間がかかります。この記事では、それを解決する簡単な方法を紹介します。

VBAコードを使用して複数のワークシートのデータを一度に並べ替える


矢印青い右バブル VBAコードを使用して複数のワークシートのデータを一度に並べ替える

ブックのすべてのシートのXNUMXつの列に基づいてデータを並べ替えるには、次のVBAコードが役立ちます。

1。 を押し続けます Alt + F11 キーを押して アプリケーション向け Microsoft Visual Basic 窓。

2に設定します。 OK をクリックします。 インセット > モジュール、次のコードをに貼り付けます モジュール 窓。

VBAコード:複数のワークシートのデータを一度に並べ替えます。

Sub SortAllSheets()
   'Updateby Extendoffice
   Dim WS      As Worksheet
   ActiveSheet.Range("a1:f1").Select
   Selection.Copy
   On Error Resume Next
   Application.ScreenUpdating = False
   For Each WS In Worksheets
      WS.Columns("A:F").Sort Key1:=WS.Columns("E"), Order1:=xlDescending
   Next WS
   ActiveSheet.Range("A1").PasteSpecial Paste:=xlPasteAll
   Application.ScreenUpdating = True
End Sub

3。 次に、 F5 このコードを実行するためのキーを押すと、同じフォーマットのすべてのシートが、各シートの列Eに基づいて降順で一度に並べ替えられます。

注意:上記のコードでは、 A:F 並べ替えるデータ範囲です。 E 並べ替えの基準となる列文字です。


最高のオフィス生産性ツール

Kutools for Excelはほとんどの問題を解決し、生産性を80%向上させます

  • 再利用: すばやく挿入 複雑な数式、チャート および以前に使用したものすべて。 セルを暗号化する パスワード付き。 メーリングリストを作成する そしてメールを送る...
  • スーパーフォーミュラバー (複数行のテキストと数式を簡単に編集できます); 読書レイアウト (多数のセルを簡単に読み取って編集する); フィルター範囲に貼り付け...
  • セル/行/列をマージする データを失うことなく; 分割セルコンテンツ; 重複する行/列を組み合わせる...重複セルを防止します。 範囲を比較する...
  • [複製]または[一意]を選択します 行; 空白行を選択 (すべてのセルは空です); スーパーファインドとファジーファインド 多くのワークブックで; ランダム選択...
  • 正確なコピー 数式参照を変更せずに複数のセル。 参照の自動作成 複数のシートに; 箇条書きを挿入、チェックボックスなど...
  • テキストを抽出、テキストの追加、位置による削除、 スペースを削除する; ページング小計の作成と印刷。 セルの内容とコメントを変換する...
  • スーパーフィルター (フィルタースキームを保存して他のシートに適用します); 高度な並べ替え 月/週/日、頻度など。 特殊フィルター 太字、斜体...
  • ワークブックとワークシートを組み合わせる; キー列に基づいてテーブルをマージします。 データを複数のシートに分割; xls、xlsx、PDFをバッチ変換...
  • 300 以上の強力な機能. Office / Excel 2007-2021 および 365 をサポートします。すべての言語をサポートします。 企業や組織に簡単に導入できます。 フル機能の 30 日間無料トライアル。 60日間の返金保証。
kteタブ201905

Officeタブは、タブ付きのインターフェイスをOfficeにもたらし、作​​業をはるかに簡単にします

  • Word、Excel、PowerPointでタブ付きの編集と読み取りを有効にする、パブリッシャー、アクセス、Visioおよびプロジェクト。
  • 新しいウィンドウではなく、同じウィンドウの新しいタブで複数のドキュメントを開いて作成します。
  • 生産性を 50% 向上させ、毎日何百回もマウス クリックを減らすことができます!
officetab下部
コメントを並べ替える
コメント (11)
まだ評価はありません。 最初に評価してください!
このコメントは、サイトのモデレーターによって最小化されました
動作しません...
このコメントは、サイトのモデレーターによって最小化されました
これを複数の列で機能させるにはどうすればよいですか。 K列とM列で並べ替えようとしていますが、正確なシート番号がわかります。 私のM列(上記のコードを使用する場合)は、MではなくKでのみ並べ替えられているため、機能していません。 
このコメントは、サイトのモデレーターによって最小化されました
私にとって魅力のように働いた...ありがとう!
このコメントは、サイトのモデレーターによって最小化されました
うまく機能しますが、見出し(つまり行1)を含めないようにするにはどうすればよいですか?
このコメントは、サイトのモデレーターによって最小化されました
こんにちは、ルーシー、
ヘッダー行を除くすべてのシートを並べ替えるには、以下のvbaコードを適用してください:(注:必要に応じてセル参照を変更してください)

サブSortAllSheets()
'Updateby Extendoffice
ワークシートとしての薄暗いWS
Dim xIntR を整数として
ActiveSheet.Range( "A1:F1")。Select
エラーで次の再開
Application.ScreenUpdating = False
ワークシートのWSごと
xIntR = Intersect(WS.UsedRange、WS.Range( "A:F"))。Rows.Count
WS.Range( "A2:F"&xIntR).Sort Key1:= WS.Range( "A2:A"&xIntR)、Order1:= xlDescending
次のWS
Application.ScreenUpdating = True
End Subの

ぜひお試しください。お役に立てば幸いです。
このコメントは、サイトのモデレーターによって最小化されました
あなたがこれを見ることを期待して...! これは素晴らしく機能しますが、数式はあるがデータがないセルが含まれているため、タブにギャップが生じ、行のデータが混乱します。 「マスタータブ」に追加された名前を検索するときに、これらのセルをタブに保持する必要があります。実際の名前のセルのみを並べ替えたいのですが、簡単に修正できますか?
このコメントは、サイトのモデレーターによって最小化されました
非常に便利なコードありがとう
このコメントは、サイトのモデレーターによって最小化されました
ねえ、これは素晴らしいです、ありがとうございます! このコードの唯一の問題は、最初のシートで実行されないことです。 残りのシートで実行されます。 これをすべてのシートで実行するにはどうすればよいですか? コードが最初のシートをスキップするかのようです。 どんな助けでも大歓迎です:)
このコメントは、サイトのモデレーターによって最小化されました
データを複数のワークブックに分割してから、列のXNUMXつに値を追加したいと思います。

ワークブックのデータを分割するためのコードを準備しましたが、列のXNUMXつに合計を追加するためのヘルプが必要です
このコメントは、サイトのモデレーターによって最小化されました
すべてのシートを含めずにこれを実行できますか? つまり、マクロからいくつかのシートを残しますか?
このコメントは、サイトのモデレーターによって最小化されました
これは私にはうまくいかなかったようです。 私は12枚のシートを月ごとに並べたワークブックを持っています。各シートには、会社の製品などに関する対応するデータが含まれています。私の目的は、ワークブック内のすべてのシートを並べ替えてフィルタリングすることです。 親シートとして機能するXNUMXつのシート(たとえば、年の最初の月)が欲しいのですが、これに対してフィルターまたは並べ替え機能を実行し(たとえば、A-> Z並べ替え)、他のシートも同じように自動的にフォローします。並べ替えまたはフィルタリング。 たとえば、「XNUMX月」というラベルの付いたシートを使用する場合、たとえば、「XNUMX月」シートでA-> Zソートを実現するときに、「昇順」で希望する月の日を含む列「D」を選択した場合、これにより、シーケンス内の残りのすべてのシート(XNUMX月からXNUMX月)に影響を与え、月のすべての日をA-> Zに並べ替えます。「XNUMX月」のシートに変更を加えると、並べ替えとフィルタリングに関連するため、ワークブックのシートのバランスに影響を与えます。
ここにはまだコメントが投稿されていません
あなたのコメントを残す
ゲストとして投稿
×
この投稿を評価:
0   文字
推奨される場所

フォローする

著作権©の2009 - WWW。extendoffice.com。 | | 全著作権所有。 搭載 ExtendOffice。 | サイトマップ
MicrosoftおよびOfficeのロゴは、米国MicrosoftCorporationの米国およびその他の国における商標または登録商標です。
SectigoSSLで保護