Excel VBA質問箱 IV

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

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


23829 / 76738 ←次へ | 前へ→

【58265】複数のキー項目をまとめ次レコードの有無により定数の値を変えたい。
質問  gon  - 08/10/15(水) 17:21 -

引用なし
パスワード
   bvaでわからないのですが
複数のキー項目を一まとめにし、次のレコードがあった場合は[,]次のレコードがない場合は[cmmit]といれるvbaをつくりたいのですがうまくいきません。
こんなテーブルを
a  b  c
1 あ ア
1 い イ
1 う ウ
2 か カ

↓こんなのにしたいのですが
1 あ ア,い イ,う ウcommit

現在
Sub Lesson1()
  Dim io As Integer
  Dim v, i As Long
  Dim ss As String
  Dim myPath As String
  
  v = [A1].CurrentRegion.Value 'A列で Sort済み
  io = FreeFile()
  myPath = ActiveWorkbook.Path & "\"
  For i = 1 To UBound(v)
    If v(i, 1) <> ss Then
      If Len(ss) Then Close io
      ss = v(i, 1)
      Open myPath & ss & ".txt" For Output As io
      Print #io, ss; vbTab; '' A 列出力追加。これも行を継続。
    End If
    Print #io, v(i, 2); vbTab; v(i, 3); vbTab; '' 行を継続。
  Next
  Close io
  MsgBox "出力しました"
End Sub
状態です。アドバイスお願いします。
0 hits

【58265】複数のキー項目をまとめ次レコードの有無により定数の値を変えたい。 gon 08/10/15(水) 17:21 質問
【58274】Re:複数のキー項目をまとめ次レコードの有... neptune 08/10/15(水) 22:16 発言

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