Microsoft Excelファイルの空白の列を削除するには、複数の方法があります。 なぜこれを行う必要があるのですか？ –シンプル。
記事「Excelで一番上の行を固定する方法」も参照してください。
Webページからインポートしたデータは、使用されていなくても多数の列が表示される場合があります。 これは、CSVファイルと.txtファイルでも同じ頻度で発生します。
その場合、列を手動で削除することは必ずしも簡単ではありません。 もちろん、空の列が2つまたは3つしかない場合は、手動で削除しても大丈夫です。 しかし、インポートしたプロジェクトが57の空の非連続列を作成したらどうなるでしょうか？ –そのためには、自動化されたプロセスが必要です。
VBAマクロの使用
クイックリンク
- VBAマクロの使用
-
-
- Excelファイルに移動します
- AltとF11を一緒に保持する
- Microsoft Visual Basic for Applicationsウィンドウが表示されるまで待ちます
- 挿入をクリック
- モジュールを選択
- 次のコード行をウィンドウに貼り付けます
- F5を押してマクロをコンパイルおよび実行します
- ダイアログウィンドウに適切な作業範囲を入力します
- $ A $ 1 –上隅
- $ J $ 12 –下隅
- OKを押す
-
-
- Excelツールの使用
-
-
- 最初にデータ範囲を選択します
- F5を押す
- 特別をクリックします
- 空白を選択オプション
- [OK]をクリックします（この選択により、ターゲット範囲内のすべての空白セルが選択されます）
- [ホーム]タブに移動
- [セル]ツールグループの下の[削除]ドロップダウンメニューを選択します。
- セルの削除を選択
- 列を削除および再配置するには、「セルを左にシフト」を選択します
- OKをクリック
- 行を削除および再配置するには、[セルを上にシフト]を選択します
-
-
- その他の簡単な並べ替えタスク
- 最終的な考え
最初の方法では、VBAマクロを使用します。
-
Excelファイルに移動します
-
AltとF11を一緒に保持する
-
Microsoft Visual Basic for Applicationsウィンドウが表示されるまで待ちます
-
挿入をクリック
-
モジュールを選択
-
次のコード行をウィンドウに貼り付けます
Sub DeleteEmptyColumns()
'Updateby20140317
Dim rng As Range
Dim InputRng As Range
xTitleId = "KutoolsforExcel"
Set InputRng = Application.Selection
Set InputRng = Application.InputBox("Range :", xTitleId, InputRng.Address, Type:=8)
Application.ScreenUpdating = False
For i = InputRng.Columns.Count To 1 Step -1
Set rng = InputRng.Cells(1, i).EntireColumn
If Application.WorksheetFunction.CountA(rng) = 0 Then
rng.Delete
End If
Next
Application.ScreenUpdating = True
End Sub
作業範囲またはデータ範囲は、ターゲットにする列間の特定の間隔です。 形式は$ A $ 1：$ J $ 12です。 文字は列に対応し、数字は行に対応します。
これをマウスでドラッグするか、Shiftキーを押しながら矢印キーを使用してドラッグすると、次のことがわかります。
$ A $ 1 –上隅
$ J $ 12 –下隅
マクロは選択されないため、アップロードを開始する前にデータ範囲を選択することはできません。
OKを押す
その後、すべての空の列が消去され、すべての入力された列が隣同士になります。
Excelツールの使用
明らかに、Excelには優れた並べ替え機能がなければ、そのような大国にはなりません。 [削除]ドロップダウンメニューを使用して、行、列、または空白のセル全体を削除できます。
-
最初にデータ範囲を選択します
-
F5を押す
-
特別をクリックします
-
空白を選択オプション
-
[OK]をクリックします（この選択により、ターゲット範囲内のすべての空白セルが選択されます）
-
[ホーム]タブに移動
-
[セル]ツールグループの下の[削除]ドロップダウンメニューを選択します。
-
セルの削除を選択
-
列を削除および再配置するには、「セルを左にシフト」を選択します
-
OKをクリック
これで、空白の列の空のセルが消え、他のすべての行が互いに接近して移動します。
同じ方法を使用して、行全体を削除できます。 ただし、セルを左に移動する代わりに、他のオプションを選択します。
行を削除および再配置するには、[セルを上にシフト]を選択します
実行しているExcelのバージョンに応じて、異なる文言が表示される場合があります。 ただし、いずれにしても、[セルの削除]メニューの上部の2つのオプションは常に同じです。
このメソッドは、選択範囲内のすべての空白セルを削除しなくなりました。 Excel 2013より前では、これにより、通常は並べ替えが台無しになる空の行も誤って削除されていました。
これで問題は発生しなくなりました。 したがって、行も削除する場合は、データ範囲を再度選択し、前の手順に従って削除できます。 次に、セルを左ではなく上に移動または削除するように選択します。
その他の簡単な並べ替えタスク
技術的にはExcelツールバーを使用して空の列と行を削除するのは簡単に思えますが、VBAマクロの方法は絶対確実です。つまり、古いバージョンのMicrosoft Excelでも使用できます。
同じVBAモジュールまたは[移動]機能メニューを使用すると、Excelでさらに多くのことができます。 関係のなくなった特定の数式はありますか？ –それらも同様に削除するか、それに応じて再配置できます。
プレゼンテーション中に表示したくない場合は、プロジェクトから不要なコメントまたはすべてのコメントを削除することもできます。 Excelのパワーユーザーになりたい場合は、VBAを調べてください。
最終的な考え
長年にわたって、さまざまなアドオンがオンラインで登場しました。 それらのいくつかは、大きなスプレッドシートをソートするときに、さらに多くのショートカットを取ることができます。 ただし、これらのアプリが無料になることはめったになく、空白の行、セル、列を削除するなどの単純なタスクに手間をかける価値はありません。
それに、もしそれがそんなに難しいなら、Microsoftは今までにプロセスをさらに単純化するか、Excelのソートに関するさらに広範なガイドを作成したでしょう。
