VBA执行拆分之后，之前的2列都变成了科学计数法，怎么解决

Qearl123

各位大佬好，

                我这里有一个工作簿，里面有4个sheet,我需要按照id列来拆分成4个工作簿，在论坛找了一些代码来执行，结果id和id2两列很长的数字列都变成了科学计数法，怎么让id和id2拆分后还是文本格式，不变化，求助，非常感谢。

liulang0808

Sub chaifen()
Set d = CreateObject("scripting.dictionary")
For Each sh In Sheets
    r = sh.Rows(1).Find("id", , , 1).Column
    ar = sh.[a1].CurrentRegion
    For i = 2 To UBound(ar)
        If Trim(ar(i, r)) <> "" Then
            d(Trim(ar(i, r))) = ""
        End If
    Next i
Next sh
Application.SheetsInNewWorkbook = ThisWorkbook.Worksheets.Count
For Each k In d.keys
    m = 0
    Set wb = Workbooks.Add
    For Each sh In ThisWorkbook.Worksheets
        n = 0
        m = m + 1
        r = sh.Rows(1).Find("id", , , 1).Column
        Set rn = sh.Rows(1)
        ar = sh.[a1].CurrentRegion
        ReDim br(1 To UBound(ar), 1 To UBound(ar, 2))
        For i = 2 To UBound(ar)
            If Trim(ar(i, r)) = k Then
                n = n + 1
                For j = 1 To UBound(ar, 2)
                    br(n, j) = ar(i, j)
                Next j
            End If
        Next i
        sh.UsedRange.Copy wb.Worksheets(m).[a1]
        wb.Worksheets(m).UsedRange.Offset(1).ClearContents
        wb.Worksheets(m).[a2].Resize(n, UBound(br, 2)) = br
        wb.Worksheets(m).Name = sh.Name
    Next sh
    wb.SaveAs Filename:=ThisWorkbook.Path & "\" & k
    wb.Close
Next k
MsgBox "ok!"
End Sub

liulang0808

格式的问题，做了代码微调

杨建营

加了两行代码，请楼主测试。

那时雨

原表中每个id前都加个英文输入法下的符号撇，例如：'511324199110172440。这样就OK啦！

Qearl123

杨建营 发表于 2023-2-21 21:41
加了两行代码，请楼主测试。

可以了，谢谢你，解决了

Qearl123

liulang0808 发表于 2023-2-21 21:33
格式的问题，做了代码微调

谢谢，你的代码可以解决

Qearl123

liulang0808 发表于 2023-2-21 21:33
格式的问题，做了代码微调

谢谢，你这个可以