Question

excel vba中如何把满足条件的a列，b列，相对应的d列的数值相加，用代码怎么编写？

Answer 1

用下面的代码
具体自己调整

sub abc()
dim xx, x1, x2
xx=0
for n=5 to 500
if range("A" & n).value=x1 and range("B" & n).value=x2 then

xx=xx+range("D" & n).value

end if
end sub

追问

相加的数据我放在另外一个表格中，我想循环下去每个单元格都执行这条运算，该怎么设置这条循环

大哥求帮忙啊

追答

另外文件的表的话
比如数据是在"Book2.xls"的"Sheet1"
中间就改成

for n=5 to 500
With Windows("Book2").Sheets("Sheet1")
if .range("A" & n).value=x1 and .range("B" & n).value=x2 then
xx=xx+.range("D" & n).value
end if
end With
Range("A1").value=xx
next n

追问

感谢你，我去试试看

然后我想要A列的单元格都执行这个运算怎么办？

求指导

追答

如果一个文件有很多sheet表
那么第一张表记录后面全部表的数据
这样写

sub abc()
dim xx, x1, x2
for m=2 to sheets.count

xx=0
With Sheets(m)
for n=2 to .usedrange.rows.count
if .range("A" & n).value=x1 and .range("B" & n).value=x2 then
xx=xx+.range("D" & n).value
end if
next n
end With
Range("A" & m).value=xx

next m
end sub

具体你说的不明确
肯定要在这个基础上作些修改
如果搞不定
把文件发过来

追问

表模是这样的

同一个工作表，不同的工作簿

常量记录是登记的表格，日汇总是要生成的表格，日期和班次都是可以固定的，就是要记录每日的总产量是多少，能设置到不卡是最好的，

谢谢了，帮帮忙