根据列中的重复值对 Excel 中的值进行分组

假设，我有数据

Column1     Column2  
1            1000   
1           -2000  
1            3000  
2            2000  
2           -1000  
3            5000  
3           -4000    

我想显示它像

Column1    Column2   Column3  
1           1000      3000   
2           2000  
3           5000    

我只想从第 2 列中获取正值，其中第 1 列具有相同的值（例如，对于 1 有 2 个正值。我想以上面所示的格式显示它们。）

我如何使用手动方法（公式）或使用 VBA 来实现这一目标？ 我编写了一个代码，它从column1中获取正值，其中column1.value=1。但是如何迭代下一个值（即 2 和 3）

Sheets("Sheet1").Select
myvalue = Cells(2, 1).Value
MsgBox myvalue


Dim negativevalue(0 To 10) As Long
Dim colum As Integer
Dim row As Integer

colum = 1
row = 2
i = 0
While Cells(row, colum).Value = myvalue
If (Cells(row, 2).Value < 0) Then

MsgBox Cells(row, 2).Value
negativevalue(i) = Cells(row, 2).Value


End If

这是针对您的问题的纯粹基于公式的方法。

需要两组公式，第一组用于创建第 1 列中不同值的不重复列表，第二组用于查找正值并将其放置在第 2 列中。

用于创建不同列 1 值列表的公式放置在单元格 D2 中并复制到该列中。该公式对第 1 列值使用命名范围。如果将其放在另一列中，请调整$D1$D:D1到您正在使用的列，并确保它引用您放置公式的上方的单元格。例如，如果您将公式放入单元格中C4，公式中的列引用应该是$C$3:C3

Formula to create list of distinct values from column 1
Cell D2  =IFERROR(INDEX(Column1,MATCH(0,INDEX(COUNTIF($D$1:D1,Column1),
          0,0),0)),"-")

The column 2 lookup is an array formula; in the example worksheet, it is entered in cell E2 (using the Ctrl-Shift-Enter key combination) and then copied down and across.

Array Formula to lookup and place column 2 values
Cell E2  =IFERROR(INDEX(Column2,1/LARGE(IFERROR(1/((Column1=$D2)*
          (Column2>=0)*ROW(INDIRECT("1:"&COUNTA(Column2)))),0),
          COLUMNS($E$2:E$2)),1),"-")