如果是相同行号和列号，可以按住CTRL间选中单元格，在内容栏里修改按住CTRL键选中好几张表格，然后更改单元格的内容，最后回车，然后选中其中一张表格，查看效果
w.Sheets("门窗单价分析").Range("E30") = " "在双引中输入公式就可以了,记得要先输入=例如w.Sheets("门窗单价分析").Range("E30") = " =a1 +b1",就是计算a1和b1单元格的和
