|
こんにちは。かみちゃん です。
>しかし実をいうと実際のデータは「りんご、みかん、栗、大根、きゅうり」の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
|
|