| |
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
状態です。アドバイスお願いします。
|
|
![[未読]](./data/excel/image/read_icon.gif){kind=icon}
