请问宏怎么对列表中的关键词，批量加地域生成呢？

o0star0o

比如B列有一篇关键词，前面是地域，我需要把北京换成其他的，加上其他地域生成出一批关键词，这个用宏什么实现呢？

gwjkkkkk

Sub TEST()
    Dim arr, brr, vData, i&, j&, R&
    With Sheets(1)
        brr = Application.Transpose(Range(.[B2], .Cells(Rows.Count, "B").End(xlUp)))
    End With
    arr = Sheets(2).[A1].CurrentRegion
    ReDim vData(1 To UBound(arr) * UBound(brr), 1 To 1)
    For i = 1 To UBound(brr)
        For j = 1 To UBound(arr)
           R = R + 1
           vData(R, 1) = arr(j, 1) & brr(i)
        Next j
    Next i
    Columns(1).Clear
    [A1].Resize(UBound(vData)) = vData
    Beep
End Sub

gwjkkkkk

请楼主参考附件。。。