搜索其他工作表数据后，返回符合条件的合计

fishingnet1982 · 发表于 2010-11-3 15:56

在“合并资产负债表”工作表中黄色部分需要得到：
在合并调整分录工作表C列中，查找B列的代码，如果代码相同，就返回F列（资产方）或G列（负债及所有者权益方）得到的结果应与后面一列的sumif函数得到的结果一致。
我写的vba代码是：
Sub t2()
Dim Nextcol

Dim arr

Nextcol = Cells(5, 255).End(xlToLeft).Column

Cells(5, Nextcol + 1).Select

ActiveCell.FormulaR1C1 = "合并调整"

arr = Sheets(1).Range("a8:h" & Sheets(1).Range("a65536").End(xlUp).Row)

For d = 6 To 91

s = 0

If Cells(d, 2) <> "" Then

For c = 1 To UBound(arr)

If arr(c, 3) = Cells(d, 2) Then

If d < 56 Then

s = s + arr(c, 7)

Else

s = s + arr(c, 6)

End If
End If

Next

End If
Cells(d, Nextcol + 1) = s
Next

End Sub

[ 本帖最后由 fishingnet1982 于 2010-11-3 17:13 编辑 ]

liuguansky · 发表于 2010-11-3 16:03

请上传相关附件。

fishingnet1982 · 发表于 2010-11-3 16:04

sorry，没有编辑好就点击了发帖，
现已更新了文件及写清了内容

dsmch · 发表于 2010-11-3 16:22

两表的代码格式不同，改为一致就行了
Dim arr, brr, crr()
arr = Sheets(1).Range("a8:h" & Sheets(1).Range("c65536").End(xlUp).Row)
brr = Range("b8:b" & Range("b65536").End(xlUp).Row)
ReDim crr(1 To UBound(brr), 1 To 1)
For i = 1 To UBound(brr)
s = 0
For j = 1 To UBound(arr)
If arr(j, 3) = brr(i, 1) Then s = s + arr(j, 7)
Next j
crr(i, 1) = s
Next i
Range("j8").Resize(UBound(crr), 1) = crr

fishingnet1982 · 发表于 2010-11-3 16:38

原帖由 dsmch 于 2010-11-3 16:22 发表
两表的代码格式不同，改为一致就行了
Dim arr, brr, crr()
arr = Sheets(1).Range("a8:h" & Sheets(1).Range("c65536").End(xlUp).Row)
brr = Range("b8:b" & Range("b65536").End(xlUp).Row)
ReDim crr(1 To UB ...

我按照你的代码写上去之后，与sumif的结果不一致，而且全部是0，请解答。
谢谢

dsmch · 发表于 2010-11-3 17:03

格式问题

问题.rar (18.85 KB, 下载次数: 16)

fishingnet1982 · 发表于 2010-11-3 17:13

高手，

多谢

		自动登录	找回密码
密码			免费注册

[转帖] 搜索其他工作表数据后，返回符合条件的合计