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

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

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

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

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息