こんにちは!
途中に空白セルがない!という前提で・・・
Sheet1のデータはA1セルからあるとします。
別Sheetに表示してもよいのであれば
Sheet2のA1セルに
=IF(Sheet1!A1="","",IF(Sheet1!A1="×",INDEX(Sheet1!A:A,COUNTA(Sheet1!A:A)),Sheet1!A1))
という数式を入れ、列・行方向にオートフィルでコピーしてみてください。
>実際には膨大なデータがありますので・・・
とありますので、VBAで手っ取り早くやる方法です。
画面左下の操作したいSheet見出し上で右クリック → コードの表示 → VBE画面に
↓のコードをコピー&ペーストしてマクロを実行してみてください。
(Alt+F8キー → マクロ → マクロ実行です)
Sub Sample1() 'この行から
Dim i As Long, j As Long
For j = 1 To Cells(1, Columns.Count).End(xlToLeft).Column
For i = 1 To Cells(Rows.Count, j).End(xlUp).Row - 1
If Cells(i, j) = "×" Then
Cells(i, j) = Cells(Rows.Count, j).End(xlUp)
End If
Next i
Next j
End Sub 'この行まで
※ マクロの場合、一旦マクロを実行すると元に戻せませんので、
別Sheetでマクロを試してみてください。m(_ _)m
お礼
早速のご回答まことにありがとうございました。うまく行きました!!!凄いです。数千列のデータでしたので大変助かりました。誠にありがとうございました。