昔よく使っていたマクロ。
掘り出したのでメモしておく。
2015年頃に自分で作ったマクロ
Public Sub Delete(Sht As Worksheet, Row, Col As Long)
If Sht.Cells(Row, Col) <> "" Then
Sht.Range( _
Sht.Cells(Row, Col), _
Sht.Cells(Row, Col).SpecialCells(xlLastCell) _
).EntireRow.Delete
End If
End Sub友（ChatGPT）にリファクタリングしてもらったマクロ
デバッグログについても追加してもらった。
いつもありがとう、友（ChatGPT）よ、、、（しかも言わずとも日本語にしてくれるように、、、号泣）
Public Sub DeleteRowsWithEmptyCell(Sht As Worksheet, Row As Long, Col As Long)
Dim cellContent As Variant
cellContent = Sht.Cells(Row, Col).Value
Debug.Print "セル(" & Row & "," & Col & ")の内容: " & cellContent
If Not IsEmpty(cellContent) Then
Sht.Range(Sht.Cells(Row, Col), Sht.Cells(Sht.Rows.Count, Col)).EntireRow.Delete
Debug.Print "セル(" & Row & "," & Col & ")から最終行までの行が削除されました。"
End If
End Subぽんこつメモ
（確か）各事業所に１つの共有フォルダに保存したもらったファイルを１つのエクセルにまとめる、、、という作業をする時に作った記憶。
書式が決められているはずだがなぜか毎回何かが変わっていたため、貼り付ける前にタイトル行以下を全部削除して貼り付けていたので自動化した記憶、、、
