色彩検定1級を取得する魅力を紹介♪

A列とE列の文字列になってしまった数値を
数値に変換したく、以下のようなものを作ったのですが、
文字の無いセルまで、数値に変換しようとするので
時間がかなりかかります。
何かよい方法は無いでしょうか?
よろしくお願いいたします。


Sub 数値に変換()
Range("A:A,E:E").Select
For Each xCell In Selection
xCell.Value = xCell.Value
Next xCell
End Sub

使用ソフトEXCEL2000orEXCEL2003

gooドクター

A 回答 (2件)

>Range("A:A", "E:E")


これは、A、B,C,D,E列のことなので
A列とE列であれば質問者のようにRange("A:A,E:E")です。

ま、それはそれとして、回答。

Sub Test()
 Range("A:A").Value = Range("A:A").Value
 Range("E:E").Value = Range("E:E").Value
End Sub

以上。
 
    • good
    • 21
この回答へのお礼

ありがとうございます。
値を入れ直すと、数値になるんですね。
大変勉強になりました。

お礼日時:2008/07/03 22:02

With Range("A:A", "E:E")


.NumberFormatLocal = "G/標準"
.Value = .Value
End With

こんな感じの事でしょうか?

この回答への補足

早速の回答ありがとうございます。
表示形式でできるのですね。
しかし、上記のように入れると(コピペしました)
B.C.D列も変換されてしまいます。

With Range("A:A", "E:E")を
With Range("A:A,E:E")
にすると、A列はうまくいくのですが、E列は
すべて同じ数値になってしまいます。
よろしくお願いいたします。

補足日時:2008/07/03 21:23
    • good
    • 9

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!

このQ&Aを見た人はこんなQ&Aも見ています

gooドクター

このQ&Aを見た人がよく見るQ&A

人気Q&Aランキング