Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

39160 / 76732

←次へ　｜　前へ→


	【42689】Re:文字列を数値に変換する方法について

ハチ - 06/9/19(火) 14:03 -


	引用なし

	パスワード

▼ぴいさん：

横から失礼します。
Repleceを沢山書くとメンテナンスが大変じゃないですか？

別案でこんな感じでもできると思います。
データ量が多いと遅いかもしれません。
書式もコピーしたいなら
R.Value = Fi.Offset(, 1).Value を変更すればできます。

WorkSheets名"変換表"を追加して
A列に変換元の値、B列に変換後の値を記入していきます。

標準モジュールに下記マクロを入れる。

変換したい範囲を選択した状態で"Find_Test"を実行。

Sub Find_Test()
　　Dim R As Range
　　Dim Fi As Range
　　
　　For Each R In Selection.Cells
　　　　Set Fi = Worksheets("変換表").Range("A:A").Find(R.Value, , xlValues, xlWhole)
　　　　If Not Fi Is Nothing Then R.Value = Fi.Offset(, 1).Value
　　Next R
　　Set Fi = Nothing
End Sub

0 hits

▼

【42657】文字列を数値に変換する方法について ぴい 06/9/18(月) 15:35