一列多元素（分号间隔），如何转化成一对一形式？

mavin

这不是应该分列了以后，写VBA代码吗？

感觉贴错板块了。

mavin

Public Sub 转换()
k = 1
With Sheets("结果表")
.[a1:c6000].Clear
    For i = 2 To [b65536].End(xlUp).Row
        If Cells(i, 256).End(xlToLeft).Column = 2 Then
            .Cells(k, 1) = Cells(i, 1)
            .Cells(k, 2) = Cells(i, 2)
            k = k + 1
        End If
        For j = 2 To Cells(i, 256).End(xlToLeft).Column - 1
            For jj = j + 1 To Cells(i, 256).End(xlToLeft).Column
                .Cells(k, 1) = Cells(i, 1)
                .Cells(k, 2) = Cells(i, j)
                .Cells(k, 3) = Cells(i, jj)
                k = k + 1
            Next jj
        Next j
    Next i
End With
End Sub

david2021

mavin 发表于 2021-12-22 10:08
Public Sub 转换()
k = 1
With Sheets("结果表")

谢谢大神，新年好啊。您编的这个公式可以用，请教下有什么限制吗？例如中间表的行数和列数有什么具体要求吗？是不是列数或行数多于某个值就失效了？

mavin

256列，65536行，代码里有的，你可以自己改更多。