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

Question

假设，我有数据

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

I want to display it like

Column1    Column2   Column3  1           1000      3000   2           2000  3           5000  

I want to take only positive value from column2 where column1 have same value(e.g. for 1 have 2 positive values. I want to display them in format shown above.)

How can I achieve this using Manual Methods(Formulas) or using VBA??I have written a code where it takes positive values from column1 where column1.value=1. But how to iterate through next values(i.e. 2 and 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

Answer 1

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

需要两组公式，第一组用于创建第 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)),"-")

第2列查找是一个数组公式；在示例工作表中，将其输入到单元格 E2 中(使用 Ctrl-Shift-Enter 组合键)，然后向下和横向复制。

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),"-")