VBA 代码运行把不改变文本显示

yaozhaoze

各位老师你好：

      “上传包装清单”按钮运行到以下代码，把分割的表C列文本显示改成数值显示了，怎样修改以下代码不修改C列文本显示，C列显示要求：（送货单行*）保留5位数，不够前面用“0”补足5位.

    Set Rng = .Range("a1").Resize(1, 9)
    Dim dr()
    For Each Key In d1.items
        ReDim dr(1 To UBound(br), 1 To UBound(br, 2))
        n = 0
        For i = 2 To UBound(br)
                If br(i, 2) = Key Then
                        n = n + 1
                        For j = 1 To UBound(br, 2)
                                dr(n, j) = br(i, j)
                        Next
                End If
        Next
         Set wb = Workbooks.Add
        With wb.Sheets(1)
             .Name = Key
             Rng.Copy .Range("A1")
             .Range("A2").Resize(UBound(dr), UBound(dr, 2)) = dr
        End With
        wb.SaveAs ThisWorkbook.Path & "\" & Key & ".xlsx"
        wb.Close
    Next
End With
Application.ScreenUpdating = True
Application.DisplayAlerts = True

ykcbf1100

按你的要求C列是文本，代码运行的结果C列就是文本啊，没什么问题。

yaozhaoze

ykcbf1100 发表于 2024-1-16 16:52
按你的要求C列是文本，代码运行的结果C列就是文本啊，没什么问题。

知道了，谢谢您