Sheet1 左よせコード
Sub 空欄を左に詰める()
Sheets("Sheet1").Range("A:X").SpecialCells(xlCellTypeBlanks).Delete Shift:=xlToLeft
End Sub
CUEBKO クエビコ / 外注作業から見た「ネットショップ」の攻略法 / Photoshopが激熱 / 商品登録CSVに困ったらまずは相談!
Sub 空欄を左に詰める()
Sheets("Sheet1").Range("A:X").SpecialCells(xlCellTypeBlanks).Delete Shift:=xlToLeft
End Sub