[已解决]请老师帮我修改代码

ULCY

请老师再帮我修改代码，表三工作表里的I6和I9单元格;I6=F6*0.6;
              I9=F9*0.6
I7和I8单元格：I7=F7*0.1
              I8=F7*0.1
I10：I30区域单元格都是*0.6

最佳答案

月排行榜 / 总排行榜

scl5801

2016-2-13 22:12

Sub test()
    Dim i&
    With Sheets("表一")
        For i = 6 To .[b65536].End(3).Row
            .Cells(i, "j") = .Cells(i, "i") * .Cells(i, "f")
            .Cells(i, "k") = .Cells(i, "h") - .Cells(i, "j")
        Next
    End With
    With Sheets("表二")
        For i = 6 To .[b65536].End(3).Row
            .Cells(i, "i") = .Cells(i, "f") * 0.6
            .Cells(i, "k") = .Cells(i, "j") * .Cells(i, "i")
            .Cells(i, "l") = .Cells(i, "h") - .Cells(i, "k")
        Next
    End With
    With Sheets("表三")
        For i = 6 To .[b65536].End(3).Row
            .Cells(i, "i") = .Cells(i, "f") * 0.6
            .Cells(i, "k") = .Cells(i, "j") * .Cells(i, "i")
            .Cells(i, "l") = .Cells(i, "h") - .Cells(i, "k")
        Next
        .Cells(7, "i") = .Cells(7, "f") * 0.1
        .Cells(8, "i") = .Cells(7, "f") * 0.1
    End With
End Sub

跳转到最佳答案楼层

scl5801

Sub test()
    Dim i&
    With Sheets("表一")
        For i = 6 To .[b65536].End(3).Row
            .Cells(i, "j") = .Cells(i, "i") * .Cells(i, "f")
            .Cells(i, "k") = .Cells(i, "h") - .Cells(i, "j")
        Next
    End With
    With Sheets("表二")
        For i = 6 To .[b65536].End(3).Row
            .Cells(i, "i") = .Cells(i, "f") * 0.6
            .Cells(i, "k") = .Cells(i, "j") * .Cells(i, "i")
            .Cells(i, "l") = .Cells(i, "h") - .Cells(i, "k")
        Next
    End With
    With Sheets("表三")
        For i = 6 To .[b65536].End(3).Row
            .Cells(i, "i") = .Cells(i, "f") * 0.6
            .Cells(i, "k") = .Cells(i, "j") * .Cells(i, "i")
            .Cells(i, "l") = .Cells(i, "h") - .Cells(i, "k")
        Next
        .Cells(7, "i") = .Cells(7, "f") * 0.1
        .Cells(8, "i") = .Cells(7, "f") * 0.1
    End With
End Sub

ULCY

scl5801 发表于 2016-2-13 22:12
Sub test()
    Dim i&
    With Sheets("表一")

  .Cells(8, "i") = .Cells(8, "f") * 0.1
OK，祝老师过年开心快乐，谢谢老师！！！！