セルの書式を、ただの文字列として保存する

質問

Excel2003＋WindowsXPです。

セルのデータ「1」、書式が「@"時間目"」と設定し、「1時間目」と設定させているところを、書式を解除してセルのデータを「1時間目」となるようなマクロを作りたいと思っています。

どうしたらできるでしょうか。

回答No.1

shkwta · ベストアンサー

その書式しか使わないなら、
Cells(2,1) = Cells(2,1) & "時間目"

いろいろな書式が混じっているなら
Cells(2,1) = Format(Cells(2,1),Cells(2,1).NumberFormat)

のような文を、関係するすべてのセルについて実行すればよいと思います。

回答No.2

imogasi

文字列にして良いなら、＃１でご回答のあるように、
Sub test01()
For i = 1 To 5
Cells(i, "B") = Format(Cells(i, "A"), Cells(i, "A").NumberFormat)
Next i
End Sub
または第３行目を
Cells(i, "A") = Format(Cells(i, "A"), Cells(i, "A").NumberFormat)

そこまでする必要性が良く理解できないですが。

お礼

上から指定された書式があまりにも使いづらいので修正したのですが、「一切変更するな」とのことなので、変更して使用しているのがわからないように元に戻したかったのです。

ありがとうございました。