Excelのマクロで作りたい

質問

こんにちは。
あるデータベースを使うシステムでエクセルにデータをエクスポートしたら数値を入れている列が文字列として認識してしまいます。
本来文字列が入るところに数値を入れているだけなのですが、エクスポートした時も数値しか入っていないのですが文字列として入っています。
エクセル上では数値しか見えませんノートパッドにペーストすると数値の後ろに「”」があります。しかも改行されていて2行ある状態になっています。
なのでセルの内容を編集（F2)で開いてバックスペース2回押し、Enterで初めて数値として認識されます。
この行為をマクロ化するにはどうすればいいのでしょうか？
マイクの記憶で同じ動作をしてもそのセルの場所と中にある数値も一緒に記憶されるのでどこでやっても記憶した数値を貼り付けする事になってしまいます。

これをどの箇所でもマクロを押せばそのセルをF2してバックスペースを2回する様に設定することは可能でしょうか？

判りずらい説明ですがもし判る方が居たらご教授下さい。
宜しくお願いします。

回答No.4

zap35 · ベストアンサー

＃０１です
＞しかも改行されていて2行ある状態になっています。
ここを見落としていました

この意味がよく分かりませんし、実際の改行コードが分からないのですが
If Right(r.Value, 2) = "'" & Chr(10) & "'" Then
のようにすればいけると思います

でもエディタで開けるファイルならエディタで文字列置換してエクセルに読み込む方が簡単かもしれませんよ。

お礼

返信が遅くなって申し訳ありませんでした。
おかげさまでマクロ作れました。
ありがとうございました～

回答No.6

imogasi

＞エクセルにデータをエクスポートしたら
察するに、データは、多分ＣＳＶファイルのことでしょう。
ＣＳＶファイルの名も出てこない方が、ＶＢＡでというのもどうかなと思いますが。
ーー
ＣＳＶファイルを吐き出した業務のフィ－ルド定義が、文字列となっているのでしょう。そこへ数字文字列を入れたのでは。約束違反です。
ーー
ＣＳＶファイルは歴史的に３通りができていて、標準は、文字列は””で囲む。数字は””で囲まず、カンマの区切りは初めと終わりにあるというのが多い。文字列と言う約束のフィールドに数字を入れたので混乱しているのでしょう。
あと２つは””で文字列も囲まないのと、数値も囲むという型。
ーー
（１）ＣＳＶファイルの時に、問題の項目の””をはずしてしまう
（もちろんプログラムが必要）数が多くなければエディターで人手で直せる。
（２）エクセルの表に入ってくるときに書式を適用し、変える方法。
（３）エクセルの列のセルに入ってきて、そこで数値化する方法
とありそう。
（３）が一番手軽でしょう。
ーー
（３）で
Sub test01()
Cells(1, "B") = Val(Replace(Cells(1, "A"), """", "")) 'A
Cells(2, "B") = Val(Cells(2, "A")) 'B
End Sub
のＡかＢで、数値化がうまくいったなら
ーー
Ａのケースなら
Sub test02()
d = Range("A65536").End(xlUp).Row
For i = 1 To d
Cells(i, "B") = Val(Replace(Cells(i, "A"), """", ""))
Next i
End Sub
を実行する。Ａ列になっているが、問題の列で”Ａ”の箇所を変える。
ーー
ＢのケースならＢの行に置き換えて、上記を実行する。
ーー
最後にデーター外部データの取り込みーデータの取り込みでやり
マクロの記録をとり、どこを変えたらよいか、良く勉強すること。
多分上記の（２）の方法。
課題丸投げですよ。

回答No.5

mshr1962

文字列の数字を数値化する方法
その１：空白または0と入力されたセルをコピー
数字の範囲を選択して、「編集」「形式を選択して貼り付け」「値」と「加算」でOK
その２：1と入力されたセルをコピー
数字の範囲を選択して、「編集」「形式を選択して貼り付け」「値」と「乗算」でOK
その３：数字の１列のみを選択して、「データ」「区切り位置」
「次へ」「次へ」で２画面進んで表示形式を標準にして完了

上記なら「ツール」「マクロ」「新しいマクロの記録」でマクロ化できます。

回答No.3

pbforce

あいているセルに数字の1を入力してコピーして、数字にしたいセルに形式を選択して貼り付けにして、値の乗算で貼り付けてみて下さい。

回答No.2

まこと（@st_guusuke）

文字列を数値に一括変換すれば問題のひとつは解決すんですか？

回答No.1

zap35

データが入力されたセルの末尾が「''」（シングルクォーテーションが２つ）である全てのセルについて、末尾の「''」を削除すればよいですか？

以下のマクロをALT＋F11でVBE画面を開き、左上のVBA Projectでシート名を右クリックし「挿入」→「標準モジュール」で表示される画面に貼り付けて下さい。マクロの実行はワークシート画面に戻ってALT＋F8でマクロ一覧を開き、マクロ名を選択して「実行」ボタンです。

Sub Macro1()
Dim r As Range
　　For Each r In Cells.SpecialCells(xlCellTypeConstants, 3)
　　　　If Right(r.Value, 2) = "''" Then
　　　　　　r.Value = Left(r.Value, Len(r.Value) - 2)
　　　　End If
　　Next r
End Sub