ある文字について、異なった列の特定行への一括置換

質問

以下の表があったとします。置換前の表中の×を各列の最後の文字に置き換えたいです。たとえば、A4の×は野菜、B2とB4の×は肉、など。実際には膨大なデータがありますので、一括で処理する方法をご教示いただけますと幸いです。よろしくお願いいたします。

【置換前の表】
　　A　　　　B　　　　C　　　　D
1　りんご　みかん　ぶどう　なし
2　みかん　×　　　×　　　　みかん
3　みかん　ぶどう　×　　　　×
4　×　　　　×　　　×　　　　×
5　ぶどう　なし　　　りんご　　りんご
6　ぶどう　みかん　なし　　　なし
7　野菜　　　肉　　　穀物　　　魚

【置換後の表】
　　A　　　　B　　 　　C　　　　D
1　りんご　みかん　ぶどう　なし
2　みかん　肉　　　穀物　　 みかん
3　みかん　ぶどう　穀物　　 魚
4　野菜　　肉　　　　穀物　　 魚
5　ぶどう　なし　　　りんご　 りんご
6　ぶどう　みかん　なし　　　なし
7　野菜　　肉　　　　穀物　　 魚

回答No.1

tom04 · ベストアンサー

こんにちは！

途中に空白セルがない！という前提で・・・
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

お礼

早速のご回答まことにありがとうございました。うまく行きました！！！凄いです。数千列のデータでしたので大変助かりました。誠にありがとうございました。