求助：同品种数据并成一行

cztanghao

用python代码实现的，效果如图：
要结果的话，回复我：
import pandas as pd


df=pd.read_excel('./exam.xlsx')
print(df.columns)
df['combined']=df['获奖时间'].str.cat([df['奖励内容'] ,df['奖励名词'] ],sep='*')
df.drop(columns=['获奖时间', '奖励内容', '奖励名词'],inplace=True)

print(df)
#下面的agg生成的是dataframe
# print(
#     df.groupby(['班级名','学生名'])
#     .agg(
#         combined=('combined','&'.join)
#     )
#     .ndim
# )

print(
    df.groupby(['班级名','学生名'])['combined']
    .apply('&'.join)
    # .ndim
    .str
    .split('&',expand=True)
)
(    df.groupby(['班级名','学生名'])['combined']
    .apply('&'.join)
    # .ndim
    .str
    .split('&',expand=True)
    .to_excel('result1.xlsx')
     )

ykcbf1100

参与一下。。。

1. Sub ykcbf()   '//2024.1.17
   
2.     Dim arr, d
   
3.     Application.ScreenUpdating = False
   
4.     Application.DisplayAlerts = False
   
5.     Set d = CreateObject("Scripting.Dictionary")
   
6.     With Sheets("模板")
   
7.         r = .Cells(.Rows.Count, "a").End(xlUp).Row
   
8.         Set Rng = .Range("a2:e" & r)
   
9.         With Rng
   
10.             .Parent.Sort.SortFields.Clear
    
11.             .Sort Key1:=.Item(1), Order1:=1, Key2:=.Item(2), Order2:=1, Header:=2
    
12.         End With
    
13.         arr = .[a1].Resize(r, 5)
    
14.         For i = 2 To UBound(arr)
    
15.             s = arr(i, 1) & "|" & arr(i, 2)
    
16.             If Not d.exists(s) Then Set d(s) = CreateObject("Scripting.Dictionary")
    
17.             d(s)(i) = i
    
18.         Next
    
19.         ReDim brr(1 To d.Count, 1 To 100)
    
20.         For Each k In d.keys
    
21.             m = m + 1
    
22.             brr(m, 1) = Split(k, "|")(0)
    
23.             brr(m, 2) = Split(k, "|")(1)
    
24.             c = 2
    
25.             For Each kk In d(k).keys
    
26.                 For x = 1 To 3
    
27.                     c = c + 1
    
28.                     brr(m, c) = arr(kk, x + 2)
    
29.                 Next
    
30.             Next
    
31.             Max = IIf(Max < c, c, Max)
    
32.         Next
    
33.         .[i3:az1000].Clear
    
34.         .[k1:az1000].UnMerge
    
35.         .[i3].Resize(m, Max) = brr
    
36.         .[i1].Resize(m + 2, Max).HorizontalAlignment = xlCenter
    
37.         .[i1].Resize(m + 2, Max).VerticalAlignment = xlCenter
    
38.         .[i1].Resize(m + 2, Max).Borders.LineStyle = 1
    
39.         .[i3].Resize(m, Max).ShrinkToFit = True
    
40.         col = 8
    
41.         For y = col + 3 To Max + col Step 3
    
42.             p = p + 1
    
43.             .Cells(1, y).Resize(1, 3) = "荣誉" & p
    
44.             .Cells(1, y).Resize(1, 3).Merge
    
45.             .Cells(2, y) = "获奖时间"
    
46.             .Cells(2, y + 1) = "奖励内容"
    
47.             .Cells(2, y + 2) = "奖励名词"
    
48.         Next
    
49.         .Range(.Cells(1, col + 3), .Cells(1, Max + col)).Cells.Interior.ColorIndex = 4
    
50.         .Range(.Cells(2, col + 3), .Cells(2, Max + col)).Cells.Interior.ColorIndex = 6
    
51.     End With
    
52.     Set d = Nothing
    
53.     Application.ScreenUpdating = True
    
54.     MsgBox "OK！"
    
55. End Sub
    

复制代码

ykcbf1100

附件供参考，标题自动写入，标题行自动标色。

fangfhf

cztanghao 发表于 2024-1-18 12:31
用python代码实现的，效果如图：
要结果的话，回复我：
import pandas as pd

谢谢！！！

fangfhf

ykcbf1100 发表于 2024-1-18 14:02
参与一下。。。

谢谢！！！

680926

Sub t()
Dim arr, i, x, y, m, n, k
arr = Range("a1").CurrentRegion
Dim d As Object
Set d = CreateObject("scripting.dictionary")
For i = 2 To UBound(arr)
    If Not d.exists(arr(i, 1) & "-" & arr(i, 2)) Then
        d(arr(i, 1) & "-" & arr(i, 2)) = arr(i, 3) & " " & arr(i, 4) & " " & arr(i, 5)
    Else
        d(arr(i, 1) & "-" & arr(i, 2)) = d(arr(i, 1) & "-" & arr(i, 2)) & " " & arr(i, 3) & " " & arr(i, 4) & " " & arr(i, 5)
    End If
Next
x = d.keys
y = d.items
For i = 1 To d.Count
    m = x(i - 1)
    n = y(i - 1)
    Cells(i + 2, 9) = Split(m, "-")(0)
    Cells(i + 2, 10) = Split(m, "-")(1)
    k = Split(n, " ")
    Cells(i + 2, 11).Resize(1, UBound(k) + 1) = k
Next
End Sub