excel - 连接两列之间的所有值

Question

我需要将 A 列中的所有值与 B 列中的每个单独值连接起来。
例如

这个数据集:

Column A   Column B 
Name       Device1     
Type       Device2     
Date       Device3    
Colour     Device4
           Device5  

提供此所需的输出:

Device1Name       Device2Name      Device3Name    
Device1Type       Device2Type      Device3Type  
Device1Date       Device2Date      ... 
Device1Colour     Device2Colour    

每一列对应于列 B 中的一组迭代。

你能推荐一个VBA代码来实现这个吗？

Answer 1

试试这个与 A 列或 B 列中的项目数无关的简单代码:

    Sub ConcatCols()

    'Iterate over all cells in column A, unitl reach to the first empty cell
    Dim ra As Integer
    ra = 1
    Do Until IsEmpty(Cells(ra, 1))

        'Iterate over all cells in column B, unitl reach to the first empty cell
        Dim rb As Integer
        rb = 1
        Do Until IsEmpty(Cells(rb, 2))

            'Concatenate values and write in the next columns at row ra
            Cells(ra, 2 + rb).Value = Cells(rb, 2).Text & Cells(ra, 1).Text

            rb = rb + 1
        Loop

        ra = ra + 1
    Loop
End Sub

结果: