Excelマクロ A~X列の空欄を左に詰める

Sheet1 左よせコード

Sub 空欄を左に詰める()

Sheets(“Sheet1”).Range(“A:X”).SpecialCells(xlCellTypeBlanks).Delete Shift:=xlToLeft

End Sub

タイトルとURLをコピーしました