ユーザー定義の書式設定を文字列データで取得

質問

他の方が作ったエクセルのワークシートのセルにユーザー定義で書式設定されています。
たとえば、
"AKB-"0000
"SKE-"0000
とか、いろいろあります。

数値で48と入力すれば、AKB-0048やSKE-0048　のように表示されます。
なんでこんなのを書式設定でするんだ！というお叱りはひとまずおいといてください。
この表示された状態を、他のセルに文字列としてAKB-0048やSKE-0048　というデータとして簡単に取得する方法はないでしょうか？
最初、
="AKB-"&TEXT(A5,"0000")　で簡単・・・なんて思ったのですが、ユーザー定義が何種類もあり、一度ではできず結構手間です。

VBAならば

Sub test()
Dim c As Range
For Each c In Selection
c.Offset(, 1).Value = c.Text
Next
End Sub

でできるのですがVBA抜きのワークシートの操作でできるかどうかの質問です。
ユーザー定義関数もVBAなので除外させてください。
よろしくお願いします。

回答No.1

MackyNo1 · ベストアンサー

対象範囲をワードなどに貼り付け、いったんテキストデータにしてからコピーし直すのが最も簡単な対応です。

対象範囲を選択してCtrl+Cで「コピー」、ワードでCtrl+Vで「貼り付け」し、そのまま、その範囲をもう一度コピーし、エクセルで元データの上に「貼り付け」てください。

お礼

あら、一旦ワードやメモ帳を経由させるとちゃんと見たままの文字列が貼り付けられるんですね！
知りませんでした。
ありがとうございます。
勉強になりました。

回答No.5

MackyNo1

エクセル２００３でOfficeクリップボードを使うときは以下のような操作をします。

「編集」「Officeクリップボード」クリップボードを表示しておきます。
対象範囲を選択してCtrl+Cでコピーし、空白セルを選択し、画面上部の数式バーにカーソルを移動してOfficeクリップボードの内容を貼り付けます。
そのままCtrl+Shift+Homeキーでセルの内容全部を選択し、Ctrl+Xで切り取り、最後に元のデータの左上のセルでCtrl+Vで貼り付けます。

お礼

MackyNo1さん、なんどもありがとうございました。
良いお年をお迎えください。

回答No.4

mt2008

Excel4.0マクロはVBAじゃないから使ってもいいのかな？

無理があるけど参考までに……
対象セルがA1だとして、挿入→名前の定義で、適当な名前をつけます（例：TEST01）。
参照範囲に=GET.CELL(53,$A$1)&SUBSTITUTE(NOW(),NOW(),"")と入力して、表示したいセルに=TEST01と入力するとA1セルの表示そのままに「AKB48」と表示されます。

Excel4.0マクロはいつまで使えるか不明ですから余り使わない方が良いので、あくまで裏技的な扱いって事で。

お礼

う～ん、こんな裏技があるんですねえ。
有難うございます。

回答No.3

noname#204879

当該シートを一旦ＣＳＶファイルに保存したものを、別ブックとして読み込めばよろしいかと。
必要なら、その別ブックのシートを最初のブックに移動するとか…

お礼

なんとまあ、CSV保存は見えるままの文字列になるんですね！
これも知らなかった・・・。
ありがとうございます。

回答No.2

MackyNo1

よく質問を見たらエクセルのシート上で実現したいのですね。

その場合はOfficeクリップボードを利用するのが簡単です。

Excelのバージョンが記載されていないので2007の場合で説明すると。ホームタブのクリップボードの右下の部分をクリックしてOfficeクリップボードを表示しておきます。
そして、対象範囲を選択し「コピー」し、そのまま選択した状態でクリップボードの一番上の内容をクリックして貼り付けてみてください。

＃Officeソフトはバージョンによって使用できる機能や操作方法が大きく異なりますので、質問の際には必ずバージョンを明記するようにしましょう。

お礼

すみません、まだエクセル2003なんです。