无法过滤，输出和缩短这些数据

脑融化了。 我知道Stackoverflow不做免费编码，但我坚持如何开始。 我试图从左侧过滤和输出数据，看起来像使用VBA脚本右侧的数据。 任何build议，我怎么能做到这一点？

Answer 1

这可能会让你开始：

Sub mergeCategoryValues() Dim lngRow As Long With ActiveSheet Dim columnToMatch As Integer: columnToMatch = 2 Dim columnToConcatenate As Integer: columnToConcatenate = 4 Dim columnToSum As Integer: columnToSum = 5 lngRow = .Cells(65536, columnToMatch).End(xlUp).Row .Cells(columnToMatch).CurrentRegion.Sort key1:=.Cells(columnToMatch), Header:=xlYes Do If .Cells(lngRow, columnToMatch) = .Cells(lngRow - 1, columnToMatch) Then .Cells(lngRow - 1, columnToConcatenate) = .Cells(lngRow - 1, columnToConcatenate) & .Cells(lngRow, columnToConcatenate) .Cells(lngRow - 1, columnToSum) = .Cells(lngRow - 1, columnToSum) + .Cells(lngRow, columnToSum) .Rows(lngRow).Delete End If lngRow = lngRow - 1 Loop Until lngRow = 1 End With End Sub 

它是从这个代码改编的： Excel VBA – 在一个单元格中合并具有重复值的行，并在其他单元格中合并值
所有你需要弄清楚的是删除第一列，并使variables更dynamic。 让我知道这是否有帮助。