左に揃える方法

質問

A 　B 　 C
1 　1
2 　　 　2
3 　　 　　　3

↑のを様な状況の時に、空白のセルを削除せずにA1,A2,A3にデータを揃えたいのですか出来るのでしょうか？やり方があればぜひ教えてください。

回答No.2

Wendy02 · ベストアンサー

こんばんは。

>空白のセルを削除せずに
ということであれば、関数も使えないわけで、マクロしか思いつかないですね。

Sub BringToLeftCell()
Dim i As Long
Dim j As Integer
With Range("A1").CurrentRegion
　Application.ScreenUpdating = False
　For i = 1 To .Rows.Count
　　If Cells(i, 1).Value = "" Then
　　　 j = Cells(i, 1).End(xlToRight).Column
　　　If j < 256 Then
　　　　Cells(i, 1).Value = Cells(i, j).Value
　　　　Cells(i, j).ClearContents
　　　End If
　　End If
　Next i
　Application.ScreenUpdating = True
End With
End Sub

お礼

これで問題も解決しました。
要望通りの回答ありがとうございました。

回答No.3

imogasi

対角線上にしかデータがないなら
=INDEX($A$1:$H$20,ROW(),ROW())
ーー
出現する最左列のデータの意味なら
麻で時間がない。開いていたら夜に上げます。

回答No.1

Cupper

B2セルをA2セルに移動させる。つづいてC3セルをA3セルに移動させる。

または、A2セルとB2セルを結合してその後結合を解除する。

意に沿わないかもしれませんが、
　A1からC3の範囲を選択 → 編集 → ジャンプ → セル選択 → 空白セル → OK → 編集 → 削除 → 左方向にシフト → OK
が一番スマートな気がします。