[已解决]求帮忙写一段程序

lyf7276

那是你的数据源错了。代码反正是根据那一列的数字一个个加起来的。没法改呀。你少用几个数据先试下

yucheng21

lyf7276 发表于 2013-6-2 14:48
那是你的数据源错了。代码反正是根据那一列的数字一个个加起来的。没法改呀。你少用几个数据先试下

Sub 求和()
For i = 2 To Sheets.Count
Sheets(i).Select
mm = Cells(Rows.Count, 1).End(xlUp).Row
Range("e" & mm + 1) = Application.Sum(Range("e3:e" & mm))
Range("f" & mm + 1) = Range("e" & mm + 1)
Range("a" & mm + 1) = "合计"
Range("a" & mm + 1 & ":f" & mm + 1).Interior.Color = 5800
nam = nam & " " & Sheets(i).Name
hj = hj & " " & Range("e" & mm + 1)
Next

Dim wk As Worksheet
arr = Split(nam, " ")
att = Split(hj, " ")
Set wk = Worksheets.Add
wk.Name = "总和"
wk.Move after:=Sheets(Sheets.Count)
wk.Range("a1:c1").Merge
wk.Range("a1") = "汽车销售"
wk.Range("a1").Interior.Color = Sheets(1).Range("a1").Interior.Color
wk.Range("a2") = Sheets(1).Range("b2")
wk.Range("a2").Interior.Color = Sheets(1).Range("b2").Interior.Color
wk.Range("b2") = Sheets(1).Range("e2")
wk.Range("b2").Interior.Color = Sheets(1).Range("e2").Interior.Color
wk.Range("c2") = Sheets(1).Range("f2")
wk.Range("c2").Interior.Color = Sheets(1).Range("f2").Interior.Color
For i = 1 To UBound(arr)
wk.Range("a" & i + 2) = arr(i)
wk.Range("b" & i + 2) = att(i)
wk.Range("c" & i + 2) = att(i)
Next
End Sub

试过了，试了好几次，我只能猜是不是因为那个黄色部分，所以导致F列统计的数据和E列一样

lyf7276

你本来F列和E列不一样吗？那你就把Range("f" & mm + 1) = Range("e" & mm + 1)这句照着上面的那句改下吧

yucheng21

lyf7276 发表于 2013-6-2 15:13
你本来F列和E列不一样吗？那你就把Range("f" & mm + 1) = Range("e" & mm + 1)这句照着上面的那句改下吧

Range("f" & mm + 1) = Application.Sum(Range("f3:f" & mm))
是这样改吧，分表倒是都变了，总和那个表还是两列相等