请高手用VBA编写程序：电子表中查找出a列符合条件单元格再自动复制粘贴到D列中，请在每句后面注上说明。

Question

如题所述

Answer 1

sub 程序()
dim i,j as integer'定义两个变量 i对应A列行号 j对应D列行号
j=1 '定义j初始值为1 如果有标题行请自行将i j初始值定义为2
for i=1 to worksheets("sheet1").range("a65536").end(xlup).row '定义循环i初始值2 终止值为A列最末的行号
if worksheets("sheet1").range("a" & i & "")******** then 'A列的条件判断 请自行添加***号部分
worksheets("d" & j & "")=worksheets("sheet1").range("a" & i & "") '条件成立则复制对应数据至D列
j = j+1 ’复制成功D列行号下移 j+1
end if ‘条件判断不成立则跳过复制步骤
next i ‘循环语句 对应A列行号下移 i+1
end sub

补充说明 程序未经调试，如有问题请Hi我的百度帐号 qq13252191追问

请教高手，不知什么原因，上面程序我补充判断积极条件后，后面语句end if next i红色显示，不能运行，请帮忙调试一下，最好将上面程序修改为：符合2000年12月31日出生的将他们的B列信息复制粘贴到在D列中。拜托了。

Answer 2

不用vba编写程序，使用vba不一定成功，
1、通过自动筛选，查找出a列符合条件单元格；
2、再在D列输入=再用鼠标选择“a列对应单元格”；
3、敲击enter
4、D列已写入的单元格牵引复制，即能成功。