- ベストアンサー
空のセルがあるときの左寄せ方法
下記のように空セルがあるときの左寄せ方法を 教えてください。 ｉｆ文を使ってＴＲＹしたのですが、うまいロジックが 組めなく困っています。 ＜処理前＞ ＿＿＿Ｉ＿＿Ｊ＿＿Ｋ＿＿Ｌ＿＿Ｍ＿＿Ｎ＿＿ ＿＿＿△＿＿■＿＿△＿＿■＿＿△＿＿■＿＿ △：空のセル ■：データ有りのセル ＜処理後＞ ＿＿＿Ｉ＿＿Ｊ＿＿Ｋ＿＿Ｌ＿＿Ｍ＿＿Ｎ＿＿ ＿＿＿■＿＿■＿＿■ Ｉ列に左寄せ
- pin3891227
- お礼率85% (35/41)
- オフィス系ソフト
- 回答数1
- ありがとう数1
- みんなの回答 （1）
- 専門家の回答
質問者が選んだベストアンサー
こういう場合は、後ろからやっていくのが常套手段です ----------------------------------- 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
お礼
早速のご指導ありがとうございました。 思い通りの動作です。 本当に助かりました。