Excel 表格自动内容输入后自己跳转的代码调整。

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$B$8" Then
        If Sheet2.Cells(1, 1) = "" Then
            Sheet2.Range("A1") = Range("B3")
            Sheet2.Range("B1") = Range("B4")
            Sheet2.Range("C1") = Range("B5")
            Sheet2.Range("D1") = Range("B6")
            Sheet2.Range("E1") = Range("B7")
            Sheet2.Range("F1") = Range("B9")
        Else
            p = Sheet2.Cells(Cells.Rows.Count, 1).End(xlUp).Row + 1
                        Sheet2.Cells(p, 1) = Range("B3")
                        Sheet2.Cells(p, 2) = Range("B4")
                        Sheet2.Cells(p, 3) = Range("B5")
                        Sheet2.Cells(p, 4) = Range("B6")
                        Sheet2.Cells(p, 5) = Range("B7")
                        Sheet2.Cells(p, 6) = Range("B9")
        End If
        Range("B3:B8").Select
    End If
End Sub