エクセルのセル内から数字だけを抽出する方法を教えて下さい
ある列には文字+数値OR数式が入っています。
その数式(数字)だけを取り出して別の列に移すマクロを教えて下さい
■■■◯.◯x◯
■■■■◯.◯+◯.◯
■■◯.◯ * ◯.◯
■■■■◯ + ◯.◯
■■■■◯.◯
※ "■""スペース"を削除した部分の式が欲しいです。
※ 四則演算の前後にスペースが入っている場合もあります。
※ Function *****(rng As Range) で出来れば助かります。
どうぞよろしくお願いします
A 回答 (4件)
- 最新から表示
- 回答順に表示
No.4
- 回答日時:
遅れ馳せですが、、、
>ある列には文字+数値OR数式が入っています
文字列の後に計算式又は数値というパターン以外は無いと考えてokですか?
>"■""スペース"を削除した部分の式が欲しいです。
スペースは半角のみと考えて良いですか?
半角と全角混在の場合はご自分で対応してください。
>四則演算の前後にスペースが入っている場合もあります
演算子の前後という理解で合っていますか?
>Function *****(rng As Range) で出来れば助かります
Function化もご自分で対応してください。
(例1)
Dim s As String
Dim i As Long
With Activecell
For i = 1 To Len(.Value)
If IsNumeric(.Characters(i, 1).text) = True Then
s = Right(.Value, Len(.Value) - (i - 1))
Exit For
End If
Next i
End With
MsgBox Replace(s, " ", "")
(例2)
Dim s As String
Dim i As Long
With Activecell
For i = 1 To Len(.Value)
If .Characters(i, 1).text Like "[0-90-9]" Then
s = Right(.Value, Len(.Value) - (i - 1))
Exit For
End If
Next i
End With
MsgBox Replace(s, " ", "")
No.3
- 回答日時:
No.2です。
>スペースの削除は上手く出来ましたが、
>小数点以下+四則演算の符号が上手く出来ませんでした。
>■■■◯.●x▲ ⇒ ◯.
とありますが、
具体的なデータ(元データを上手くできなかったデータ)のサンプルを提示してもらえれば
原因が判るかもしれません。m(_ _)m
No.2
- 回答日時:
こんばんは!
>ある列には文字+数値OR数式が入っています。
と
>※ Function *****(rng As Range) で出来れば助かります。
というコトですので、一例です。
四則計算限定としています。
Function keisan(myRng As Range)
Dim k As Long, str As String, buf As String
For k = 1 To Len(myRng)
str = Mid(StrConv(myRng, vbNarrow), k, 1)
If str Like "[0-9,.,=,+,*,/,×,÷,-]" Then
buf = buf & str
End If
Next k
keisan = buf
End Function
こんな感じではどうでしょうか?m(_ _)m
tom04 様
回答頂き有難うございました。
スペースの削除は上手く出来ましたが、
小数点以下+四則演算の符号が上手く出来ませんでした。
■■■◯.●x▲ ⇒ ◯.
お時間を頂き有難うございました。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) エクセルの数式で教えてください。 1 2023/02/02 10:20
- その他(Microsoft Office) ある表(10桝程度)の中に数字が入っています。ダブっている数字を除く数字の合計数の計算方法 5 2023/02/15 11:33
- Excel(エクセル) エクセルで#以降の文字を取得したい 1 2022/03/28 13:14
- Visual Basic(VBA) エクセルの数式で教えてください。 1 2023/07/31 15:49
- Excel(エクセル) エクセルの数式について ブック内の別シートの値の含まれたセルの個数を集計したい 全シート一覧のシート 1 2022/07/21 19:28
- Excel(エクセル) Indirect関数について、Formulatextで抽出した数式を参照したい。 1 2022/12/15 11:16
- Excel(エクセル) Excelで数式をそのままコピーしたい どうすればいいですか? 4 2022/09/16 02:16
- Excel(エクセル) エクセルの条件付き書式で*を使いたい 4 2022/05/13 16:49
- Excel(エクセル) エクセルの数式で教えてください。 2 2023/02/10 11:41
- Excel(エクセル) エクセルの数式で教えてください。 3 2023/03/16 11:19
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
【スプレドシート】IMPORTRANGE...
-
マイクロソフト 一時使用コード...
-
英数字のみ全角から半角に変換
-
エクセルの貼り付け「リンクさ...
-
大学のレポート A4で1枚レポー...
-
エクセルでXLOOKUP関数...
-
会社PCのメールが更新されない
-
エクセルのシフト表を簡単にGoo...
-
Excelのセルの重複チェックが出...
-
outlookのメールが固まってしま...
-
エクセルでレーダーチャートの...
-
teams設定教えて下さい。 ①ビデ...
-
オフィス365のエクセル
-
Microsoft Edgeの「ニュースと...
-
Microsoft Office Personal 2021
-
Excelで空白以外の値がある列の...
-
Excel テーブル内の空白行の削除
-
マクロ自動コピペ 貼り付ける場...
-
Excel2019と365、2021
-
Outlook 2021 アカウント設定時...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
文章内にスペースを入力する方...
-
【関数】スペースがいくつ入っ...
-
電車の中で腕を身体にそわせて(...
-
数値と単位が離れないように半...
-
Twitterのスペースに入ろうとす...
-
エクセル→CSVにした時、スペー...
-
viで行にスペース(空白)を挿...
-
エクセルについて質問です。 写...
-
「?」のあとにスペースはいら...
-
JR谷川駅の駐車場について
-
電子辞書の使い方
-
HP作成時容量20MBとはど...
-
フランス語:疑問符や感嘆符に...
-
正規表現で郵便番号だけを削除
-
word 2007 フィールドコード内...
-
学生寮に住んでるのですが、タ...
-
直リンクのできる素材屋さん
-
名前の入力について
-
Twitter(X)で、スペース機能が...
-
自作のHPを死後も残す方法は?
おすすめ情報