第3个回答 2012-10-06
执行一个宏,不能拖出来,或把代码写在更改事件中(需修改代码):
Sub s()
i = 1
Do While Cells(i, 2) <> ""
Cells(i, 3) = Cells(i, 1).MergeArea.Cells(1, 1) * Cells(i, 2)
Cells(i, 4) = Cells(i, 3) & "=" & Cells(i, 1).MergeArea.Cells(1, 1) & "*" & Cells(i, 2)
i = i + 1
Loop
End Sub本回答被网友采纳