用vba來實現加總，請各位大大幫忙一下！

fyo00241 · 发表于 2013-2-26 14:06

在sheet2,收回-發出+期初＝總數
因為 c 欄和 I 欄要比對M 欄相同才加總
但都無法加總，請幫忙一下！

liulang0808 · 发表于 2013-2-26 14:13

不是很明白楼主的意思，帮顶吧

fyo00241 · 发表于 2013-2-26 14:20

如果c欄跟m欄名稱相同，d欄的數值就放到n欄，因為n欄會有很多數值要如何加總？

liulang0808 · 发表于 2013-2-26 14:22

fyo00241 发表于 2013-2-26 14:20
如果c欄跟m欄名稱相同，d欄的數值就放到n欄，因為n欄會有很多數值要如何加總？

vba可以实现，
主要是因为C列里有很多重名的吧，所以导致n列的值要不断累加。
可以把c列数据都给拷贝出来，排序然后分类求和汇总

fyo00241 · 发表于 2013-2-26 14:28

liulang0808 发表于 2013-2-26 14:22
vba可以实现，
主要是因为C列里有很多重名的吧，所以导致n列的值要不断累加。
可以把c列数据都给拷贝出 ...

想用VBA完成！感謝大大回答！因為使用的人較不懂電腦

liulang0808 · 发表于 2013-2-26 14:33

fyo00241 发表于 2013-2-26 14:28
想用VBA完成！感謝大大回答！因為使用的人較不懂電腦

你的问题看的不是很明白，C，I,M三列什么关系，具体加总用那几列数据以及结果放在哪列？
最后单独做张表，并有实例说明，这样好处理

fyo00241 · 发表于 2013-2-26 14:43

例如：c1,c2,c3.......跟m2,m3,m4......欄比對如相符，要copy D1的數值加總後才放到N欄,i1,i2,i3.......跟m2,m3,m4.....欄比對如相符，要copy J1的數值加總後才放到O欄，這樣就可以了

liulang0808 · 发表于 2013-2-26 14:55

你看下是否是你需求的

mineshine · 发表于 2013-2-26 15:08

僅供參考

Sub test()
Dim p As Byte, n As Byte, i As Long, c As Object, fadd As String, s
Dim Sh As Worksheet
Set Sh = Sheets("Sheet2")
For p = 3 To 9 Step 6 'C、I欄
n = n + 1
For i = 2 To Sh.Cells(Sh.Rows.Count, 13).End(xlUp).Row 'M2~M最後非空行循環
s = 0
With Sh.Range(Sh.Cells(1, p), Sh.Cells(Sh.Cells(Sh.Rows.Count, p).End(xlUp).Row, p)) '查找C、I欄資料
Set c = .Find(Sh.Cells(i, 13), LookIn:=xlValues, lookat:=xlWhole) '查找符合M的品名
If Not c Is Nothing Then
fadd = c.Address
Do
s = s + c.Offset(, 1) '分別收回、發出累加
Set c = .FindNext(c) '查找下個符合相同的品名
Loop While Not c Is Nothing And c.Address <> fadd
End If
End With
If s = 0 Then
Sh.Cells(i, 13 + n) = ""
Else
Sh.Cells(i, 13 + n) = s '收回、發出累計
End If
If Sh.Cells(i, 14) - Sh.Cells(i, 15) + Sh.Cells(i, 16) = 0 Then
Sh.Cells(i, 17) = ""
Else
Sh.Cells(i, 17) = Sh.Cells(i, 14) - Sh.Cells(i, 15) + Sh.Cells(i, 16) '總數
End If
Next i
Next p
End Sub

复制代码

fyo00241 · 发表于 2013-2-26 15:18

liulang0808 发表于 2013-2-26 14:55
你看下是否是你需求的

感謝大大經過你的指導，可以用了我有修正一下！謝謝大大！

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

[求助] 用vba來實現加總，請各位大大幫忙一下！