![](/img/trans.png)
[英]Excel Return 4 random unique values to adjacent cells from a list of values
[英]Excel Search list of values, and return only unique values in horizontal format
我需要根據一個范圍內的值生成一個不重復的項目編號列表。
兩種可能的選擇:
公式:嘗試搜索一個范圍並從另一列返回相應的值。 我正在搜索一系列值,並且需要一個僅包含要生成的唯一項目的列表。
Pivot 表:
根據我可以粘貼到的一系列單元格過濾 pivot 表。 我嘗試了多種選擇,但無法讓它發揮作用。
在另一張表(BOM 排序表)上,在 A 列中搜索“待盤”值,並返回從 H 列找到的所有值(僅唯一)。
目標:能夠將值從 email 復制並粘貼到“To Be Dis'd”,並且將自動生成唯一的項目列表。
所有幫助表示贊賞:)
我也試過...
我無法使用的各種公式,我很肯定這是一個用戶錯誤,只是不確定我錯過了什么。
=轉置(vlookup
=唯一(過濾器(數據,(范圍1 =“b”)*(范圍2> 5)))
{=INDEX(range1,MATCH(1,(A1=range2) (B1=range3) (C1=range4),0))}
'Private Sub Worksheet_SelectionChange(ByVal Target As Range)
' If Not Intersect(Target, Range("A15:A16")) Is Nothing Then
'End If
' Dim vArray As Variant
' Dim b As Integer, c As Integer
' Dim pvFld As PivotField
' Set pvFld = ActiveSheet.PivotTables("PivotTable1").PivotFields("*Item")
' vArray = Range("A15:A16")
' pvFld.ClearAllFilters
' With pvFld
' For i = 1 To pvFld.PivotItems.Count
' j = 1
' Do While j <= UBound(vArray, 1) - LBound(vArray, 1) + 1
' If pvFld.PivotItems(i).Name = vArray(a, 1) Then
' pvFld.PivotItems(pvFld.PivotItems(i).Name).Visible = True
' Exit Do
' Else
' pvFld.PivotItems(pvFld.PivotItems(i).Name).Visible = False
' End If
' j = j + 1
' Loop
' Next i
' End With
'End Sub
目標:基於從 email 復制的 STK 列表的入口點和唯一項目列表。
如果您想自動對 Pivot 表進行排序並獲取唯一(不重復)的數據列表,這就是我使用的組合。
根據不在數據源中的單元格范圍對 Pivot 表部分進行排序。
步驟1
將 2 列添加到 Pivot 表的源數據中。
第 1 列,引用數據輸入單元格(我在包含我的 Tracker for Disc'd 項目的工作表上添加了一個入口點,以便於排序)。
第 2 列,添加一個引用第 1 列中數據的 ifs 公式,並且您要自動過濾的數據為您提供一列,其中包含您需要的數據,僅來自入口點(您可以輸入數據的一組單元格將簡化Ifs function 相當大,您以后不需要編輯)。
現在您有一個列,在刷新 Pivot 表后,將根據輸入范圍自動顯示新的數據列表。
將該列上的過濾器設置為自動忽略錯誤、零和空白。
第2步
在 pivot 表旁邊的列中輸入公式 (=UNIQUE($F:$F)。更改列以反映所需的唯一數據列表。
第 3 步
在跟蹤表(或注釋表)上添加刷新按鈕。 您可以使用 VBA 代碼來刷新 Pivot 表。
Sheet1.PivotTables("PivotTable1").Refreshtable
第4步
使用列來引用 Pivot 表中提取的唯一項。
現在,您可以在一張紙上輸入、搜索和快速對項目采取行動所需的一切。
聲明:本站的技術帖子網頁,遵循CC BY-SA 4.0協議,如果您需要轉載,請注明本站網址或者原文地址。任何問題請咨詢:yoyou2525@163.com.