空のセルがあるときの左寄せ方法

質問

下記のように空セルがあるときの左寄せ方法を
教えてください。
ｉｆ文を使ってＴＲＹしたのですが、うまいロジックが
組めなく困っています。

＜処理前＞
＿＿＿Ｉ＿＿Ｊ＿＿Ｋ＿＿Ｌ＿＿Ｍ＿＿Ｎ＿＿
＿＿＿△＿＿■＿＿△＿＿■＿＿△＿＿■＿＿

△：空のセル
■：データ有りのセル

＜処理後＞

＿＿＿Ｉ＿＿Ｊ＿＿Ｋ＿＿Ｌ＿＿Ｍ＿＿Ｎ＿＿
＿＿＿■＿＿■＿＿■

Ｉ列に左寄せ

回答No.1

ASIMOV · ベストアンサー

こういう場合は、後ろからやっていくのが常套手段です
-----------------------------------
Sub Macro1()
　 sx = 14 'N列から
　 l = 1 ' 対象行
　 Do
　　 If Cells(l, sx) = "" Then
　　　 Cells(l, sx).Delete Shift:=xlToLeft
　　 End If
　　 sx = sx - 1
　 Loop Until sx = 9 'I列まで
End Sub

お礼

早速のご指導ありがとうございました。
思い通りの動作です。
本当に助かりました。