如何用VBA编程实现将满足条件的数据填充到另一个指定的表格中?答:arr1=sheets("表1").range("a1:f10")arr2=sheets("表2").range("c5:g14") '需要填写数据的区域 t=Array(0,3,4,0,5,6,0,7,8,9,10) '行对应关系,t(x)值表示arr2的x行数据在arr1中的行号 for i=lbound(arr2) to ubound(arr2)if t(i)<>0 then for j=lbound(arr2,2...
Excel VBA 怎么将满足条件的非连续单元格写入另一个sheet中?在线等_百...答:For i = 8 To 16If Cells(i, 20) = "留存在加工厂" ThenSet ws = Sheets("废料入库数据").Cells(Rows.Count, 1).End(xlUp).Offset(1, 0)ws.Resize(1, 7) = Array([y2], [y4], [f2], Cells(i, 17), Cells(i, 18), Cells(i, 19), [z4])End IfNext i ...