將條件語句增加兩行即可:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Row = 1 And Target.Column = 1 Then
Sheet2.Cells(Sheet2.Cells(65536, 1).End(xlUp).Row + 1, 1) = Target.Value
ElseIf Target.Row = 1 And Target.Column = 2 Then
Sheet2.Cells(Sheet2.Cells(65536, 2).End(xlUp).Row + 1, 2) = Target.Value
ElseIf Target.Row = 1 And Target.Column = 3 Then
Sheet2.Cells(Sheet2.Cells(65536, 3).End(xlUp).Row + 1, 3) = Target.Value
ElseIf Target.Row = 1 And Target.Column = 4 Then
Sheet2.Cells(Sheet2.Cells(65536, 4).End(xlUp).Row + 1, 4) = Target.Value
End If
End Sub
不過這樣做有一個缺點,就是每當你在Sheet1中點進這四個格的時候,都會觸發這個過程的執行,增添無用數據,所以建議,像你的圖上這樣,增加一個按鈕,輸完這四個單元格之后,點一下按鈕,才把數據添加進Sheet2中去.