[原贴附件更新] 求助大神-有换行符的分行处理脚本怎么写哇

pangli1220

如附件：A1行中有换行符，需要分到C1/C2......等各行显示

yylucke

请参考
Private Sub CommandButton1_Click()
Dim MyArr, MyCol, MyRow
MyCol = 8 '修改此处，决定结果位置
MyRow = 1

With Sheet1
    .Range(.Cells(2, MyCol), .Cells(10000, MyCol + 1)).ClearContents
    MyArr = .Range("A2:B" & .Cells(.Rows.Count, 1).End(xlUp).Row)
    For i = 1 To UBound(MyArr)
        kk = Split(MyArr(i, 1), Chr(10))
        For j = 0 To UBound(kk)
            MyRow = MyRow + 1
            .Cells(MyRow, MyCol) = kk(j)
            .Cells(MyRow, MyCol + 1) = MyArr(i, 2)
        Next j
    Next i
End With
End Sub

yylucke

请参考附件