我有一本工作簿,里面有 5 张相同的工作表,筛选到不同的列表中
我已链接这些工作表,因此对其中 1 个工作表的编辑会更新所有其他工作表
它与以下代码链接
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
On Error Resume Next
Sheets("NEXT SHEET NAME").Range(Target.Address) = Target
End Sub
NEXT SHEET NAME
= 工作簿中下一个工作表的名称在它们之间创建循环
我遇到的问题是,我可以复制粘贴单个单元格,但如果我尝试复制多个或单击并拖动以粘贴到多个单元格中,它什么也不做。它显示悬停在粘贴上,但实际上不会粘贴,使单元格保持空白。
有人有主意吗?
答案1
缺少“值”,请尝试以下操作:
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
'On Error Resume Next
Sheets("NEXT SHEET NAME").Range(Target.Address).Value = Target.Value
End Sub