复制粘贴后在Excel中转换为数字错误

debugcn 发表于 Dev

Atul vij

从SAP导出文件复制并粘贴后，我遇到问题，它要求转换为数字选项，这就像在不转换为数字公式的情况下出错不起作用。单元格值也只是数字。

我试图使宏，但它仅适用于单列。如何使它在多列上一起工作，以及由于长时间卡在exel上而使其更快。

转换成数字的代码

Columns("A:A").Select
    Selection.TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
        Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo _
        :=Array(1, 1), TrailingMinusNumbers:=True

Columns("F:F").Select
    Selection.TextToColumns Destination:=Range("F1"), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
        Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo _
        :=Array(1, 1), TrailingMinusNumbers:=True

Columns("G:G").Select
    Selection.TextToColumns Destination:=Range("G1"), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
        Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo _
        :=Array(1, 1), TrailingMinusNumbers:=True

如何缩短代码并在一行中合并多列。

用户4039065

使用一个xlFixedWidth在Range.TextToColumns方法。

Dim c As Long, vCOLs As Variant
vCOLs = Array(1, 6, 7)  'columns A, F and G

With Worksheets("Sheet1")
    For c = LBound(vCOLs) To UBound(vCOLs)
        With .Column(c)
            .TextToColumns Destination:=.Cells(1), DataType:=xlFixedWidth, _
                           FieldInfo:=Array(0, 1), TrailingMinusNumbers:=True
        End With
    Next c
End With

变量数组使您可以快速指定要处理的列。即使有大量（〜250K）行，这也应该相当快地循环通过。

本文收集自互联网，转载请注明来源。

如有侵权，请联系[email protected] 删除。