No.1です！ 前回は大きく勘違いしていました。 No.1は無視してください。 他の方法の一例です。 ↓の画像で説明させていただきます。 データは2行目からとしています。 F2セルに =IF(COUNTBLANK($A2:$D2)=4,"",IF(A2="",F1,A2)) という数式を入れ、列方向と行方向にオートフィルでコピーすると 画像のような感じになります。 最後にF～I列すべてを範囲指定　→　コピー　→　A列を選択　→　「形式を選択して貼り付け」　→　OK これで希望に近い形にならないでしょうか？ 何度も失礼しました。m(__)m

A列に空欄があって、B列は必ずデータが存在するのであれば マクロで以下の様にしたらいかがでしょうか？ セルAが空白だったら、前の行の値をそのまま記入します。 Sub Macro1() '動作の開始行を指定します　下記の１の部分 y=1 while cells(y,"B")>"" if cells(y,"A")="" then cells(y,"A")=cells(y-1,"A") end if y=y+1 wend End Sub

こんにちは！ VBAでやれば簡単ですが、関数での方法の一例です。 お示しの配置として・・・1000行目まで対応できる数式です。 E1セルに =IF(COUNTA(A$1:A$1000)<ROW(A1),"",INDEX(A$1:A$1000,SMALL(IF(A$1:A$1000<>"",ROW($A$1:$A$1000)),ROW(A1)))) これは配列数式になりますので、この画面からE1セルにコピー＆ペーストの後に F2キーを押す、またはE1セルをダブルクリック、または数式バー内で一度クリックします。 編集可能になりますので、Shift＋Ctrlキーを押しながらEnterキーで確定！ 数式の前後に｛　｝マークが入り配列数式になります。 これをH1セルまでオートフィルでコピーの後そのまま下へずぃ～～～！っとコピーして見てください。 そしてE～H列すべてを範囲指定　→　右クリック　→　コピー　→　A列を選択　→　「形式を選択して貼り付け」　 最後にE～H列を削除して完了です。 尚、余計なお世話かもしれませんがVBAでの場合は 操作したいSheet見出し上で右クリック　→　コードの表示　→　VBE画面が出ますので ↓のコードをコピー＆ペーストしてマクロを実行してみてください。 尚、一旦マクロを実行すると元に戻せませんので、別Sheetで試してみてください。 Sub test() 'この行から Dim i, j, k As Long k = ActiveSheet.UsedRange.Rows.Count For i = k To 1 Step -1 For j = 1 To Cells(1, Columns.Count).End(xlToLeft).Column If Cells(i, j) = "" Then Cells(i, j).Delete (xlUp) End If Next j Next i End Sub 'この行まで 参考になれば良いのですが・・・m(__)m