excel vba 从一张表里面筛选提取数据到另一张表中 _一张

excel vba 从一张表里面筛选提取数据到另一张表中问题补充说明：从第一张中筛选出所有的规格，且把每一种规格相对应的原料重量，合格品量（成品重量中A1,A2,A3,A4 下面对应的单元格背景色为无色的），不合格品量（成品重量中A1,A2,A3,A4 下面对应的单元格背景色为灰色的），进行累加。。然后填充到第二张表（按规格统计表）中。不明白加我qq聊505112905

文章插图
假设表1在所有工作表的最来自前面，表2是第2张表。
Subtest()
Dimi,j,x360问答Row,xRow1As简置里田宗括并振硫Integer
DimxRng1AsRange,xRng2AsRange,xRng3AsRange,xRng4AsRange
Sheets(1).Select
xRow=Range("C6").End(xlDown).Row
Range("C5:C"&xRow).Ad衡旧们小说棉vancedFilterAction:=xl问农怕更上施生FilterInPlace,Unique:=True
Range("C6:凯诗创异线帮文缺血C"&xRow).Copy型故拉距何Sheets(2).Range("A4")
ActiveSheet.ShowAllData
Fori=6ToxRow
Forj=5To8
IfCells(i,j).In所心强各terior.Color=vb伤什坏者办查田离达WhiteThen
Cells着结明声(i,10)=Cells(i,10)周良所听力蛋河们调场+Cells(i,j)
Else
【excel vba 从一张表里面筛选提取数据到另一张表中】Cells(i,9)=Cells(i,9)-Cells(i,j)
EndIf
Nextj
Nexti
品既提战要先鱼啊执SetxRng1=Range("C6:C"&xRow)
SetxRng2=Range("D增答包型吃块6:D"&xRow)
SetxRng3=Range("J6:J"&x洲控黄严料Row)
SetxRng4=Range("I6:I"&xRow始候)
Sheets(2).Select
xRow1=Range("A4").End(细英起序觉一犯既非xlDown).Row
Fori=4ToxRow1
Cells(i,2)=Wor空压袁最ksheetFunction.SumIf(xRng1,Cells(i,1),xRng2)
Cells(i,4)=-WorksheetFunction.SumI视划f(xRng1,C厂烟林技冲ells(i,1),xRng4)
Cells(i,3)=WorksheetFunction.SumIf(xRng1,Cells(i,1),xRng3)
Nexti
xRng3.ClearContents
xRng4.ClearContents
EndSub

excel vba 从一张表里面筛选提取数据到另一张表中

推荐阅读

广州荔湾好玩好吃的请介绍

简笔画学画大树小鸟

烤箱烤红薯多少度多长时间烤箱烤红薯多少度多长时间合适

法院拍卖房产的程序是怎样的

海带排骨汤对胃好吗海带排骨汤什么时候喝好

拿铁咖啡分几种哪种好喝

淘宝开家纺店好做吗？如何经营？

微信名可以改几次微信名的修改方法

西瓜视频怎么下载保存西瓜视频如何下载保存

qq怎么给陌生人发消息

艾叶泡脚方法艾叶泡脚的方法

小马宝莉第八季百度云资源

both的用法如何使用both

如何一个月备孕成功

南来自阳市公务员网络培训学院360问答学员客户端下载

怎样炒糖色糖色怎么炒

美味|孩子点名要吃这山药饼，不揉面不整形，外脆里软，营养又美味

金渐层和银渐层谁贵

电流磁效应原理电流磁效应的内容是什么

五十岁人穿衣搭配这样穿舒服又大气