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

Question

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

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我的百度帐号