表对表复制，求老师帮忙完善

35815901 · 发表于 2023-1-13 10:58

本帖最后由 35815901 于 2023-1-13 12:45 编辑

Sub 复制()
For x = 3 To 205
If Cells(x, "c") <> "" Then Range(Cells(x, "l"), Cells(3, "b")).Copy Sheets("MY").[A1]
Next
End Sub

这是固定复制到了MY这个表里，起始单元格是A1
每次都是覆盖式复制，我想改成复制到MY表里的下一空行，就是紧跟着上次复制的数据

liulang0808 · 发表于 2023-1-13 12:28

Sheets("MY").cells(rows.count ,1).end(3).offset(1)
没有附件，见不到具体数据格式，如果每次A列都不存在空的，可以尝试使用上面的

35815901 · 发表于 2023-1-13 12:44

liulang0808 发表于 2023-1-13 12:28
Sheets("MY").cells(rows.count ,1).end(3).offset(1)
没有附件，见不到具体数据格式，如果每次A列都不存 ...

按您给的改了不行，附件我传给您看一下

35815901 · 发表于 2023-1-13 12:47

liulang0808 发表于 2023-1-13 12:28
Sheets("MY").cells(rows.count ,1).end(3).offset(1)
没有附件，见不到具体数据格式，如果每次A列都不存 ...

在MN表里做了点击两次按钮的摸拟数据，按钮是查询表里黄色那个

liulang0808 · 发表于 2023-1-13 12:50

35815901 发表于 2023-1-13 12:44
按您给的改了不行，附件我传给您看一下

看下你的mn表的A列，最后一个空白是在哪里？
建议删除下方公式，再拷贝

如果要留下面数据，那么就对mn单元从上到下遍历，找第一个空的拷贝

35815901 · 发表于 2023-1-13 13:17

liulang0808 发表于 2023-1-13 12:50
看下你的mn表的A列，最后一个空白是在哪里？
建议删除下方公式，再拷贝

不好意思，刚刚没注意在底下有数据，
点了一下按钮效果是这样的，红框的数据多了

liulang0808 · 发表于 2023-1-13 13:57

35815901 发表于 2023-1-13 13:17
不好意思，刚刚没注意在底下有数据，
点了一下按钮效果是这样的，红框的数据多了

你对比下原始数据情况跟提取数据情况
还是有问题，再把当前的代码文件上传一下吧

35815901 · 发表于 2023-1-13 14:29

liulang0808 发表于 2023-1-13 13:57
你对比下原始数据情况跟提取数据情况
还是有问题，再把当前的代码文件上传一下吧

好的，麻烦你了

liulang0808 · 发表于 2023-1-13 21:25

35815901 发表于 2023-1-13 14:29
好的，麻烦你了

原来表格位置的数据跟你新表格对应位置不一致了
这样的拷贝当然要出现问题了

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