第1个回答 2013-04-25
我从网上给你找的,VBA方法实现自动复制,具体你再按这个思路研究下
Sub test()
Dim i As Integer, myrange As Range
'指定条件查找的区域,这里的a2:d12替换成你的表格所在的区域
For Each myrange In ActiveSheet.Range("a2:C12")
i = myrange.Row '指定条件值所在的行号
If myrange.Value = "A1" Then '指定条件
Rows(i).Copy '复制符合条件单元格所在的整行
'这里可以指定粘贴的目标表格
n=n+1
Worksheets("Sheet1").Rows(n).value= Sheets("Sheet2").Rows(i).value
Else
End If
Next
End Sub
另外一种方法是原则性粘贴,没有验证过
先复制表1需要的数据,在表2适当位置选择性粘贴,粘贴链接就可以啦。当表1的数据录入或更新完后,表2自然也更新了。