求助各位老师：EXCEL同一单元格中身份证号码合并成一行

ljxlwq_0803

各位老师：
原始文档是XPS格式的，XPS格式中同一身份证是分上下行显示，转换为EXCEL后，EXCEL中也是上下行显示，EXCEL“设置单元格格式”中把“自动分行”勾去掉后，单元格显示是成一行了，但实际还是分二行。主要是我想通过这身份证号用VLOOKUP和另一表格的身体证号(文本格式的)来查询数据，身体证号码无法“匹配”。求助老师们有没有办法？谢谢！

leikaiyi123

Sub test()
    Application.ScreenUpdating = False
    For i = 1 To ActiveSheet.Cells(65535, 2).End(xlUp).Row
        If InStr(ActiveSheet.Cells(i, 2), vbLf) Then
            ActiveSheet.Cells(i, 2) = Replace(ActiveSheet.Cells(i, 2), vbLf, "")
        End If
    Next
    Application.ScreenUpdating = True
End Sub

ljxlwq_0803

leikaiyi123 发表于 2023-3-17 14:55
Sub test()
    Application.ScreenUpdating = False
    For i = 1 To ActiveSheet.Cells(65535, 2).End ...

谢谢老师，问题解决了。