Excel怎样用VBA查找指定内容并返回值

2025-03-06 17:37:41

推荐回答（3个）

回答1：

假设图1在sheet1，图2在sheet2，请参考

sub test ()
RowCount=sheets(1).[E90000].end(xlup).row
for i =1 to RowCount
   if sheets(1).range("E" & i).value like "*2002*" then
      sheets(2).range("a" & i).value=sheets(1).range("b" & i).value
      sheets(2).range("b" & i).value=sheets(1).range("d" & i).value
  end if
next
end sub

回答2：

G2输入公式
=IF(LEFT(E2,4)*1=2002,"Yes","")
下拉
对G列进行自动筛选
将筛选结果直接复制粘贴到sheet2
删掉不要的列
即可

回答3：

这个必须用VBA？函数就可以轻易做到了啊