excel代码存档
1 2 3 4 5 6 | Sub 宏2() ' ' 宏2 宏 Range( "汇总表!A1:A2" ).Value = Range( "表1!A1:A2" ).Value End Sub |
1 2 3 4 5 6 7 8 9 10 11 | Sub 宏2() ' Range( "C13:C14" ).Value = Range( "A1:A2" ).Value ' 宏2 宏 Sheets( "表1" ).Select Range( "A2:J2" ).Select Selection.Copy Sheets( "汇总表" ).Select Range( "A2:J2" ).Select ActiveSheet.Paste End Sub |
【推荐】编程新体验,更懂你的AI,立即体验豆包MarsCode编程助手
【推荐】博客园携手 AI 驱动开发工具商 Chat2DB 推出联合终身会员
【推荐】抖音旗下AI助手豆包,你的智能百科全书,全免费不限次数
【推荐】轻量又高性能的 SSH 工具 IShell:AI 加持,快人一步