求你了版主,帮个忙吧!

luolzd · 发表于 2005-2-9 17:20

aVV7IixM.rar (3.6 KB, 下载次数: 21)

liyh67 · 发表于 2005-2-9 17:25

用分类汇总或数据透视表

luolzd · 发表于 2005-2-9 17:32

因为有特殊用处,不便使用分类汇总及透视表.不好意思,我的水平太菜了.

snood · 发表于 2005-2-9 20:14

HtYFO9ak.rar (13.68 KB, 下载次数: 36)

luolzd · 发表于 2005-2-10 01:50

谢谢四楼朋友提供的代码,可用到我的工作表中它就不执行了,麻烦你抽点时间看一下好吗?

lEG6MS7a.rar (16.9 KB, 下载次数: 19)

[此贴子已经被作者于2005-2-10 1:50:55编辑过]

snood · 发表于 2005-2-10 20:18

Sub Delsum()
Dim i
i = 11
Do Until Cells(i, 1) = ""
If Cells(i, 1) = "@" Then Rows(i).EntireRow.Delete
i = i + 1
LoopEnd SubSub CommandButton2_Click()
Application.ScreenUpdating = False
Delsum
Dim i, r1, r2
i = 11
r1 = 11
Do Until Cells(i, 1) = ""
a = Cells(i, 1)
If Cells(i + 1, 1) <> a Then
r2 = i
Rows(i + 1).Select
Selection.Insert Shift:=xlDown
Cells(i + 1, 1) = "@"
Cells(i + 1, 5) = "本月合计"
Cells(i + 1, 6).Formula = "=sum(f" & r1 & ":f" & r2 & ")"
Cells(i + 1, 7).Formula = "=sum(g" & r1 & ":g" & r2 & ")"

Range("A" & i + 1 & ":I" & i + 1).Select
With Selection.Interior
.ColorIndex = 15
.Pattern = xlSolid
End With
i = i + 1
r1 = i + 1
End Ifi = i + 1
Loop
Application.ScreenUpdating = True
Cells(11, 1).Select
End Sub

luolzd · 发表于 2005-2-13 19:36

非常感谢SNOOD!

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

[求助] 求你了版主,帮个忙吧!