VBA: 表A中值 经过表B的计算规则后，得到的结果返回表A



功能：将一个Sheets("总表")中的值赋给Sheets("评估").，在“评估”表中得出结果后再返回到Sheets("总表")中。

Sub 评估()
    Dim x As Integer, y As Integer
    y = Sheet1.Range("l65536").End(xlUp).Row                   '寻找一列中最后一个非空值的行号
    For x = 2 To y
        Sheets("评估").Cellls(4,“C”) = Sheets("总表").Cells(x, "L")
        Sheets("评估").Cells(6, "C") = Sheets("总表").Cells(x, "M")
        Sheets("评估").Cells(5, "C") = Sheets("总表").Cells(x, "P")
        Sheets("总表").Cells(x, "Q") = Sheets("评估").Cells(18, "C")
    Next x
End Sub