Excel VBA質問箱 IV

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

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


56231 / 76738 ←次へ | 前へ→

【25265】Re:セルの中の特定の文字列
回答  kobasan  - 05/5/25(水) 22:43 -

引用なし
パスワード
   ▼あいんすと さん 今晩は

>
>1つのセルの中に
>○○○○○ ×××℃ △△△△rpm
>スペースで区切られている文字列の
>×××℃ と △△△△rpm を
>それぞれ抜き出したいのですが...
>
>温度と回転数は変わるので、必ずスペースを入れることを
>前提に、℃とrpmの前の数字を取り出すことが出来ますでしょうか?


'splitを使うといいです。
'B2:B4に○○○○○ ×××℃ △△△△rpmのタイプのデータがあるとして
'

Sub test()
Dim r As Range
Dim A As Variant
  For Each r In Range("B2:B4")
    A = Split(r.Text, " ") '区切りは全角スペースとする
    B = Left(A(1), Len(A(1)) - 1)
    C = Left(A(2), Len(A(2)) - 3)
    MsgBox B & "℃" & vbCr & vbCr & C & "rpm"
  Next
End Sub
0 hits

【25263】セルの中の特定の文字列 あいんすと 05/5/25(水) 22:12 質問
【25265】Re:セルの中の特定の文字列 kobasan 05/5/25(水) 22:43 回答
【25266】Re:セルの中の特定の文字列 ponpon 05/5/25(水) 22:47 回答
【25267】Re:セルの中の特定の文字列 ponpon 05/5/25(水) 22:48 発言
【25315】Re:セルの中の特定の文字列 ponpon 05/5/27(金) 22:14 発言
【25316】Re:セルの中の特定の文字列 あいんすと 05/5/27(金) 22:40 お礼
【25268】Re:セルの中の特定の文字列 ちゃっぴ 05/5/26(木) 0:04 回答

56231 / 76738 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free