教えてください。
ASP(クライアント側)の一部分です。
5件目にエクセルで表示したい列(A~Z)が入っています。
例えばDataの中身は
1:001,aaa,111,bba,A,1
2:002,aab,111,bbb,B,5
3:003,aac,111,bbc,C,1
4:004,aad,999,bbd,A,2
こんなデータが入ってるとすると3番目の111の重複しているものは1行のABCの列に1~3のデータを入れたいのです。そして4番目は次の行というふうに。
そのために1に入ってる111を別に格納して2のデータと比較。違ったら次の行へ。同じだったらその行のまま。
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
--------------------------------------
A 回答 (1件)
- 最新から表示
- 回答順に表示
No.1
- 回答日時:
>1行のABCの列に1~3のデータを入れたい
の意味は、
1: 001,aaa,111,bba,A,1
2: 002,aab,111,bbb,B,5
3: 003,aac,111,bbc,C,1
4: 004,aad,999,bbd,A,2
の1~3件目は、3番目の『111』がおなじだから、5番目のA、B、Cを使って、
1番目を『A』列
2番目を『B』列
3番目を『C』列
が入れる列。
で、『1~3のデータを入れたい』のデータとは、何番目かのデータではなく、
『001,aaa,111,bba,A,1』そのもののことでしょうか。
『001,aaa,111,bba,A,1』を書き込むなら、
.Cells(intRow , strData(5)).Value = Data(R)
だと思いますが・・・。解釈が違っていれば補足して下さい。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) エラーコード1004 6 2022/06/09 14:12
- Visual Basic(VBA) 【前回の続き続きです、ご教示ください】VBAの記述方法がわかりません。 2 2022/08/24 20:49
- その他(Microsoft Office) マクロVBAについて 1 2022/09/06 18:12
- Visual Basic(VBA) VBA Userformで一部別シートに転記がしたいのですが 2 2023/05/24 13:08
- Visual Basic(VBA) 別シートから年齢別の件数をカウントしたいの続き 5 2023/01/24 00:16
- Visual Basic(VBA) 【ご教示ください】VBAの記述方法がわかりません。 2 2022/08/12 21:28
- Visual Basic(VBA) ファイル全てを .xlsm に変更したところ、プログラムが途中で落ちてしまっています 17 2022/12/07 12:03
- Visual Basic(VBA) 3つのプロシージャをまとめたら実行時エラー発生で対応不能 6 2022/05/17 01:47
- Visual Basic(VBA) マクロで最終行を取得したい 4 2023/05/28 12:14
- Excel(エクセル) マクロでテキストファイルを読み込んだ際の最終セルにデータと改行が含まれる問題の改善方法 2 2022/03/25 16:50
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
【VB】セルが空になるまで処理...
-
VBAでの行数を揃える方法
-
重複データの表示
-
フラグをたてるってどういうこ...
-
MySQLで数字の値のもののみを取...
-
AccessVBAにて動的にテーブルを...
-
Access 別のDBに対してDlookup...
-
エラーを起こす方法
-
在庫管理のデータベース
-
Accessで今日から5日後
-
CASEでBETWEEN制約
-
T-SQLで任意の箇所で強制終了す...
-
timestampのデータはどのように...
-
MySQL: 複数テーブルのcount
-
UPDATEで既存のレコードに文字...
-
ACCESS テキストボックスに入...
-
truncate tableを使って複数の...
-
複数レコードの複数フィールド...
-
SQL 複数条件を設定
-
既にテーブルが存在する場合の...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
pandasでsqlite3にテーブル作成...
-
csvデータ不要列の削除をbatフ...
-
【VB】セルが空になるまで処理...
-
JDBCを使ってdate型へのINSERT...
-
追加クエリで重複データなしで...
-
Excel VBAのユーザーフォームで...
-
マクロでファイルを読み込み、...
-
VBAでの行数を揃える方法
-
ACCESS VBAでSeekメソッドの処...
-
エクセルで去年のデータを今年...
-
エクセル 2つの列にある値の完...
-
ListBoxにAddItemする際、重複...
-
Web制作において「サイト設定」...
-
一週間前から,今までVBAで行っ...
-
Pythonのsetを有効活用する方法...
-
データテーブルの使い方に関して
-
$_GET 説明で 専門書など ごた...
-
EXCELで外部データの取り込みが...
-
機械語
-
MySQLでauto_incrementをつかわ...
おすすめ情報