Question

我有一张excel表，其中一列中包含主键，另一列中包含属性列表（管道分隔）。这是一个例子：

pk1     a | b | c
pk2
pk3     b | d
pk4     e

大约有38k行。

我想从这些数据中创建一个交叉引用表，使它看起来更像这样：

pk1     a
pk1     b
pk1     c
pk3     b
pk3     d
pk4     e

有没有一种简单的方法可以实现这一目标？

Answer 1

使用VBA，sub以您提供的格式解析数据。可能需要根据列结构进行一些更新。

Sub Parse()
    Dim thissheet As Worksheet
    Set thissheet = ActiveSheet

    Sheets.Add
    ActiveSheet.Range("A1").Value = "Header 1"
    ActiveSheet.Range("B1").Value = "Header 2"

    Dim pk As Long
    Dim carray() As String

    For x = 0 To thissheet.Range("A65535").End(xlUp).Row

    If InStr(1, thissheet.Range("B2").Offset(x, 0).Value, "|") > 0 Then
    'if cellvalue contains bar
    carray() = Split(thissheet.Range("B2").Offset(x, 0).Value, "|")
    For i = LBound(carray) To UBound(carray)
    ActiveSheet.Range("A2").Offset(pk, 0).Value = thissheet.Range("A2").Offset(x, 0).Value
    ActiveSheet.Range("B2").Offset(pk, 0).Value = Trim(carray(i))
    pk = pk + 1
    Next i
    Else
    'No Bar do this
    ActiveSheet.Range("A2").Offset(pk, 0).Value = thissheet.Range("A2").Offset(x, 0).Value
    ActiveSheet.Range("B2").Offset(pk, 0).Value = thissheet.Range("B2").Offset(x, 0).Value
    pk = pk + 1
    End If
    Next

    End Sub

Excel列表解析表

1 个答案: