合并单元格降序排序 求助

duquancai

呵呵                  

976190982

duquancai 发表于 2020-6-20 18:20
呵呵

噢哟    有故事？

乐乐2006201505

值得学习，果断收藏。

duquancai

1. # -*- coding: utf-8 -*-
   
2. # version: Python 3.7.0
   
3. import pandas as pd
   
4. 
   
5. df = pd.read_excel('./求助.xlsx',sheet_name='代发',usecols=["货品编号","规格名称","库存","数量","图片链接"])
   
6. df['数量2']=df['数量'].fillna(method='ffill')
   
7. df.sort_values('数量2',ascending=False,kind='mergesort',inplace=True)
   
8. df.loc[:,'货品编号':'图片链接'].to_excel('./排序后.xlsx',index=False)

复制代码

duquancai

976190982 发表于 2020-6-20 18:36
噢哟    有故事？

我的意思，没啥难度！呵呵

976190982

duquancai 发表于 2020-6-20 19:05

谢谢   非常感谢    居然是 Python    这个论坛都是高手啊     谢谢

larer

原始数据不要这样设计,这是报表形式,在报表中进行排序,无疑是自讨苦吃,给自己找麻烦.

chxw68

1. Sub test()
   
2.   Dim r%, i%, m5
   
3.   Dim arr(), brr
   
4.   Application.ScreenUpdating = False
   
5.   Application.DisplayAlerts = False
   
6.   With Worksheets("代发")
   
7.     r = .Cells(.Rows.Count, 2).End(xlUp).Row
   
8.     m = 0
   
9.     For i = 2 To r
   
10.       If .Cells(i, 1).MergeArea.Cells(1, 1).Address = .Cells(i, 1).Address Then
    
11.         m = m + 1
    
12.         ReDim Preserve arr(1 To 3, 1 To m)
    
13.         arr(1, m) = i
    
14.         arr(2, m) = .Cells(i, 1).MergeArea.Rows.Count
    
15.         arr(3, m) = .Cells(i, 4).Value
    
16.       End If
    
17.     Next
    
18.     For i = 1 To UBound(arr, 2) - 1
    
19.       p = i
    
20.       For j = i + 1 To UBound(arr, 2)
    
21.         If arr(3, p) < arr(3, j) Then
    
22.           p = j
    
23.         End If
    
24.       Next
    
25.       If p <> i Then
    
26.         For k = 1 To UBound(arr)
    
27.           temp = arr(k, i)
    
28.           arr(k, i) = arr(k, p)
    
29.           arr(k, p) = temp
    
30.         Next
    
31.       End If
    
32.     Next
    
33.     i1 = r + 1
    
34.     For k = 1 To UBound(arr, 2)
    
35.       .Cells(arr(1, k), 1).Resize(arr(2, k), 5).Copy .Cells(i1, 1)
    
36.       i1 = i1 + arr(2, k)
    
37.     Next
    
38.     .Range("a2:e" & r).Delete shift:=xlUp
    
39.   End With
    
40.   Application.ScreenUpdating = True
    
41.   MsgBox "排序完毕！"
    
42. End Sub
    

复制代码

chxw68

详见附件。

sheffield

用了ExcelSpice，只需3行代码：
Sub Sort1()
    Dim sp As New ExcelSpice
    sp.Link "求助", FillEm:="ffill >> : "
    sp.Sort("数量").FetchAll ThisWorkbook.Sheets("Sheet1").Cells(1, 1)
End Sub

'如果原始数据<求助.xlsx>不打开，要求和<Analyse.xlsm>放在同一文件夹；
'结果输出在Analyse.xlsm的Sheet1。