Excelブック内の各ワークシートに複数のグラフが含まれており、それらのグラフをすべて新しいワークシートに一括移動したい場合は、この記事を参照してください。ここでは、2つの簡単な方法をご紹介します。
Excelブックの各ワークシートのデータのグラフを作成した後、これらのグラフに従ってデータをより適切に分析するために、これらすべてのグラフを同じワークシートに収集することをお勧めします。 つまり、それらすべてを新しいワークシートに移動したいと思うかもしれません。 チャートが少ない場合は、以下の方法1でXNUMXつずつ移動できます。 ただし、チャートが無数にある場合は、後者を使用することをお勧めします。
方法1：チャートをXNUMXつずつ手動で移動する
- 最初に、すべてのグラフを移動する新しいワークシートを作成します。
- 次に、ワークシートを開き、その中のチャートに売り込みます。
- 次に、チャートを右クリックして、コンテキストメニューから[チャートの移動]を選択します。
- ポップアップの[チャートの移動]ダイアログボックスで、[オブジェクト入力]リストから新しいシートを選択し、[OK]をクリックします。
- すぐに、選択したチャートが移動します。
- これで、この方法を使用して、すべてのワークシートのすべてのグラフをXNUMXつずつ処理できます。
方法2：ExcelVBAを使用したバッチ移動
- まず、「ExcelVBAエディターを次のように起動します。ExcelでVBAコードを実行する方法"
- 次に、次のコードをモジュールまたはプロジェクトに配置します。
Sub MoveAllCharts()
Dim strNewSheet As String
Dim objTargetWorksheet As Worksheet
Dim objWorksheet As Worksheet
Dim objChart As Object
'Create a new sheet
strNewSheet = "Charts"
ActiveWorkbook.Worksheets.Add(Before:=Application.Worksheets(1)).Name = strNewSheet
Set objTargetWorksheet = Application.Worksheets(strNewSheet)
For Each objWorksheet In Application.ActiveWorkbook.Worksheets
If objWorksheet.Name <> strNewSheet Then
'Move each chart to the new sheet one by one
For Each objChart In objWorksheet.ChartObjects
objChart.Chart.Location xlLocationAsObject, strNewSheet
Next objChart
End If
Next
objTargetWorksheet.Activate
End Sub
- その後、直接「F5」を押して、このマクロを今すぐ実行します。
- マクロが終了したら、VBAエディターを終了します。
- Excelのメインウィンドウに、すべてのグラフを表示できる新しいワークシートが表示されます。
比較
| 優位性 | デメリット | |
| 方法1 | 操作しやすいです | あなたは一つずつ動かなければなりません |
| 方法2 | すべてのチャートをまとめて処理できます | ユーザーは外部マクロに注意する必要があります |
破損したExcelファイルを修復する
Excelは時々クラッシュする可能性があるため、Excelファイルは破損する傾向があります。 このような状況では、強力で信頼できるものを準備したほうがよいでしょう。 xlsxリカバリ などのツール DataNumen Excel Repair。 Excelファイルが破損し、Excelの自動回復機能が機能しない場合に便利です。
著者紹介：
Shirley Zhangは、のデータ復旧の専門家です。 DataNumen、Inc。は、以下を含むデータ復旧技術の世界的リーダーです。 SQLを修復します と見通し修理ソフトウェア製品。 詳細については、次のWebサイトをご覧ください。 WWW。datanumen.com