使用宏中的VBA以文本格式转换数字格式不起作用

时间:2016-01-04 16:30:44

标签: excel vba excel-vba

所以,我正在尝试自动化,但为了这样做,我必须将我的sku的格式更改为文本,以便使用其他文件的sku正确地进行VLOOKUP / MATCH。我尝试连接单引号,但它不起作用。功能CStr(),它将无法工作,功能STR(TRIM(X)),它将无法正常工作,并且从一开始我确信函数TEXT()应该工作,但它不会! 我的最终代码看起来像这样

Windows("file.csv").Activate
Range("C2").Select
ActiveCell.FormulaR1C1 = "=TEXT(C[-1], 0)"
Selection.AutoFill Destination:=Range("C2:C" & LastRow)
Range("C2:C" & LastRow).Select
With Selection
    Selection.NumberFormat = "General"
    .Value = .Value
End With

我要对这段代码做的是将文本格式从B列复制到C列。然后我将删除B列并在文本表单上只留下C. 我做错了什么想法?当我运行脚本时,它会复制所有内容,但不会应用公式TEXT().. 有什么建议吗?

0 个答案:

没有答案