求助：根据型号合并的问题

duquancai

1. # -*- coding: utf-8 -*-
   
2. # version: Python 3.7.0
   
3. import pandas as pd
   
4. 
   
5. df = pd.read_excel('./shili.xlsx',usecols='A:B')
   
6. df.groupby('型号').agg(
   
7.     类型=('类型',lambda x:','.join(x))).reset_index().to_excel('./分组集合.xlsx',index=False)

复制代码

duquancai

microyip 发表于 2020-5-31 11:21
程咬金再现？

这三板斧 足矣应对江湖众多高手啦！

xiaozhiyouxi

3190496160 发表于 2020-5-31 09:46
Sub test()
With Sheet1
    Set d = CreateObject("scripting.dictionary")

谢谢，这个就是我想要的。

xiaozhiyouxi

笨鸟飞不高 发表于 2020-5-31 09:52
Sub AwTest()
    Dim i%, arr, d As Object
    Set d = CreateObject("Scripting.Dictionary")

谢谢，看来大家的思路都是字典。。。我也学过字典，就是没想到这么应用。。。

一把小刀闯天下

'如果A列有序也可以不用字典，，，

Option Explicit

Sub test()
  Dim arr, i, m, t
  arr = [a1].CurrentRegion.Offset(1).Value
  ReDim brr(1 To UBound(arr, 1), 1 To 2)
  For i = 1 To UBound(arr, 1) - 1
    t = t & "," & arr(i, 2)
    If arr(i, 1) <> arr(i + 1, 1) Then
      m = m + 1: brr(m, 1) = arr(i, 1)
      brr(m, 2) = Mid(t, 2): t = vbNullString
    End If
  Next
  [e2].Resize(UBound(brr, 1), 2) = brr
End Sub