☰

搜索“X”，然后用“abcdefg”替换其 U 列中的所有内容

tag-icon • tag-icon microsoft-excel vba magento
搜索“X”，然后用“abcdefg”替换其 U 列中的所有内容

我在 Excel 中有一个包含 7000 种产品的列表（“list1”）。每种产品都可以通过唯一标识符（“sku”）进行标识。我从主列表（“list2”）中检索了包含 50-100 种产品的不同列表。有了这个单独的列表，我想在 Excel 中运行以下代码：

For each product in list2, search sku in column A list1
   if match:
      rowNumber = current.row.number()
      Replace entire contents in rowNumber and column U with "Not Visible Individually"

客观的

我有一个从 Magento 导出的产品列表，其中包括简单产品和分组产品。我想快速将组产品中的所有单个产品的“可见性”从“目录、搜索”更改为“不单独可见”

如果这需要进一步说明，请询问

答案1

你可以用 VBA 来做到这一点，就像这样 -

Sub test()
Dim ws1 As Worksheet
Dim ws2 As Worksheet

 'rename sheet1 to point to the data you want to change and 'ws2 to the sheets you're looking up from
Set ws1 = Worksheets("Sheet1")
Set ws2 = Worksheets("Sheet2")

Dim rngsearch As Range
Dim rngfnd As Range
'These point to the SKU columns, change as needed   
Set rngsearch = ws2.Range("A:A")
Set rngfnd = ws1.Range("A:A")

Dim c As Range
Dim d As Range
For Each c In rngsearch
    If c <> "" Then
        For Each d In rngfnd
            If d = c Then
              'this assumes SKU in A and target in U  
              d.Offset(20) = "Not Visibility Individually"
            End If
        Next
    End If
Next

End Sub

如果 SKU 出现多次，它也会找到这些。

测试一下复制您的数据。

答案2

我决定改用 VLOOKUP 解决方案。

创建另一张表，其中第一列为 SKU，第二列从上到下为“不可单独显示”。然后在 list1 的 U 列（“可见性”列）中从上到下运行该函数。

相关内容