根据列数据创建新的 Excel 行

大家下午好，

我遇到一个问题，我的用户拥有多个银行帐户详细信息。我需要尝试为每个拥有多个银行帐户的员工创建一个新行，并为第二个银行帐户分配一个新行。

Employee Number     User ID         BSB             Account number
10000591            WOODSP0         306089,116879   343509,041145273
10000592            THOMSOS0        037125          317166

我需要它看起来像这样：

Employee Number     User ID     BSB     Account number
10000591            WOODSP0     306089  343509
10000591            WOODSP0     116879  041145273
10000592            THOMSOS0    037125  317166

有什么想法吗？非常感谢您的意见！

屏幕截图用于演示：

右键单击选项卡并选择“查看代码”

将此代码粘贴到：

Sub SplitOnAccount()
Dim X As Long, Y As Long, EmpNo As String, UserID As String, BSB As Variant, AccNo As Variant
Range("F1:I1") = Application.Transpose(Application.Transpose(Array(Range("A1:D1"))))
For X = 2 To Range("A" & Rows.Count).End(xlUp).Row
    EmpNo = Range("A" & X).Text
    UserID = Range("B" & X).Text
    BSB = Split(Range("C" & X).Text, ",")
    AccNo = Split(Range("D" & X).Text, ",")
    For Y = LBound(AccNo) To UBound(AccNo)
        Range("F" & Range("F" & Rows.Count).End(xlUp).Row).Offset(1, 0).Formula = EmpNo
        Range("G" & Range("G" & Rows.Count).End(xlUp).Row).Offset(1, 0).Formula = UserID
        Range("H" & Range("H" & Rows.Count).End(xlUp).Row).Offset(1, 0).Formula = BSB(Y)
        Range("I" & Range("I" & Rows.Count).End(xlUp).Row).Offset(1, 0).Formula = AccNo(Y)
    Next
Next
End Sub

关闭窗口返回 Excel

按 ALT-F8

选择 SplitOnAccount 并单击运行。

请注意，这会将拆分数据填充到行 F 到 I，确保其中没有任何内容。如果有回帖，我们可以更改。

在运行之前，还要将 F - I 列格式化为文本，否则 Excel 会去掉前导零，因为它将其解释为数字。