ExCEl vBA中如何把满足条件的A列,B列,相对应的D列的数值相加,用代码怎么编写?

用下面的代码具体自己调整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

数据区域以:A2:F10区域为例 C列作为辅助列: C2单元格输入公式: =B2&"," 格式柄下拉复制公式至C10单元格,然后选取C2:C10单元格区域,鼠标右键-复制-选C2单元格-右键-选择性粘贴-数值-确定 D2单元格公式: =INDEX(A:A,SMALL

把A列用分列的方式先日期和时间分开,分列方式为空格,然后再进行筛选即可.

不一定费用VBA,可以用条件格式的,选中该列,格式=>条件格式 把条件输入 然后选择一种格式(比如显示红色或者背景色为绿色等等格式,自己选择吧)以下VBA程序快速选定:Sub 选A列等于1()Dim rag As Range, rags As RangeFor Each rag In Range("A:A") If rag.Value = 1 Then If rags Is Nothing Then Set rags = rag Else Set rags = Union(rags, rag) End If End IfNextrags.SelectEnd Sub

1234567 SubA列等于B列() for i = 1 to 10 if i=1 or i=3 or i=5 then Range("A"&i) = Range("B"&i) end if next i EndSub 把前十行中第一行,第二行及第三行B列的数据等于A列

【图1】:合并用的公式:=A2&"#"&B2【图2】:第二步是把D2至D19复制、右键---选择性粘贴---粘贴为值,粘贴为值的目的是把D列中的公式去除,保留结果.然后选中D2至D19,点击顶部的 数据---删除重复值.【图3】:E2公式:=IF(IFNA(MATCH(LEFT(D2,FIND("#",D2)-1),E$1:E1,),)>1,"",LEFT(D2,FIND("#",D2)-1))F2公式:=RIGHT(D2,LEN(D2)-FIND("#",D2))

B6输入=VLOOKUP($A6,$A$1:$C$5,COLUMN(B$1),0)公式右拉到C6即可

=sumproduct(A1:A10=X)*B1:B10)=sumproduct(B:B=“张三”)*A:A)

Sumif函数,以你图中的格式为例,相应的公式如下=SUMIF(A:A,"A",B:B)如果你实际表格中的格式与图中格式不符,需要对公式中的引用范围进行修改

可用PHONETIC函数实现.示例如下:假定合并如图所示的“一班”的同学名字到D列,名字之间以逗号分隔.D2的公式:=SUBSTITUTE(SUBSTITUTE(PHONETIC(OFFSET(A$1,MATCH(C2,A:A,)-1,,COUNTIF(A:A,C2),2)),C2,","),",",,1)其中:OFFSET(A$1,MATCH(C2,A:A,)-1,,COUNTIF(A:A,C2),2) 得到所有一班的班级与姓名区域,然后用PHONETIC函数合并,得到依次由“一班”和姓名组成的字符串,最后用SUBSTITUTE函数将“一班”替换为逗号,并将第一个逗号去掉,得到如图中D2单元格的结果.

相关文档

jingxinwu.net
4585.net
so1008.com
mydy.net
rjps.net
电脑版