エクセルデータの値に0を追加したい

質問

こんにちは。よろしくお願いします。
ある予約システムを使用しているのものです。
エクスポートという機能があり、これで顧客プロファイルの情報を吐き出すと電話番号の最初の「0」が抜けてしまいます。
パッケージで売られているものなので、将来的には修正される可能性があるのですが、現状は自分で「0」を足しこまないといけなそうです。

そこでエクセルで吐き出したプロファイルに簡単に「0」と足す方法を探しています。
2010 OFFICEを使用しています。
マクロの機能を使用したことが無いので詳しく解らないのですが、そいった機能も含めてどのスタッフでも行える様にしたく思っています。

どなたかアドバイスをお願い致します

回答No.1

某HN クロメート(Chromate)（@CoalTar） · ベストアンサー

エクスポートされたものはメモ帳で開けると思いますので、0が実際に入っていないか確認してください。

A1セルからA列に対象があるとして
=IF(A1="","",0&A1)
下へオートフィル
数式を書いた列をコピーして
A列を選択後、値の貼り付け
数式を描いた列の削除
A列の表示形式は文字列となっているか確認してください。

回答No.2

esupuresso

Excel2010よりマクロ機能を使った方法を・・・

以下のコードをコピーします
　　　　　↓（ここから下の6行分をコピー）
Sub 最初に0を入れる()
Selection.NumberFormatLocal = "0#######"
End Sub
Sub ゼロを消す()
Selection.NumberFormatLocal = "G/標準"
End Sub

次に、対象のブックを開き、「Alt」キーを押した状態でファンクションキーの「F11」を押すとVBAの画面が起動しますので「挿入」タブをクリックしてメニューから「標準モジュール」をクリックするとコードウィンドウが現れます
そのウィンドウの中に先程コピーしたコードを貼り付けます
貼り付け終わったらVBAの画面を閉じて、最初に「0」を入れたいセルをクリックなりドラッグなりして選択します
エクセル画面の「表示」タブをクリックして一番右側の「マクロ」のアイコンをクリックすると先程登録したマクロ名が２つ出ます
１つは「最初に0を入れる」、2つ目は「ゼロを消す」というコードが表示されてると思いますので、最初に「0」を入れる場合は「最初に0を入れる」の方の表示を選択→「実行」をクリックすると、例えば「123」が「0123」のように変わります
間違えて「最初に0を入れる」を押してしまった場合は、「ゼロを消す」を選択して「実行」をクリックすると元に戻ります