![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?8acaa2e)
A 回答 (3件)
- 最新から表示
- 回答順に表示
No.3
- 回答日時:
#1 です。
> スペースは2つ以上であって、いつも2つではないのです。
Split + Trim の応用でできると思いますよ^^
' // 注)投稿上の都合で□は 半角SP n個(2つ以上)に置き換える
Sub Sample2()
Dim s As String
Dim vTmp As Variant
Dim vRet() As Variant
Dim v As Variant
Dim i As Long
' // テストデータ
s = "2222□□□My name is Tokyo□□□□□□□Male□□□□XXX@XXX"
' // 必要なら全角SPを半角SPに置換して統一する
' s = Replace$(s, " ", " ")
' // 半角SP2つ区切りで配列化
vTmp = Split(s, Space$(2))
' // 配列をループで回し、空の要素を取り除く
i = 0
For Each v In vTmp
v = Trim$(v)
If Len(v) Then
ReDim Preserve vRet(i)
vRet(i) = v
i = i + 1
End If
Next
' // 結果
If i > 0 Then
Range("A1").Resize(, i).Value = vRet
End If
End Sub
No.2
- 回答日時:
>[変換前]
2222 My name is Tokyo Male XXX@XXX
の辺の例示が良くわからない。
文章ではっきり書くこと。
私はこう解釈した。
2222の後に半角2スペース、Maleの後にも半角2スペース、その他の区切りは1スペースだと。
2スペースの後だけで分けたい。
ーー
それなら、
一旦2スペースを¥(何でもよいが、残りの文字列で起こりそうにない文字。見つけにくければ組み合わせ文字列でも可?)に置換し、その¥で区切り位置の操作をした。
マクロの記録をとれば、記録できた。下記
Sub Macro1()
Cells.Replace What:=" ", Replacement:="\", LookAt:=xlPart, SearchOrder _
:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
Selection.TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
Semicolon:=False, Comma:=False, Space:=False, Other:=True, OtherChar _
:="\", FieldInfo:=Array(Array(1, 1), Array(2, 1)), TrailingMinusNumbers:=True
End Sub
ヒントになるでしょう。冗長なコードは省いてください。
No.1
- 回答日時:
こんにちは。
一般機能でも VBA でも
1. "2つ以上の空白" だけを何らかの文字に置換(例)$
2. 1. で設定した文字を区切り文字にする
とすれば、できるんじゃないかな?
VBA に限定すれば、Split 関数を使って配列にばらす方法もありますね。
' // 注)投稿上の都合で□は半角SP2つに置き換える
Sub Sample()
Dim s As String
Dim v As Variant
s = "2222□My name is Tokyo□Male□XXX@XXX"
v = Split(s, Space$(2))
Range("A1").Resize(, UBound(v) + 1).Value = v
End Sub
この回答への補足
KenKen_SPさん、早急のお返事ありがとうございます。
スペースは2つ以上であって、いつも2つではないのです。
ために5つ、3つ、あるいは15つの時もあります。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) SUMIFSと日付変換 10 2023/04/16 15:38
- その他(パソコン・周辺機器) チャレンジタッチ3 改造 アプリインストールできない 1 2022/07/01 14:43
- JavaScript Json のキーと値の出力の違いについて 2 2022/06/14 20:22
- その他(Microsoft Office) パワークエリの複数ファイルのデータ統合について 3 2022/07/14 17:06
- 大学受験 高校英語です。 関係詞の問題についてで The man whose name I always fo 1 2022/08/19 11:32
- UNIX・Linux bash のファイルの読み込み方についてご質問 3 2023/05/15 20:40
- 確定申告 確定申告しなかった場合の期末商品棚卸高の扱い 2 2022/06/11 21:24
- 簿記検定・漢字検定・秘書検定 日商簿記2級について 以前、試験を行っていて 分からない仕訳がありました 資本準備金(剰余金?)と利 1 2022/11/23 06:22
- その他(ソフトウェア) 一太郎付属の”全件検索”ツールの不具合 3 2023/07/25 15:03
- Visual Basic(VBA) Excel VBA 教えてください。 VBA初心者です。 詳しい方がいましたら教えてください。 下記 3 2023/04/25 11:22
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
テプラは半角数字が使えますか?
-
半角の『°(単位の度)』
-
EXCELの文字列操作で文字数不足...
-
半角スペース
-
℃の半角表示
-
関数を使わずに一括で全角を半...
-
契約書や 公文書・私文書などに...
-
EXCEL95 VLOOKUP関数で半角と全角
-
EXCELで、セル内の半角カ...
-
Excel2016 検索の窓を常時表示...
-
Excel 文字列の中から数字だけ...
-
メールアドレスの上ハイフン入...
-
半角の×(かける)は?
-
Excel 2010のチルダ入力
-
【VBA】ファイルパスに半角スペ...
-
ギリシャ文字 μの出し方
-
エクセル関数で文字列の中のス...
-
半角αを全角αにしたい
-
ビジネスの文書における、数字...
-
1, (1),(1)の使い分け
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
テプラは半角数字が使えますか?
-
半角の『°(単位の度)』
-
メールアドレスの上ハイフン入...
-
半角の×(かける)は?
-
契約書や 公文書・私文書などに...
-
関数を使わずに一括で全角を半...
-
EXCELの文字列操作で文字数不足...
-
EXCEL95 VLOOKUP関数で半角と全角
-
半角スペース
-
EXCELで、セル内の半角カ...
-
℃の半角表示
-
エクセル関数で文字列の中のス...
-
【VBA】ファイルパスに半角スペ...
-
ビジネスの文書における、数字...
-
Excel2016 検索の窓を常時表示...
-
1, (1),(1)の使い分け
-
エクセルでひらがな・漢字はそ...
-
お名前(姓)」には「カタカナ(...
-
ギリシャ文字 μの出し方
-
隅付き括弧に半角はありますか...
おすすめ情報