VBA 分类分列

zdh8083

shiruiqiang 发表于 2022-12-15 19:10
个人觉得是否设定3个值，分别为find“出生日期”、“参加工作日期”及“入司日期”的列，然后循环

嗯。。。是的，可以试试

zdh8083

套了个代码，可是不知道为啥只能更新“数据一”那个工作簿。。。。



Sub 数据处理()
    Application.ScreenUpdating = False
    Dim FileName As String, Wb As Workbook, CSRQ, GZRQ, RSRQ, ZJHM
    FileName = Dir(ThisWorkbook.Path & "\*.xls*")
        If FileName <> ThisWorkbook.Name Then
            Fn = ThisWorkbook.Path & "\" & FileName
            Workbooks.Open (Fn)
            Worksheets(1).Select
            Range("A1").CurrentRegion.Value = Range("A1").CurrentRegion.Value
            CSRQ = Range("1:1").Find("出生日期").Column
            Columns(CSRQ).NumberFormatLocal = " YYYY-MM-DD"
            GZRQ = Range("1:1").Find("参加工作日期").Column
            Columns(GZRQ).NumberFormatLocal = " YYYY-MM-DD"
            RSRQ = Range("1:1").Find("入司日期").Column
            Columns(RSRQ).NumberFormatLocal = " YYYY-MM-DD"
            ZJHM = Range("1:1").Find("证件号码").Column
            Columns(ZJHM).NumberFormatLocal = " @"
            Workbooks(Fn).Close True
        End If
    Application.CutCopyMode = False
    Application.ScreenUpdating = True
End Sub