다양한 데이터에 대해 셀을 연결하는 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를 생성합니다.