excel怎么用vba复制指定列符合条件的单元格及其所在行到另一个工作表？不符合条件不复制。

Question

如题所述

Answer 1

col="A" '判断条件所在列，可修改为基本列
j=2
for i=2 to cells(65536,col).end(xlup).row
if cells(i,col)>100 then '符合条件
Rows(i).copy sheets("另一个工作表名称").cells(j,"A") '整行复制到另一工作表的A列
j=j+1
end if
next追问

你好，我想判定某一列中符合条件的单元格，我怎么设置单元格的条件啊？符合条件的复制这个单元格及其所在行到另一个工作表，不符合的不复制，而且这些数据是动态变化的

追答

你要想什么的条件，你自己清楚，怎么问上我了。动态变化的，只要有规律，可以弄出来滴