VBA问题请教~~

发布网友发布时间：2024-10-01 21:47

共3个回答

热心网友时间：2024-10-17 15:24

Sub 宏3()
'
' 宏3 宏
'

'

Windows("工作簿1.xlsx").Activate
Sheets("Sheet2").Select
Range("E5").Select
Selection.Copy
Windows("工作簿2.xlsx").Activate
Sheets("Sheet3").Select
Range("E5").Select
ActiveSheet.Paste
Windows("工作簿1.xlsx").Activate
End Sub

热心网友时间：2024-10-17 15:26

Windows("工作表2.xls").Activate

Sheets("Sheet2").Select
Range("E5").Select
Selection.Copy
Windows("工作表1.xls").Activate
Sheets("Sheet3").Select
Range("E5").Select
ActiveSheet.Paste

这是宏代码，如果你要VB6.0或者更高版本的，请再联系。

热心网友时间：2024-10-17 15:24

这个好像不需要用VBA的吧！直接在工作表1的SHEET3的CELLS（5,5）中写=[工作表2.xls]sheet2!$5$5就可以了吧！

声明：本网页内容为用户发布，旨在传播知识，不代表本网认同其观点，若有侵权等问题请及时与本网联系，我们将在第一时间删除处理。E-MAIL:11247931@qq.com

VBA问题 请教~~

VBA问题请教~~