2017-11-17から1日間の記事一覧
Sub Main() Dim sh As Worksheet Set sh = Sheets("シート名") Dim i As Integer Dim j As Integer i = 2 j = 1 Do While sh.Cells(i, 1) <> "" Dim line As String Dim header As String Dim v As String j = 2 line = "<record>" & vbCrLf Do While sh.Cells(1, j) </record>…