求：总表中的数据根据条件自动填写进分表的方法【多谢大师们的指点】

蓝叮叮 · 发表于 2015-5-13 13:52

本帖最后由蓝叮叮于 2015-5-15 09:52 编辑

截图1.png

如图所示，我想达到如下的目的:
1.数据更新在总表进行，对应的数据根据“业务范围”分别对应到3个分表里面；
2.总表和分表的数据会实时更新。
不知道该如何实现
附件如下：

求解总分表的关系.rar (10.25 KB, 下载次数: 187)

烦请各位大师帮忙指点迷津，万分感谢~

蓝叮叮 · 发表于 2015-5-13 15:58

木有大师帮忙么？拜托拜托了。。帖子表沉了呀，之前我在论坛里面也搜索过相关的，但是都不能解决我的问题

cpq4404 · 发表于 2015-5-13 16:50

1、在三个分表K1，分别输入该表标签名称。
2、在本表，按住SHIFT键点《业务3》标签，即同时选中三表。
3、复制A2数组公式“{=INDEX(总表!A:A,SMALL(IF(总表!$I$2:$I$30=$K$1,ROW($I$2:$I$30),2000),ROW(1:1)))}”到全区，各分表信息如黄色单元格所示。
4、《总表》在30行以内的内容增减变化，各分表会同步更新。

蓝叮叮 · 发表于 2015-5-13 17:22

cpq4404 发表于 2015-5-13 16:50
1、在三个分表K1，分别输入该表标签名称。
2、在本表，按住SHIFT键点《业务3》标签，即同时选中三表。
3、 ...

首先，谢谢老师这么快又是第一个回复我，好激动。有几个问题，我还不是太明白：

1、在三个分表K1，分别输入该表标签名称。（这个标签我点了一下，不是按钮，也没发现有vb代码，不太明白这个标签的含义）
2、在本表，按住SHIFT键点《业务3》标签，即同时选中三表。（原来还可以这样用啊。。我一直以为不能同时选中几个表呢）
3、复制A2数组公式“{=INDEX(总表!A:A,SMALL(IF(总表!$I$2:$I$30=$K$1,ROW($I$2:$I$30),2000),ROW(1:1)))}”到全区，各分表信息如黄色单元格所示。
4、《总表》在30行以内的内容增减变化，各分表会同步更新。（如果总表信息有130行，我就只需要把↑公式改成“{=INDEX(总表!A:A,SMALL(IF(总表!$I$2:$I$130=$K$1,ROW($I$2:$I$130),2000),ROW(1:1)))}”是么？对于数组的运用，我一直还比较迷糊。）

cpq4404 · 发表于 2015-5-13 18:16

K1，不是按钮。只是用这个地址标示“业务范围”，以便批量操作是引用。
公式中引用《总表》地址，可根需要扩展，就是你说的意思。

蓝叮叮 · 发表于 2015-5-14 09:10

cpq4404 发表于 2015-5-13 18:16
K1，不是按钮。只是用这个地址标示“业务范围”，以便批量操作是引用。
公式中引用《总表》地址，可根需要 ...

高手就是高手~~~膜拜。。万分感谢。。

蓝叮叮 · 发表于 2015-5-14 10:18

cpq4404 发表于 2015-5-13 18:16
K1，不是按钮。只是用这个地址标示“业务范围”，以便批量操作是引用。
公式中引用《总表》地址，可根需要 ...

老师，我在实际运用当中，分表中第一行是正常的，但从第二行开始就出现了#NUM!的报错，这是什么原因呢？我看了一下单元格的性质，无论我是否调整单元格属性，都没有变化

sbww8800 · 发表于 2015-5-14 10:24

Sub Macro1()
Dim arr, brr, sh As Worksheet, d As Object, k, t, a, i&, j&, m&, l&
Application.ScreenUpdating = False
Set d = CreateObject("scripting.dictionary")
arr = [a1].CurrentRegion
For i = 2 To UBound(arr)
d(arr(i, 9)) = d(arr(i, 9)) & "," & i
Next
k = d.Keys
t = d.Items
brr = arr
d.RemoveAll
For Each sh In Sheets
d(sh.Name) = ""
Next
With Sheets
For i = 0 To UBound(k)
m = 1
a = Split(t(i), ",")
For j = 1 To UBound(a)
m = m + 1
For l = 1 To UBound(arr, 2)
brr(m, l) = arr(a(j), l)
Next
Next
If Not d.Exists("" & k(i)) Then
.Add After:=.Item(.Count)
ActiveSheet.Name = k(i)
Else
Sheets("" & k(i)).Cells.Clear
End If
Sheets("" & k(i)).[a1].Resize(m, UBound(brr, 2)) = brr
Next
End With
Application.ScreenUpdating = True
Sheets("总表").Select
End Sub

复制代码

我淘来的，一直捂在箱底没舍得扔

蓝叮叮 · 发表于 2015-5-14 10:35

sbww8800 发表于 2015-5-14 10:24
我淘来的，一直捂在箱底没舍得扔

哇塞，这一段VB直接把我看晕了。。压箱底的一般都是好东西。。我来试一下

cpq4404 · 发表于 2015-5-14 10:57

蓝叮叮发表于 2015-5-14 10:18
老师，我在实际运用当中，分表中第一行是正常的，但从第二行开始就出现了#NUM!的报错，这是什么原因呢？我 ...

可将公式IF函数第三参数，输入一个足够大的数值，即可消除"#NUM!"符号。

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

[已解决] 求：总表中的数据根据条件自动填写进分表的方法【多谢大师们的指点】