Sub 批量將數(shù)字設(shè)置為文本格式()
    文件名 = Dir("C:\Users\Administrator\Desktop\拆分\")
    
    Do While 文件名 <> ""
        Set wb = Workbooks.Open(Filename:="C:\Users\Administrator\Desktop\拆分\" & 文件名)
        Set 待處理單元格1 = wb.Sheets(1).Range("D2")
        Set 待處理單元格2 = wb.Sheets(1).Range("D4")
        
        If 待處理單元格1.Value <> "" Then
            待處理單元格1.UnMerge
            待處理單元格1.NumberFormat = "@"       ' 關(guān)鍵步驟：將區(qū)域格式設(shè)置為文本
            待處理單元格1.TextToColumns _
            Destination:=待處理單元格1.Cells(1, 1), _
            DataType:=xlFixedWidth, _
            FieldInfo:=Array(0, xlTextFormat)   ' 目標(biāo)位置為當(dāng)前列的第一個(gè)單元格；固定寬度模式（不拆分列）；第1列（索引0）強(qiáng)制轉(zhuǎn)為文本
        End If
        
        If 待處理單元格2.Value <> "" Then
            待處理單元格2.UnMerge
            待處理單元格2.NumberFormat = "@"
            待處理單元格2.TextToColumns _
            Destination:=待處理單元格2.Cells(1, 1), _
            DataType:=xlFixedWidth, _
            FieldInfo:=Array(0, xlTextFormat)
        End If

        wb.Close SaveChanges:=True
        文件名 = Dir()
    Loop
    
End Sub