实际工作遇到困难，跪求高手帮忙，详见附件

xiawangying · 发表于 2013-5-20 07:14

0518.rar (13.82 KB, 下载次数: 35)

该贴已经同步到 xiawangying的微博

另开个ID · 发表于 2013-5-20 07:46

Book1.zip (20.51 KB, 下载次数: 13)
这类问题用透视较方便，如果需要不断的添加数据，就定义个名称，把区域做成动态引用

江南民谣 · 发表于 2013-5-20 08:04

可能要用VBA就简单了。
否则，我只能想到自动筛选，做到类似的效果:

新灭绝师太 · 发表于 2013-5-20 08:42

没法做到自动合计行，，可以输一个后面跳一个是可以的，，想要你那种要不就VBA或数据透视表

清风幽闲 · 发表于 2013-5-20 08:43

Set d = CreateObject("scripting.dictionary")
Sheets("材料入库明细表").Select
For Each rng In Range(Cells(3, 2), Cells(Rows.Count, 2).End(3))
d(rng.Value) = ""
Next rng

For Each rngd In d.keys
rown = Sheets(rngd).Cells(Rows.Count, 1).End(3).Row
Sheets(rngd).Range("a4:h" & rown + 1).ClearContents
For Each rng In Range(Cells(3, 2), Cells(Rows.Count, 2).End(3))
      If rngd = rng.Value Then
         rown = Sheets(rngd).Cells(Rows.Count, 1).End(3).Row
         Sheets(rngd).Range("a" & rown + 1).EntireRow.Range("a1:h1") = rng.EntireRow.Range("a1:h1").Value
      End If
Next rng
rown = Sheets(rngd).Cells(Rows.Count, 1).End(3).Row
Sheets(rngd).Range("b" & rown + 1) = "合计"
Sheets(rngd).Range("h" & rown + 1).Value = Application.Sum(Sheets(rngd).Range("h4:h" & rown))
Next rngd
End Sub
已验证，完全满足要求

清风幽闲 · 发表于 2013-5-20 08:44

本帖最后由清风幽闲于 2013-5-20 08:46 编辑

单位.rar (16.1 KB, 下载次数: 22)
请看附件，可随意增加数据

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

[求助] 实际工作遇到困难，跪求高手帮忙，详见附件

评分