【マクロまたは関数を教えてください】 添付資料の中から空欄行を一括削除し、データのみの表を作りたいです。ご教示いただけますでしょうか？返答をお待ちしております。補足情報として、資料の切り取り後の状態を参照しています。

空欄行を一括削除し、データのみの表を作成するためには、VBAマクロを使用することが一般的です。以下に、そのようなマクロの例を示します。

“`vba
Sub DeleteEmptyRows()
‘最終行を取得
Dim lastRow As Long
lastRow = Cells(Rows.Count, 1).End(xlUp).Row

‘逆順でループして空欄行を削除
For i = lastRow To 1 Step -1
If WorksheetFunction.CountA(Rows(i)) = 0 Then
Rows(i).Delete
End If
Next i
End Sub
“`

上記のマクロは、現在のシートで最終行を見つけ、逆順でループして空欄行を削除します。このマクロを実行すると、空欄行のみが削除され、データのみの表が作成されます。

マクロを使用する方法が煩雑な場合は、フィルタリング機能を使用しても同様の結果を得ることができます。以下に、フィルタリングを使用する手順を示します。

1. データが含まれる範囲を選択します。
2. 「データ」タブをクリックし、「フィルター」ボタンを選択します。
3. 空白行を非表示にするために、空白列のフィルタを選択します。
4. 空白行が非表示になり、データのみの表が表示されます。

上記の方法で、空白行を一括削除し、データのみの表を作成することができます。マクロを使用する場合と比べ、手作業で行うため操作が簡単です。