在 Excel 中,查找值集上的查找函数实现
In Excel, Lookup function implementation on set of Lookup values
我是 excel 查找功能的新手。我有一个要求,有人可以指导我如何使用 excel 查找来实现它。
inputFile
在 excel sheet 中,我在 C 列中有商品(书籍、帽子等)。在 D 列中,我有与商品对应的价格。 C 列中的项目可以重复。
所以我想做的就是,在新列(例如 F)中,我想列出 C 列中的项目(应忽略 C 列中的重复项目),在 F 列中,我需要总和商品的价格(包括重复的商品)。
输入请参考"input.png",预期输出请参考"expected.png"expected.png
如果 excel 中除了 lookup 之外还有任何功能,即使这样也没关系。
请指导我。
将 C 列粘贴到 F 列并删除重复项...检查此 link https://support.office.com/en-us/article/Filter-for-unique-values-or-remove-duplicate-values
然后在 G 列中使用 sumif....检查此 link 以获得 SUMIF https://support.office.com/en-us/article/SUMIF-function
你会得到你想要的输出。
你可以这样做:
Option Explicit
Sub main()
Dim itemsRng As Range
With Worksheets("Items") '<-- change "Comparisons" to your actual sheet name
Set itemsRng = .Range("C5", .Cells(.Rows.Count, "C").End(xlUp))
With .Range("F5").Resize(itemsRng.Rows.Count)
.Value = itemsRng.Value
.RemoveDuplicates Columns:=Array(1)
End With
With .Range("F5", .Cells(.Rows.Count, "F").End(xlUp)).Offset(, 1)
.FormulaR1C1 = "=SUMIF(" & itemsRng.Address(True, True, xlR1C1) & ",RC[-1]," & itemsRng.Offset(, 1).Address(True, True, xlR1C1) & ")"
.Value = .Value
End With
End With
End Sub
我是 excel 查找功能的新手。我有一个要求,有人可以指导我如何使用 excel 查找来实现它。 inputFile
在 excel sheet 中,我在 C 列中有商品(书籍、帽子等)。在 D 列中,我有与商品对应的价格。 C 列中的项目可以重复。
所以我想做的就是,在新列(例如 F)中,我想列出 C 列中的项目(应忽略 C 列中的重复项目),在 F 列中,我需要总和商品的价格(包括重复的商品)。
输入请参考"input.png",预期输出请参考"expected.png"expected.png
如果 excel 中除了 lookup 之外还有任何功能,即使这样也没关系。
请指导我。
将 C 列粘贴到 F 列并删除重复项...检查此 link https://support.office.com/en-us/article/Filter-for-unique-values-or-remove-duplicate-values
然后在 G 列中使用 sumif....检查此 link 以获得 SUMIF https://support.office.com/en-us/article/SUMIF-function
你会得到你想要的输出。
你可以这样做:
Option Explicit
Sub main()
Dim itemsRng As Range
With Worksheets("Items") '<-- change "Comparisons" to your actual sheet name
Set itemsRng = .Range("C5", .Cells(.Rows.Count, "C").End(xlUp))
With .Range("F5").Resize(itemsRng.Rows.Count)
.Value = itemsRng.Value
.RemoveDuplicates Columns:=Array(1)
End With
With .Range("F5", .Cells(.Rows.Count, "F").End(xlUp)).Offset(, 1)
.FormulaR1C1 = "=SUMIF(" & itemsRng.Address(True, True, xlR1C1) & ",RC[-1]," & itemsRng.Offset(, 1).Address(True, True, xlR1C1) & ")"
.Value = .Value
End With
End With
End Sub