数据处理

taneli

请教各位前辈，如果我有Sheet1格式的数据，如何能处理成Sheet2格式的数据。
也就是如果Sheet1中FYD列和Brand列中的文本分别相同，则在Sheet2的Type列中的单元格合并数据并用分号隔开。
多谢多谢！！

taneli

   

刚才忘记上传图片了，就是从上边的数据，处理成下边的数据。

taneli

mikezhan 发表于 2018-3-6 15:12
建议少用 函数。用了烧脑。多学点 VBA，锻炼自己　的逻辑思维能力。

还在小白阶段，能给个VBA代码吗？多谢多谢！

hcm19522

E2:F16=IF($B2=$B1,"",A2)

G2:M16{=IFERROR(IF(COLUMN(A1)=1,"",";")&INDEX($C:$C,SMALL(IF($B$2:$B$16=$F2,ROW(C$2:C$16)),COLUMN(A1)))&H2,"")

wangg913

taneli 发表于 2018-3-6 15:15
还在小白阶段，能给个VBA代码吗？多谢多谢！

1. Sub CFormat()
   
2. Dim objD As Object
   
3. Dim C As Long, I As Long
   
4. Dim vntData, vntT, T
   
5. Dim vntFBT()
   
6. Set objD = CreateObject("Scripting.Dictionary")
   
7. vntData = Range("A1").CurrentRegion
   
8. C = UBound(vntData)
   
9. For I = 2 To C
   
10.     T = vntData(I, 1) & "|" & vntData(I, 2)
    
11.     objD(T) = objD(T) & ";" & vntData(I, 3)
    
12. Next
    
13. vntData = objD.keys
    
14. vntT = objD.items
    
15. C = UBound(vntT)
    
16. ReDim vntFBT(C, 2)
    
17. For I = 0 To C
    
18.     T = Split(vntData(I), "|")
    
19.     vntFBT(I, 0) = T(0)
    
20.     vntFBT(I, 1) = T(1)
    
21.     vntFBT(I, 2) = Mid(vntT(I), 2, Len(vntT(I)))
    
22. Next
    
23. Range("D2").Resize(C + 1, 3) = vntFBT
    
24. End Sub

复制代码

sdc3211772

Sub dddd()
Dim d As Object, arr, brr(), i, n, m, c, r
Set d = CreateObject("scripting.dictionary")
arr = Sheets("sheet1").Range("a1:c" & Sheets("sheet1").Cells(Rows.Count, 1).End(xlUp).Row)
    For i = 1 To UBound(arr)
        If Not d.exists(arr(i, 1) & arr(i, 2)) Then
            n = n + 1
            d(arr(i, 1) & arr(i, 2)) = n
            ReDim Preserve brr(1 To 3, 1 To n)
            brr(1, n) = arr(i, 1)
            brr(2, n) = arr(i, 2)
            brr(3, n) = arr(i, 3)
        Else
            m = d(arr(i, 1) & arr(i, 2))
            brr(3, m) = CStr(brr(3, m) & ";" & arr(i, 3))
        End If
    Next
With Sheets("sheet2")
    .Range("a:c").ClearContents
    For c = 1 To UBound(brr, 2)
        For r = 1 To 3
            .Cells(c, r) = brr(r, c)
        Next
    Next
End With
End Sub
(不知什么原因不能对数组进行转置，只能采取对brr数组进行循环的方式）

taneli

多谢几位热心帮忙

taneli

wangg913 发表于 2018-3-6 19:43

请问如果我最终的结果想要这个图片中D2:E2中显示的格式，应该怎么修改代码呢？
多谢！