Dim i, num As Integer, rng As Range
For num = 2 To Cells(Rows.Count, 2).End(xlUp).Row
Set rng = Cells(num, 4)
i = Cells(num, 2) * Cells(num, 3)
rng = i
Next
For num = 2 To Cells(Rows.Count, 2).End(xlUp).Row
Set rng = Cells(num, 4)
i = Cells(num, 2) * Cells(num, 3)
rng = i
Next












本站有权保留或删除有争议评论。 参与本评论即表明您已经阅读并接受上述条款。