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

Posted 2023-02-27

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 参考技术A 比如复制sheet1表格中齐数列数据
sheet2的A1输入
=OFFSET(Sheet1!$A$1,2*(ROW(A1)-1),)
公式下拉 参考技术B 利用公式恐怕不行，你可以试下选择性粘贴！ 参考技术C 公式比较复杂，用VBA更好处理