数据统计

pyx5858

请求大侠帮忙，是否有公式可以将数据进行整合汇总。

组别	编号	客户	故障类型
A	100268	张三	死机
A	100268	张三	系统崩溃
A	100268	张三	电源烧坏
A	100286	李四	无法启动
B	100987	王五	USB无讯号
B	100892	贾六	接触不良
C	100859	张三	主板故障
C	100589	李四	CPU故障

把以上的数据汇总成下面的格式：

组别	故障类型
A	张三死机、张三系统崩溃、张三电源烧坏、李四无法启动
B	王五USB无讯号、贾六接触不良
C	张三主板故障、李四CPU故障

组别	客户	故障类型	客户	故障类型	客户	故障类型	客户	故障类型
A	张三	死机	张三	系统崩溃	张三	电源烧坏	李四	无法启动
B	王五	USB无讯号	贾六	接触不良
C	张三	主板故障	李四	CPU故障

hcm19522

G2:N4{=IFERROR(OFFSET($C$1,SMALL(IF($A$2:$A$9=$F2,ROW(A$2:A$9)),INT(COLUMN(B1)/2))-1,MOD(COLUMN(B1),2)),"")

F2:F4是A .B .C

jiaxinl

用VBA做了，见附件代码如下：
Sub 转换1()
    Dim d As Object, arr, i&, m&
    Set d = CreateObject("scripting.dictionary")
    With Sheet1
      arr = .Range("A2:D" & .Range("A" & Rows.Count).End(xlUp).Row)
      For i = 2 To UBound(arr)
          If Not d.exists(arr(i, 1)) Then
            m = m + 1
            d(arr(i, 1)) = m
            arr(m, 1) = arr(i, 1)
            arr(m, 2) = arr(i, 3) & arr(i, 4)
          Else
            If InStr(arr(d(arr(i, 1)), 4), arr(i, 4)) = 0 Then
            arr(d(arr(i, 1)), 2) = arr(d(arr(i, 1)), 2) & "、" & arr(i, 3) & arr(i, 4)
          End If
          End If
      Next
      .Range("F1").CurrentRegion.ClearContents
      .[F1] = .[A1]: .[G1] = .[D1]
      .Range("F2").Resize(m, 2) = arr
   End With
End Sub


Sub 转换2()
    Dim d As Object, arr, i&, m&, j&
    Set d = CreateObject("scripting.dictionary")
    Application.ScreenUpdating = False
    With Sheet1
      arr = .Range("A2:D" & .Range("A" & Rows.Count).End(xlUp).Row)
      For i = 1 To UBound(arr)
          If Not d.exists(arr(i, 1)) Then
            m = m + 1
            d(arr(i, 1)) = m
            arr(m, 1) = arr(i, 1)
            arr(m, 2) = arr(i, 3) & "," & arr(i, 4)
          Else
            If InStr(arr(d(arr(i, 1)), 4), arr(i, 4)) = 0 Then
            a = arr(d(arr(i, 1)), 2)
            arr(d(arr(i, 1)), 2) = arr(d(arr(i, 1)), 2) & "," & arr(i, 3) & "," & arr(i, 4)
          End If
          End If
      Next
      .Range("I1").CurrentRegion.ClearContents
      .Range("I2").Resize(m, 2) = Application.Rept(arr, 1)

      Application.DisplayAlerts = False  '禁止提示
      '以下是分列
      .Range("J2:J" & .Cells(Rows.Count, 10).End(3).Row).Select
        Selection.TextToColumns Destination:=Range("J2"), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
        Semicolon:=False, Comma:=True, Space:=False, Other:=False, FieldInfo _
        :=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1), _
        Array(7, 1), Array(8, 1)), TrailingMinusNumbers:=True
       Application.DisplayAlerts = True   '允许提示
        '填表头
        .[I1] = .[A1]
      For j = 1 To (.Range("I1").CurrentRegion.Column - 1) / 2
      .Cells(1, .Cells(1, Columns.Count).End(1).Column + 1) = .[C1]
      .Cells(1, .Cells(1, Columns.Count).End(1).Column + 1) = .[D1]
      Next j
       .[I1].Select
       Application.ScreenUpdating = True
   End With
End Sub

pyx5858

jiaxinl 发表于 2017-8-5 16:44
用VBA做了，见附件代码如下：
Sub 转换1()
    Dim d As Object, arr, i&, m&

非常好的VBA功能，非常感谢，您真的好厉害

misababyhh

可以试试看透视表