我想根据相邻单元格的值对字符串列表进行排序 excel答案

【问题标题】：I want to sort a list of strings based on values of adjacent cells excel我想根据相邻单元格的值对字符串列表进行排序 excel
【发布时间】：2016-06-24 14:27:54
【问题描述】：

我在一列中有一个歌曲标题列表，它旁边的一列包含该歌曲的播放次数。我想在单独的列中订购播放计数，并在旁边显示歌曲的标题。这是我的 excel 表的样子：

Title        | Play Count
------------ | -------------
title 1      |  2
title 2      |  1
title 3      |  
title 4      |  3

请注意，尚未播放的标题在播放计数列中为空白。这就是我想要的样子。

Title        | Play Count
------------ | -------------
title 4      |  3
title 1      |  2
title 2      |  1
title 3      |

我希望此信息显示在新列中，以便原始列表和播放计数列保持不变。所以我不希望在数据透视表中完成此操作。最好它只返回前 20 首左右的歌曲名称，但这不是必需的。该列表大约有 250 首歌曲。

【问题讨论】：

复制/粘贴到新工作表并排序？？
如果这是您要找的，或者我可能缺少什么，请告诉我们：stackoverflow.com/questions/37239107/…

标签： vba excel

【解决方案1】：

你可以试试这个：

Option Explicit

Sub main()
    Dim dataCols As Range
    Dim columnsStrng As String

    columnsStrng = "C:D" '<--| change "C:D" with your actual "Title" and  "Play Count" columns indexes (they must be contiguous columns)
    With Worksheets("MySongs") '<--| change "MySongs" with your actual sheet name
        Set dataCols = .Range(columnsStrng).Resize(.Cells(.Rows.Count, .Range(columnsStrng).columns(1).Column).End(xlUp).row)
        With dataCols.Offset(, .UsedRange.columns.Count)
            .Value = dataCols.Value
            .Sort key1:=.columns(2), Header:=xlYes
        End With
    End With
End Sub

【讨论】：