小白求助不用复制粘贴，让VBA实现多区域自动对应粘贴

yxf1366

代码要在目标工作簿”日就餐情况.xlsm“中存放，想实现从不打开（或已打开状态）的”2024日取表模板.xlsm“工作簿中拷贝其内指定”日样表“工作表中的三个区域A3：C19 、E3：G19  、I3:K19到目标工作簿”日就餐情况.xlsm“中 ，运行VBA时可以弹出对话框，让用户输入目标工作表的名称 （如3.1或3.20等已有工作表）  在已输入并存在的工作表的对应A3：C19 、E3：G19  、I3:K19区域内的数值性粘贴源表中的数据，根据内容能自适应行高。  复制粘贴本是可以的，但就想用VBA实现！请指教小白并写出完整代码！！！

ykcbf1100

应该就是把模板表复制到当前工作簿的过程。整表复制，然后把标题行中的“未伙人”改为“签名就行了。

shiruiqiang

for x=3 to 19 step 2

    for y=1 to  12 step 4
循环复制就行

yxf1366

ykcbf1100 发表于 2024-1-12 14:52
应该就是把模板表复制到当前工作簿的过程。整表复制，然后把标题行中的“未伙人”改为“签名就行了。

您的思路转变了我的想法，但好像不符合目标要要求。