Sub 銷售業績表()
    Set WS1 = Worksheets("客戶名稱")
    Set WS2 = Worksheets("銷售業績")
    Set WS3 = Worksheets("出帳單")
    Set WS4 = Worksheets("出帳單2")
    
    With WS1
        .Range("B4:D4").Copy Dwstination:=WS3.Range("A3")
        .Range("B5:D5").Copy Dwstination:=WS3.Range("A8")
        .Range("B6:D6").Copy Dwstination:=WS3.Range("A13")
    End With
    
    With WS3
        .Range("A4,A9,A14") = "牛肉"
        .Range("A5,A10,A15") = "雞肉"
        .Range("A6,A11,A16") = "豬肉"
    End With
    
    With WS2
        .Range("C3:D3").Copy Dwstination:=WS3.Range("B4")
        .Range("C4:D4").Copy Dwstination:=WS3.Range("B9")
        .Range("C5:D5").Copy Dwstination:=WS3.Range("B14")
        .Range("C10:D10").Copy Dwstination:=WS3.Range("B5")
        .Range("C11:D11").Copy Dwstination:=WS3.Range("B10")
        .Range("C12:D12").Copy Dwstination:=WS3.Range("B15")
        .Range("C17:D17").Copy Dwstination:=WS3.Range("B6")
        .Range("C18:D18").Copy Dwstination:=WS3.Range("B11")
        .Range("C19:D19").Copy Dwstination:=WS3.Range("B16")
    End With
End Sub

    Source: geocities.com/hk/bokuwa_dikikodesu/school-mark

               ( geocities.com/hk/bokuwa_dikikodesu)                   ( geocities.com/hk)