重複データの表示

質問

教えてください。
ASP（クライアント側）の一部分です。
5件目にエクセルで表示したい列（A～Z）が入っています。
例えばDataの中身は
１： 001,aaa,111,bba,A,1
２： 002,aab,111,bbb,B,5
３： 003,aac,111,bbc,C,1
４： 004,aad,999,bbd,A,2
こんなデータが入ってるとすると3番目の111の重複しているものは1行のABCの列に１～３のデータを入れたいのです。そして４番目は次の行というふうに。
そのために１に入ってる111を別に格納して２のデータと比較。違ったら次の行へ。同じだったらその行のまま。
intCountには30件のデータが入っています。
アドバイスお願いします。
--------------------------------------
intCount = UBound(Data)
Dim p ' ページカウント
Dim L ' ラインカウント
Dim R ' レコードカウント
Dim Point ' 編集用ポイント
Dim CodeSave ' Aコード退避用
p = 0
L = 2
R = 0

With objExcelSheet

While R <= intCount
intRow = (L + p * 40)

' カンマを認識しない
strData = split(Data(R),",")

CodeSave = strData(3)
Do Until(CodeSave <> strData(3))
.Cells(intRow,strData(5)).Value = strData(??)　　←わからない・・・

R = R + 1
If R <= intCount Then
strData = split(Data(R), ",")
Else
Exit Do
End If
Loop

L = L + 1
Wend
End With
--------------------------------------

回答No.1

nishi6

＞1行のABCの列に１～３のデータを入れたい

の意味は、
１： 001,aaa,111,bba,A,1
２： 002,aab,111,bbb,B,5
３： 003,aac,111,bbc,C,1
４： 004,aad,999,bbd,A,2

の１～３件目は、3番目の『111』がおなじだから、5番目のA、B、Cを使って、
　１番目を『A』列
　２番目を『B』列
　３番目を『C』列
が入れる列。

で、『１～３のデータを入れたい』のデータとは、何番目かのデータではなく、
『001,aaa,111,bba,A,1』そのもののことでしょうか。

『001,aaa,111,bba,A,1』を書き込むなら、
.Cells(intRow , strData(5)).Value = Data(R)

だと思いますが・・・。解釈が違っていれば補足して下さい。

お礼

ありがとうございました。
無事解決しました。