vab复制粘贴后变为科学计数格式，如何设置代码不变格式？

弱水三瓢

系统里导出的原始表格，原始表格部分单元格可能有错误的原因，左上角有绿色三角符号。现在合并多个此类表格，代码如下。结果复制后的部分结果就成科学计数的格式了。请问如何设置代码，完整展示结果？
Sub 文件合并()
Dim Num As Long     'dim为定义参数
Dim insert_row As Long
Dim MyPath As String
Dim MyName As String
Dim Wb As Workbook   'dim被合并文件名

Application.DisplayAlerts = False

insert_row = 1
MyPath = ThisWorkbook.Path
MyName = Dir(MyPath & "\*.xls")
Num = 0
[A1].CurrentRegion.ClearContents
Do While MyName <> ""
    If MyName <> ActiveWorkbook.Name Then
       Set Wb = Workbooks.Open(MyPath & "/" & MyName)
       Num = Num + 1
       With Sheets("sheet1").Activate

          If Num = 1 Then
            If Range("A" & (Cells.SpecialCells(xlCellTypeLastCell).Row - 1)).Value = "合计行" Then
            Range("A3", "BV" & (Cells.SpecialCells(xlCellTypeLastCell).Row - 2)).Select
            Else
            Range("A3", "BV" & (Cells.SpecialCells(xlCellTypeLastCell).Row - 1)).Select
            End If
          Else
           If Range("A" & (Cells.SpecialCells(xlCellTypeLastCell).Row - 1)).Value = "合计行" Then
            Range("A4", "BV" & (Cells.SpecialCells(xlCellTypeLastCell).Row - 2)).Select
            Else
            Range("A4", "BV" & (Cells.SpecialCells(xlCellTypeLastCell).Row - 1)).Select
            End If
          End If
       End With

      Selection.Copy
      ActiveWindow.Close
      Range("A" & insert_row).Select
      Selection.PasteSpecial Paste:=xlPasteAll
      insert_row = Range("A" & Rows.Count).End(xlUp).Row + 1   'End(xlUp).Row指数据区域最后一行行号


    End If
    MyName = Dir

Loop
End Sub

alstar

强迫症吗？如果不是强迫症患者可以实现设置单元格格式。
把A列设置成文本格式。 [a:a].NumberFormatLocal = "@"

弱水三瓢

alstar 发表于 2018-9-10 13:33
强迫症吗？如果不是强迫症患者可以实现设置单元格格式。
把A列设置成文本格式。 [a:a].NumberFormatLocal  ...

试过了 不顶用。。

alstar

      Selection.Copy
      ActiveWindow.Close
      Range("A" & insert_row).Select
      Selection.PasteSpecial Paste:=xlPasteValue
      insert_row = Range("A" & Rows.Count).End(xlUp).Row + 1   'End(xlUp).Row指数据区域最后一行行号

你用xlPasteAll的方法copy会把原来的格式也跟着复制进来。在你没复制前加上[a:a].NumberFormatLocal = "@"，之后再用xlpastevalue的 方法。我测试了。没问题

alstar

为啥非得要copy呢。。打开文件后把想要的数据装入数组在关闭工作簿，那么处理数据比用copy方法运行速度快的很多吧。而且还方便对数据加以处理。

弱水三瓢

alstar 发表于 2018-9-10 14:31
为啥非得要copy呢。。打开文件后把想要的数据装入数组在关闭工作簿，那么处理数据比用copy方法运行速度快的 ...

现在可以了，谢谢你！我之前是在原始数据设置的文本格式，错误没调过来，因此不顶用。后面尝试下用原始数据忽略错误的代码看行不行。

弱水三瓢

alstar 发表于 2018-9-10 14:31
为啥非得要copy呢。。打开文件后把想要的数据装入数组在关闭工作簿，那么处理数据比用copy方法运行速度快的 ...

新手学习，代码也是网上找的，惭愧。。。多谢你提供思路，下来再学习下