如何将文本格式存储的数值复制到另一个Excel工作表并转为数值格式？

嘿，我来帮你搞定这个问题！你遇到的情况是因为NumberFormat = "0"只是修改了单元格的显示格式，但并没有真正把文本型的数值转换成实际的数值类型。咱们来调整你的VBA代码，彻底解决这个问题：

先说说你代码里的小问题 #

• objWorkSheet.Paste objWorkSheet2.Range("A1")的语法不正确，直接用Paste方法没法指定目标位置，得用PasteSpecial来控制粘贴类型
• 变量名大小写不一致（比如objworksheet3和objWorksheet3），虽然VBA不区分大小写，但规范命名能避免混乱
• 没有关闭源文件objWorkbook3，容易导致Excel进程残留

修改后的完整代码 #

Sub CopyTextToNumeric()
    Dim myxl As Object
    Dim objWorkbook2 As Object, objWorkbook3 As Object
    Dim objWorksheet As Object, objWorksheet2 As Object, objworksheet3 As Object
    
    '初始化Excel对象
    Set myxl = CreateObject("Excel.Application")
    myxl.Visible = True
    
    '打开源文件和目标文件
    Set objWorkbook3 = myxl.Workbooks.Open("C:\PC.xlsx")
    Set objWorkbook2 = myxl.Workbooks.Open("C:\C.xlsx")
    
    '指定工作表
    Set objWorksheet = objWorkbook3.Worksheets(1)
    Set objWorksheet2 = objWorkbook2.Worksheets("PC")
    
    '添加新工作表（保留你的原有逻辑）
    Set objworksheet3 = objWorkbook2.Worksheets.Add
    objworksheet3.Name = "Project_Overview"
    
    '核心操作：复制并粘贴为数值+格式，直接转换类型
    objWorksheet.Range("A1:A10").Copy
    objWorksheet2.Range("A1").PasteSpecial Paste:=xlPasteValuesAndNumberFormats
    
    '如果上面的方法不生效，试试这个强制转换方案（取消注释即可用）
    'Dim cell As Object
    'For Each cell In objWorksheet2.Range("A1:A10")
    '    If IsNumeric(cell.Value) Then
    '        cell.Value = CDbl(cell.Value) '将文本转成数值
    '        cell.NumberFormat = "0" '设置显示格式
    '    End If
    'Next cell
    
    '保存并关闭文件
    objWorkbook2.Save
    objWorkbook2.Close
    objWorkbook3.Close '别忘了关闭源文件
    myxl.Quit
    
    '释放对象，避免内存泄漏
    Set objWorksheet = Nothing
    Set objWorksheet2 = Nothing
    Set objworksheet3 = Nothing
    Set objWorkbook2 = Nothing
    Set objWorkbook3 = Nothing
    Set myxl = Nothing
End Sub

关键逻辑说明 #

• xlPasteValuesAndNumberFormats这个参数会直接把源单元格的内容以数值类型粘贴到目标单元格，同时保留格式，一步到位解决文本转数值的问题
• 如果遇到特殊格式的文本（比如带千分位分隔符的文本），可以用注释里的遍历转换方法，通过CDbl()函数强制把可转换的文本转成数值，再设置显示格式

内容的提问来源于stack exchange，提问作者arunpandiyarajhen