Excel VBA質問箱 IV

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

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


61053 / 76732 ←次へ | 前へ→

【20304】Re:空白を含む1つの長いデータを分割し...
回答  かみちゃん  - 04/12/4(土) 19:07 -

引用なし
パスワード
   こんにちは。かみちゃん です。

>しかし実をいうと実際のデータは「りんご、みかん、栗、大根、きゅうり」の5品目ではなく、200品目ぐらいあります。そのため、上に書いたように、ひとつづつ[xx]で表示するのは少し難しい状況です。その場合、Keinさんのような方法を応用してうまくできないでしょうか。    

区切り位置の桁が固定されているということですので、次のような感じでできると
思います。

Option Explicit

Sub Macro1()
  Dim strFieldInfo As String
  Dim i As Integer
  
  'フィールドの区切り位の編集
  strFieldInfo = ""
  For i = 1 To 200
   Select Case i
    Case 1 To 3 'コード、りんご、みかん … 3桁の場合
     strFieldInfo = strFieldInfo & "[xxx]"
    Case 4 To 6 '栗、大根、きゅうり … 2桁の場合
     strFieldInfo = strFieldInfo & "[xx]"
    Case ...
    End Select
  Next
  'データを区切る 区切った後は、B2から横に展開されます。
  Columns(1).Parse strFieldInfo, Range("B2")
End Sub
2 hits

【20281】空白を含む1つの長いデータを分割したい 初心者です 04/12/4(土) 12:16 質問
【20282】Re:空白を含む1つの長いデータを分割したい かみちゃん 04/12/4(土) 12:27 発言
【20294】Re:空白を含む1つの長いデータを分割したい Kein 04/12/4(土) 14:57 回答
【20299】Re:空白を含む1つの長いデータを分割し... 初心者です 04/12/4(土) 17:42 質問
【20304】Re:空白を含む1つの長いデータを分割し... かみちゃん 04/12/4(土) 19:07 回答
【20309】Re:空白を含む1つの長いデータを分割し... Kein 04/12/4(土) 23:37 回答
【20318】Re:空白を含む1つの長いデータを分割し... 初心者です 04/12/5(日) 13:13 お礼

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