如何将EXCEL中符合条件的数据利用公式复制到另一个工作表

如题所述

1、公式无法完成复制,在一定条件下可以实现引用,但源数据必须存在。

2、可以编写一段VBA代码将EXCEL中符合条件的数据复制到另一个工作表:
假设是要查找A列包含XXX的,查到后将该行复制到另一个表。
sub test()
Dim i&,r&
r=cells(rows.count,1).end(xlup).row '定位A列最后一行
k=1 'Sheet2 的起始行
for i=1 to r '从第一行循环至第最后一行
if instr(cells(i,1),"XXX")>0 then '如果A列第i行单元中包含XXX,则将该行复制到表2
Range("A" & i & ":Z" &).Copy Sheet2.Range("A" & k) ‘复制第i行至表2
End if
next
End Sub
温馨提示:内容为网友见解,仅供参考
第1个回答  2017-06-13
比如复制sheet1表格中齐数列数据
sheet2的A1输入
=OFFSET(Sheet1!$A$1,2*(ROW(A1)-1),)
公式下拉
第2个回答  2012-11-09
利用公式恐怕不行,你可以试下选择性粘贴!
第3个回答  2012-11-10
公式比较复杂,用VBA更好处理
相似回答