[已解决]查找并动态增减行及汇总

lidayu · 发表于 2017-7-11 11:11

大灰狼1976 发表于 2017-7-11 10:40
简化版请测试。
说明：由于我操作系统版本关系，代码内不能出现汉字，所以用了辅助单元格区域，
你可以在 ...

大灰狼1976您好，最好不要用辅列，实现不行就写在代码中，型号：一、二、三...及品种名称，软肩章、硬肩章、套式肩章要怎么写，请您指点。

大灰狼1976 · 发表于 2017-7-11 11:22

估计你没有明白我的意思，这样吧，我在记事本里面编辑了一下发给你，现在可以把辅助列清空了。

Sub aaa()
Dim arr, brr(1 To 1000, 1 To 12), i&, d As Object, d1 As Object, s$, s1$, r&
Set d = CreateObject("scripting.dictionary")
Set d1 = CreateObject("scripting.dictionary")
d("软肩章") = 2
d("硬肩章") = 7
d("套式肩章") = 12
d("一") = 0
d("二") = 1
d("三") = 2
d("四") = 3
d("五") = 4
d("") = 0
s = Sheets(2).[a2]: s1 = Sheets(2).[a3]
arr = Sheets(1).[a1].CurrentRegion
For i = 2 To UBound(arr)
If arr(i, 2) = s And arr(i, 3) = s1 Then
If Not d1.exists(arr(i, 6)) Then
r = r + 1
d1(arr(i, 6)) = r
brr(r, 1) = arr(i, 6)
End If
brr(d1(arr(i, 6)), d(arr(i, 10)) + d(arr(i, 8))) = brr(d1(arr(i, 6)), d(arr(i, 10)) + d(arr(i, 8))) + arr(i, 9)
End If
Next i
Sheets(2).[a4:l1000].ClearContents
Sheets(2).[a4].Resize(r, 12) = brr
End Sub

复制代码

lidayu · 发表于 2017-7-11 11:22

大灰狼1976 发表于 2017-7-11 10:50
我现在是直接使用了中文数字一二三...，如果有其他规则，你可以自己在d()里面添加就行了，只要确保一=0， ...

大灰狼1976您好，我刚刚接触VBA，打开工作簿看到你写的代码还是不知该从何着手，要是可能的话希望您能一手帮我把完整的写好，时间没关系等空闲心情好时再整好吗？先谢谢！

grf1973 · 发表于 2017-7-11 11:30

我的做法是，先把全部的警衔全部写上，然后再删除合计为0的行，然后再调一下格式。
这样对原代码改动最小。

大灰狼1976 · 发表于 2017-7-11 11:31

由于版本关系，VBA代码内不能出现汉字，所以我也不能做完整的附件给你，你可以将前面我发的附件里面的sub aaa()内容换成我最后发给你的代码就可以用了。
至于分类汇总求和等，你最好还是用公式吧，VBA虽然也可以实现，但是太繁琐了。

lidayu · 发表于 2017-7-11 11:58

本帖最后由 lidayu 于 2017-7-11 14:26 编辑

grf1973 发表于 2017-7-11 11:30
我的做法是，先把全部的警衔全部写上，然后再删除合计为0的行，然后再调一下格式。
这样对原代码改动最小 ...

grf1973老师您好，这样可以是可以，有两个小小要求不知能否改动，1、希望点A3运行时A:P下面数据不要出现闪烁（看到没用的数据），2、警衔级不要写在代码中，是直接从“数据源F2：F提取过来，谢谢您帮助。

lidayu · 发表于 2017-7-11 12:02

大灰狼1976 发表于 2017-7-11 11:31
由于版本关系，VBA代码内不能出现汉字，所以我也不能做完整的附件给你，你可以将前面我发的附件里面的sub a ...

大灰狼1976老师您好，我复制了可以实现不用辅列，VBA实现太深奥了加上您的水平写出对我这种菜鸟更难理解，还是那个要求希望能得到您的帮助，菜鸟感激涕零，谢谢..........

大灰狼1976 · 发表于 2017-7-11 13:03

lidayu 发表于 2017-7-11 12:02
大灰狼1976老师您好，我复制了可以实现不用辅列，VBA实现太深奥了加上您的水平写出对我这种菜鸟更难理解 ...

你的意思还是需要做一个完整的附件吗？
那么只能在家里做了，我抽空可以做一下。

chart888 · 发表于 2017-7-11 13:30

大灰狼1976 发表于 2017-7-11 13:03
你的意思还是需要做一个完整的附件吗？
那么只能在家里做了，我抽空可以做一下。

呵呵，公司里面是日文系统是吧
一看就是上班偷偷逛论坛的

大灰狼1976 · 发表于 2017-7-11 13:36

被看穿了

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