Excel VBA質問箱 IV

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

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


28490 / 76732 ←次へ | 前へ→

【53540】Re:String型文字列からの単語抽出
回答  りん E-MAIL  - 08/1/21(月) 0:02 -

引用なし
パスワード
   VBA初心者さん、こんばんわ。
>String型の文字列から、単語を抽出する方法について質問があります。
>
>例)
>"this  is  a pen"から「this」と「is」と「a」と「pen」を
>抽出する。
>※空白は複数個ある場合もある。
>
>良い抽出方法がありましたら、ご教示お願いします。
Split関数でちぎってみました。
Sub test()
  Dim s1 As String, msg As String, dt As Variant, II As Integer
  s1 = "this  is  a pen"
  'とりあえずちぎる
  dt = Split(s1, " ", compare:=vbTextCompare)
  '空白除外
  For II = LBound(dt) To UBound(dt)
   If Trim(dt(II)) <> "" Then msg = msg & vbCrLf & dt(II)
  Next
  '結果表示
  If Trim(msg) <> "" Then
   MsgBox "Result:" & msg, vbExclamation, s1
  Else
   MsgBox "?", vbExclamation, s1
  End If
End Sub

区切り位置を使って簡単に。
Sub Macro1()
  With Range("A1")
   '値
   .Value = "this  is  a pen"
   'データ→区切り位置→空白
   .TextToColumns Destination:=.Offset(0, 0), DataType:=xlDelimited, _
    TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=True, Space:=True
  End With
End Sub

こんな感じです。
1 hits

【53538】String型文字列からの単語抽出 VBA初心者 08/1/20(日) 23:03 質問
【53540】Re:String型文字列からの単語抽出 りん 08/1/21(月) 0:02 回答
【53543】Re:String型文字列からの単語抽出 Jaka 08/1/21(月) 9:37 発言
【53544】Re:String型文字列からの単語抽出 りん 08/1/21(月) 9:55 発言
【53549】Re:String型文字列からの単語抽出 Jaka 08/1/21(月) 11:06 発言
【53550】Re:String型文字列からの単語抽出 りん 08/1/21(月) 11:08 発言
【53557】Re:String型文字列からの単語抽出 VBA初心者 08/1/21(月) 21:38 お礼

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