[已解决]数据拆分，根据名称采用不同的标题栏

qianzhi

现在一个工作薄，需要按数据中的数据，依据包含某个字符后，引用表头的信息，并且在结果中显示。
1）数据中的数据进行整合，如数据中将波纹管排到一起。
2）如名称中包含信号器，则引用信号器的表头，如是轴承引用轴承的表头。 分类1.rar (8.26 KB, 下载次数: 3)

2015-8-6 09:59 上传

点击文件名下载附件

非常感谢

最佳答案

月排行榜 / 总排行榜

爱疯

2015-8-6 15:57

5.rar (26.56 KB, 下载次数: 13)

2015-8-6 15:56 上传

点击文件名下载附件


4的创建时忘记加表头了。
5已改好。

跳转到最佳答案楼层

爱疯

2.rar (20.18 KB, 下载次数: 8)

2015-8-6 10:31 上传

点击文件名下载附件



Sub test()
    Dim A, d, i%, k%, r%
    A = Sheets(1).Range("a1").CurrentRegion

    For i = 2 To UBound(A)
        For k = 2 To Sheets.Count

            '如果数据的名称含工作表名
            If InStr(A(i, 2), Sheets(k).Name) Then
                With Sheets(k)
                    '如果该表里找不到代号a(i,1)
                    If .Range("a:a").Find(A(i, 1)) Is Nothing Then
                        r = .Range("a65536").End(xlUp).Row + 1
                        .Cells(r, 1) = A(i, 1)
                        .Cells(r, 2) = A(i, 2)
                    End If
                End With
                Exit For
            End If

        Next k
    Next i
End Sub


有多少表头，就创建多少个分表。
这样可以吗？

爱疯

Sub test()
    Dim A, d, i%, j%, k, t, r&
    A = Sheets(1).Range("a1").CurrentRegion
    Set d = CreateObject("scripting.dictionary")
    For i = 2 To Sheets.Count
        d(Sheets(i).Name) = i
    Next i
    k = d.keys: t = d.items

    For i = 2 To UBound(A)
        For j = 0 To UBound(k)

            '如果数据的名称含工作表名
            If InStr(A(i, 2), k(j)) Then
                With Sheets(t(j))
                    '如果该表里找不到代号a(i,1)
                    If .Range("a:a").Find(A(i, 1)) Is Nothing Then
                        r = .Range("a65536").End(xlUp).Row + 1
                        .Cells(r, 1) = A(i, 1)
                        .Cells(r, 2) = A(i, 2)
                    End If
                End With
                Exit For
            End If

        Next j
    Next i
End Sub
3.rar (20.49 KB, 下载次数: 9)

2015-8-6 11:02 上传

点击文件名下载附件


如果数据和表头都很多，这样好1点。

qianzhi

这样也可以，但能否增加一个，如无数据，则删除相应的表格。如膜片的工作表就删除

爱疯

4.rar (21.77 KB, 下载次数: 6)

2015-8-6 11:25 上传

点击文件名下载附件

注：第1个表数据和第2个表表头，不要删也不改变位置。

爱疯

5.rar (26.56 KB, 下载次数: 13)

2015-8-6 15:56 上传

点击文件名下载附件


4的创建时忘记加表头了。
5已改好。

qianzhi

有两个问题再咨询一下
1）现在这个表有两列，如果是多列，如何将数据复制到相关表中，改哪个参数

2）如何将数据和表头固定到第一和第二的位置

爱疯

qianzhi 发表于 2015-8-6 16:08
有两个问题再咨询一下
1）现在这个表有两列，如果是多列，如何将数据复制到相关表中，改哪个参数

如果是7楼情况，那么"数据"表C列就不是确定字段了？可能是'使用高度'，也可能是别的字段。

"数据"表里的数据，是如何产生的？

qianzhi

对可能是使用高度，也可能是别的字段。数据表中的数据是从pdm系统中导出的。现在要求按照名称，将一行数据导出到相关工作表中

爱疯

你点我的回帖楼层（比如8#）里的“回帖”，这样的话，你的回帖后，我能看到短信提示，知道你回过帖。

如果不影响什么的话，能将你说这个由系统导出的源表，发一份上来吗？
不需太多行，20行到100行都可以。