根据Excel姓名和身份证号从文本文件提取相关数据到指定列

APPLE123

ykcbf1100 发表于 2024-12-5 08:23
代码简化一下。

谢谢老师的帮助！太强大了！请教一下老师是使用什么工具发现BC列单元格有回车符的？

ykcbf1100

APPLE123 发表于 2024-12-5 13:05
谢谢老师的帮助！太强大了！请教一下老师是使用什么工具发现BC列单元格有回车符的？

因为代码没有问题，但取不到值，所以，就去看BC列单元格的值。

usedrange

参与学习.....

APPLE123

ykcbf1100 发表于 2024-12-5 13:57
因为代码没有问题，但取不到值，所以，就去看BC列单元格的值。

谢谢老师！
因为看不见BC列单元格有其他的内容，但您是如何BC列单元格有回车符，而不是其他的字符呢？常规情况下，这些字符是看不见的呀！有什么工具或方法可以查看吗？

gwjkkkkk

Option Explicit
Sub test()
    Dim strFileName$, strPath$, strResult$(), ar, br, y&, x&, r&, n As Byte
   
    DoApp False
   
    strPath = ThisWorkbook.Path & "\"
    strFileName = Dir(strPath & "*.txt")
    Do Until strFileName = ""
        n = FreeFile
        Open strPath & strFileName For Input As #n
            ar = Split(StrConv(InputB(LOF(n), #n), vbUnicode), "就职")
        Close #n
        For y = 0 To UBound(ar)
            If Len(ar(y)) Then
                br = Split(ar(y), vbCrLf)
                r = r + 1
                ReDim Preserve strResult(1 To 3, 1 To r)
                For x = 1 To 3
                    If x > 1 Then n = x + 1 Else n = 1
                    strResult(x, r) = br(n)
                Next x
            End If
        Next y
        strFileName = Dir
    Loop
   
    With [A1].CurrentRegion
        ar = .Value
        For x = 3 To UBound(ar)
            For y = 4 To 5: ar(x, y) = Empty: Next
            For y = 1 To UBound(strResult, 2)
                If strResult(1, y) = ar(x, 2) Then
                    ar(x, 4) = strResult(2, y)
                    ar(x, 5) = strResult(3, y)
                    Exit For
                End If
            Next y
        Next x
        .Value = ar
    End With
   
    DoApp
    Beep
End Sub
Function DoApp(Optional b As Boolean = True)
    With Application
        .ScreenUpdating = b
        .DisplayAlerts = b
        .Calculation = -b * 30 - 4135
    End With
End Function

gwjkkkkk

参与一下。。。

APPLE123

gwjkkkkk 发表于 2024-12-5 20:03
Option Explicit
Sub test()
    Dim strFileName$, strPath$, strResult$(), ar, br, y&, x&, r&, n As  ...

谢谢老师，可以达到预期效果。但是不太理解，可否发个注释版代码，谢谢！

ykcbf1100

APPLE123 发表于 2024-12-5 19:28
谢谢老师！
因为看不见BC列单元格有其他的内容，但您是如何BC列单元格有回车符，而不是其他的字符呢？常 ...

查看单元格就知道了，因为光标落在第二行，所以有回车符

gwjkkkkk

APPLE123 发表于 2024-12-5 20:41
谢谢老师，可以达到预期效果。但是不太理解，可否发个注释版代码，谢谢！

对代码进行了解释，不知道能不能理解。。。

APPLE123

gwjkkkkk 发表于 2024-12-6 19:59
对代码进行了解释，不知道能不能理解。。。

谢谢老师！再请教一下老师：
.Calculation = -b * 30 - 4135
这句代码是什么意思？这些数字是怎么来的？