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

Sheet1 左よせコード

Sub 空欄を左に詰める()

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

End Sub

Follow me!

@cuebko