用于连接一系列数据的单元格的 VBA 代码

Question

我有一种产品，它可以有多种变体和尺寸。我需要一个可以获取值并将它们连接起来以创建产品 SKU 的宏。例如，我的产品是 1234。变体有 ABF、PLC、MKLN、XTR。尺寸有 30、36 等。我需要使用列中的这些值在宏中创建所有变体。所以我的最终产品将是 1234-30-ABF、1234-30-PLC、1234-30-MKLN 等和 1234-36-ABF、1234-36-PLC 等。我可以在列中提供这些值。我需要读取列并使用 & 或 concat 函数循环运行宏。我将提供值。我试过宏 VBA，但无法在 concat 函数中使用变量。请帮忙。

ActiveCell.FormulaR1C1 = "=Sheet2!RC&""-""&Sheet2!RC[3]&"".""&""FR"""

Answer 1

假设基本模型在 A 列，变体在 B 列，尺寸在 C 列并且创建时的 SKU 位于不同的单元格，那么您可以使用以下 VBA 宏：

Sub AllSKU()

    Dim model, myvariant, mysize, sku As String
    Dim lRow As Long
    Dim i As Integer

    lRow = Cells(Rows.Count, 1).End(xlUp).Row 'Get the last row with data
    model = Range("A2").Value
    
    Range("E:E").Value = "" 'Clear Column E -- As it will be used for SKUs
    Range("E" & 1).Value = "SKU"

    For x = 2 To lRow

        If Range("A" & x).Value <> "" Then 'Get model when cell is not empty
            model = Range("A" & x)
        End If

        Range("E" & x).Value = model & "-" & Range("B" & x).Value & "-" & Range("C" & x).Value
    Next

End Sub

它循环遍历单元格并在 E 列上创建 SKU。