Excel从列到列的映射

Posted

tags:

篇首语:本文由小常识网(cha138.com)小编为大家整理,主要介绍了Excel从列到列的映射相关的知识,希望对你有一定的参考价值。

我在Excel中有以下格式的数据:输入:

Col1       | Col2
A1;A2;A3;A4|B1;B2;B3;B4
A5;A6      | B5;B6
A7;A8      | B7;B8

我想要数据在后续格式,即输出

Col1 | Col2
A1 |B1
A2 |B2
A3 |B3
A4 |B4
A5 |B5
A6 |B6
A7 |B7
A8 |B8

我尝试了很多,但没有找到任何有关如何构建此问题的解决方案或在excel中执行此操作。每个帮助/指南/链接将受到高度赞赏。提前致谢。

答案
Sub Test()

    Dim arr1(), arr2(), split1, split2
    Dim rng As Range, rngRow As Range
    Dim x As Integer, z As Integer

    'Assuming data starts from A1 cell
    Set rng = Range("A1").CurrentRegion

    For Each rngRow In rng.Rows
        split1 = Split(rngRow.Cells(1), ";")
        split2 = Split(rngRow.Cells(2), ";")
        For x = LBound(split1) To UBound(split1)
            z = z + 1
            ReDim Preserve arr1(1 To z)
            ReDim Preserve arr2(1 To z)
            arr1(z) = split1(x)
            arr2(z) = split2(x)
        Next
    Next

    Range("D1").Resize(UBound(arr1), 1).Value = Application.Transpose(arr1)
    Range("E1").Resize(UBound(arr2), 1).Value = Application.Transpose(arr2)


End Sub

以上是关于Excel从列到列的映射的主要内容,如果未能解决你的问题,请参考以下文章

SQL:如何找到视图列到表列的映射?

使用 flex 实现四列到列列表的反馈 - 第 2 轮

在oracle SQL中将行移动到列和列到行

Excel从列中提取和平均值

如何使用 ImportExcel 调整 Excel 列宽

excel中,如何合把行的数据合并到列