EXCEL 宏编写VBA问题

Question

专家好，以下问题基本有了方法，请专家帮忙改善下列宏。Sub 宏1()[A3] = [A1] * 100 / [A2]End Sub1.上面的计算结果最好能整数，比如计算结果是187.5，A3直接去掉小数点填入1872.能否做到跨工作表粘贴，在工作簿1的sheet1 点击按钮执行命令，把上面计算好的结果粘贴到工作簿2的sheet2的A3单元格去。整个过程在工作簿1的sheet1 执行命令，计算好后自动打开工作簿2粘贴到sheet2的A3。谢谢各位了
由于百度排版乱了，请看图片描述

Answer 1

1：如没有负数，可用fIoor()向下取整。
2：命令中指明工作表即可。追问

怎么写？我不会写

追答

Sub 按钮1_Click()
Dim x
x = WorksheetFunction.Floor(Sheet2.Cells(1, 1) * 100 / Sheet2.Cells(1, 2), 1)
Sheet3.Cells(1, 1) = x
End Sub