请老师看一下这句代码问题出在哪里？

全党 · 发表于 2023-4-14 10:28

请老师看一下这句代码问题出在哪里？

准提部林 · 发表于 2023-4-14 13:11

USEDRANGE..每一次複製後範圍加大, 複製來源時, 將覆蓋整區,
亦即 USEDRANGE範圍變成來源區兩倍, 那就是貼上了兩個~~

准提部林 · 发表于 2023-4-14 13:15

Sheets("模板").Range("a1:f8").Copy Sheets("结果").UsedRange.Offset(h).item(1)

全党 · 发表于 2023-4-14 13:15

准提部林发表于 2023-4-14 13:11
USEDRANGE..每一次複製後範圍加大, 複製來源時, 將覆蓋整區,
亦即 USEDRANGE範圍變成來源區兩倍, 那就是貼 ...

前面几个没有问题，都是每次贴一个。另外我是对usedrange进行了偏移。应该不是这个问题。

准提部林 · 发表于 2023-4-14 13:32

全党发表于 2023-4-14 13:15
前面几个没有问题，都是每次贴一个。另外我是对usedrange进行了偏移。应该不是这个问题。

看一下錯誤訊息...複製區域與粘貼大小型狀不同...
Offset(h).Item(1) .. 加后面一節

yylucke · 发表于 2023-4-14 13:53

本帖最后由 yylucke 于 2023-4-14 14:04 编辑

建议修改：Sheets("模板").Range("a1:f8").Copy Sheets("结果").Range("A1").Offset(h, 0)

ykcbf1100 · 发表于 2023-4-14 14:17

建议改变一下处理方式，不要直接在模板表中操作，而是每次把模板表复制到新表后，在新表中处理数据。这样，不容易搞乱。

全党 · 发表于 2023-4-14 14:45

ykcbf1100 发表于 2023-4-14 14:17
建议改变一下处理方式，不要直接在模板表中操作，而是每次把模板表复制到新表后，在新表中处理数据。这样， ...

接受

准提部林 · 发表于 2023-4-14 14:58

給個常用方法//定首位...複製後再下移重定位

Xl0000033.rar (17.46 KB, 下载次数: 4)

全党 · 发表于 2023-4-14 15:06

yylucke 发表于 2023-4-14 13:53
建议修改：Sheets("模板").Range("a1:f8").Copy Sheets("结果").Range("A1").Offset(h, 0)

感谢指点。

		自动登录	找回密码
密码			免费注册

[求助] 请老师看一下这句代码问题出在哪里？