请问各位大侠，如何用VBA跨表复制指定的新添加内容

cdhilite

请问大侠们：我想跨表复制指定的指定的内容，并且只复制新添加的内容如何更改VBA代码？谢谢！

cdhilite

ykcbf1100 发表于 2023-1-13 15:03
这样的话，主文件是2.xlsm,数据文件是1.xlsx

代码还是不一样的。

老师我的数据文件在D：\重要文件夹\1.xlsx内，那么p = Left(p, InStrRev(p, "\"))      '//当前目录的上级目录这句怎么改呢？谢谢~

ykcbf1100

你这代码也没啥好改的，还是重新写一个吧。

tanglf188

把代码粘贴到Sheet2，就能实行在表二修改，自动复制到表一
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Count > 1 Then Exit Sub
    If Target.Column = 1 Then Exit Sub
    Sheet1.Cells(Target.Row, Target.Column - 1) = Sheet2.Cells(Target.Row, Target.Column)
End Sub

cdhilite

ykcbf1100 发表于 2023-1-11 10:09
你这代码也没啥好改的，还是重新写一个吧。

老师好！谢谢帮助，但在运行到.Cells(r, 2).Resize(m, 3) = brr这个时报错？

cdhilite

ykcbf1100 发表于 2023-1-11 10:09
你这代码也没啥好改的，还是重新写一个吧。

老师好！谢谢回帖，但运行到.Cells(r, 2).Resize(m, 3) = brr    报错啊？该怎么改呢？谢谢！

ykcbf1100

cdhilite 发表于 2023-1-11 12:22
老师好！谢谢回帖，但运行到.Cells(r, 2).Resize(m, 3) = brr    报错啊？该怎么改呢？谢谢！

那是没有新的数据可以复制。
代码已更新。

ykcbf1100

cdhilite 发表于 2023-1-11 12:22
老师好！谢谢回帖，但运行到.Cells(r, 2).Resize(m, 3) = brr    报错啊？该怎么改呢？谢谢！

代码已更新。

cdhilite

tanglf188 发表于 2023-1-11 10:26
把代码粘贴到Sheet2，就能实行在表二修改，自动复制到表一
Private Sub Worksheet_Change(ByVal Target As ...

老师谢谢回复，但代码粘贴后没有反应呢？

tanglf188

cdhilite 发表于 2023-1-11 13:24
老师谢谢回复，但代码粘贴后没有反应呢？

输入变化后就能自动读入，没输入或输入有误都没变化

cdhilite

ykcbf1100 发表于 2023-1-11 12:42
那是没有新的数据可以复制。
代码已更新。

谢谢老师！很好！