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

来源:互联网 发布:淘宝上有正品阿迪吗 编辑:程序博客网 时间:2024/04/26 19:01


功能:将一个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

1 0
原创粉丝点击