|
こんにちは。かみちゃん です。
>というようにひとつの表にまとめたいのです
どこまで、ご自分でできているのかわかりませんが、別シートにまとめる方法であれば、以下のコードでできると思います。
Sub Macro1()
Dim i As Long, k As Long
i = 2 '入力シートの行数
k = 2 '出力シートの行数
'出力対象シート名
OutSheetName = "Sheet2_1"
Do Until Cells(i, 1).Value = ""
If Cells(i, 2).Value <> "" And Cells(i, 3).Value <> "" Then
With Sheets(OutSheetName)
.Cells(k, 1) = Cells(i, 1).Value
.Cells(k, 2) = Cells(i, 2).Value
.Cells(k, 2).NumberFormatLocal = "h:mm;@"
.Cells(k, 3) = Cells(i, 3).Value
.Cells(k, 3).NumberFormatLocal = "h:mm;@"
End With
k = k + 1
End If
If Cells(i, 4).Value <> "" And Cells(i, 5).Value <> "" Then
With Sheets(OutSheetName)
.Cells(k, 1) = Cells(i, 1).Value
.Cells(k, 2) = Cells(i, 4).Value
.Cells(k, 2).NumberFormatLocal = "h:mm;@"
.Cells(k, 3) = Cells(i, 5).Value
.Cells(k, 3).NumberFormatLocal = "h:mm;@"
End With
k = k + 1
End If
i = i + 1
Loop
End Sub
|
|