Case "D"
Book2.Sheets（"数据4"）.Activate
Case "E"
Book2.Sheets（"数据5"）.Activate
Case "F"
Book2.Sheets（"数据6"）.Activate
Case "G"
Book2.Sheets（"数据7"）.Activate
Case "H"
Book2.Sheets（"数据8"）.Activate
End Select
ActiveSheet.Paste
Next
前提是表1和2要打开，在表1运行 。而且两个表的表名按你所述是已经建立的，如果表名不对应，将会运行错误 。

• 论文中的伪代码怎么写
• 外键代码怎么写
• html导航怎么写
• 怎么复制一个网页代码怎么写
• 易语言怎么写复制
• 圆角代码怎么写
• html开头怎么写
• bat代码怎么写
• android调用c代码怎么写
• visit函数怎么写