複数のワークシートのデータを一度に並べ替えるにはどうすればよいですか？

Excelでは、特定の列に基づいてワークシート内のデータを簡単に迅速に並べ替えられますが、複数のワークシートにまたがるデータの並べ替えを試したことはありますか？一つずつ並べ替えるのは時間がかかる作業です。この記事では、それを解決する簡単な方法をご紹介します。

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

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

すべてのワークシートの特定の列に基づいてデータを並べ替える場合、次のVBAコードが役立ちます。

1. ALT + F11キーを押して、Microsoft Visual Basic for Applicationsウィンドウを開きます。

2. 「 挿入」>「モジュール」をクリックし、次のコードをモジュールウィンドウに貼り付けます。

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 AIでExcelの魔法を解き放つ

• スマート実行: セル操作、データ分析、グラフ作成を簡単なコマンドで行います。
• カスタム数式: ワークフローを合理化するための独自の数式を生成します。
• VBAコーディング: 簡単にVBAコードを作成し実装します。
• 数式の解釈: 複雑な数式を簡単に理解できます。
• テキスト翻訳: スプレッドシート内の言語障壁を取り除きます。

AI搭載ツールでExcelの機能を強化しましょう。今すぐダウンロードして、かつてないほどの効率を体験してください！