vba符合条件想加 vba提取条件数据到新表

with sheets(＂sheet1＂) 'sheet1为工作表名for i=1 to 200 '200可修改成你需要的行数if .cells(i,1)=＂第一个词＂ or .cells(i,1)=＂第二个词＂ or .cells(i,1)=＂第三个词＂ then'将对应的B列相加(不是很明白你的b列相加是什么意思,只有这样写了)end ifend with如果还有问题可以百度HI我

用下面的代码具体自己调整sub abc()dim xx, x1, x2xx=0for n=5 to 500 if range(＂A＂ & n).value=x1 and range(＂B＂ & n).value=x2 then xx=xx+range(＂D＂ & n).value end ifend sub

Sub test() Dim i As Integer, myrange As Range '指定条件查找的区域,这里的a1:c12替换成你的表格所在的区域 For Each myrange In ActiveSheet.Range(＂a1:C12＂) i = .

选择C列 格式,条件格式 选择＂公式＂=and(c1>=25,c1选择＂格式＂,设置填充颜色为红色 确定 选择D列 格式,条件格式 选择＂公式＂=and(d1>=25,d1选择＂格式＂,设置填充颜色为绿色 确定

I2输入公式=SUMIF($A:$A,$H2&＂*＂,B:B) 下拉,右拉公式.如果非要使用VBA的话,可以将公式的写入过程录下来,后面加上值粘贴的过程即可.

公式就能搞定=IF(RIGHT(A2,3)=＂PDF＂,A2,A2&＂.PDF＂)

用sumifs就可以嘛

Sub VBA() On Error Resume Next '主要过滤掉值为0的情况 T = Sheets(1).UsedRange.Rows.Count arr1 = Sheets(1).Range(＂a1:m＂ & T) Dim arr2 ReDim arr2(1 To T - 1, 1 .

我的回答 被百度 坑了=countif(offset($a$1,match(＂座＂,a:a)-4,,),＂*提取*＂) *countif(offset($a$1,match(＂座＂,a:a)-3,,),＂*【*＂&b7&＂*】*＂)-countif(offset($a$1,match(＂座＂,a:a)-4,,),＂*提取*＂) *countif(offset($a$1,match(＂座＂,a:a)-3,,),＂*】*＂&b7&＂*【*＂)

假如数据没超过9999行,公式:=SUMPRODUCT((P1:P9999>=120)*(P1:P9999Q列刚好为120或140也计算在内.