▽1
●
Seven Knights ●100ポイント ベストアンサー |
Sheet1のデータをSheet2に書き出すものとすると,Sheet2のコードにこんな感じで書けばいいと思います(少し幼稚なコードかもしれないけど)。
Private Sub Worksheet_Activate()
Set SB = ThisWorkbook.Sheets("Sheet1")
Set SS = ThisWorkbook.Sheets("Sheet2")
SS.Cells.ClearContents
For j = 2 To 20
For i = 1 To SB.Cells(1, 1).End(xlDown).Row
Select Case IsEmpty(SB.Cells(i, j))
Case True
Case False
Select Case IsEmpty(SS.Cells(1, 1))
Case True
CL = 1
Case False
Select Case IsEmpty(SS.Cells(2, 1))
Case True
CL = 2
Case False
CL = SS.Cells(1, 1).End(xlDown).Row + 1
End Select
End Select
SS.Cells(CL, 1) = SB.Cells(i, 1)
SS.Cells(CL, 2) = SB.Cells(i, j)
End Select
Next i
Next j
End Sub