用于格式化“一般”列中特定单元格集的宏。到'号码'

时间:2017-08-08 00:25:51

标签: excel-vba vba excel

我有一个excel电子表格,其中包含从另一个应用程序导出的多列数据。在C列中,所有数据都被格式化为' General'默认情况下。列包含以下格式示例中的数据:
例1:123.4560
例2:12345(这些数字的长度可以是5到8个数字)
例3:VTPH50000UG。到
我需要将示例2中的所有单元格格式化为' Number'格式但忽略包含示例1和3中的数据的所有单元格。我是Macros / VB的新手并且已经广泛搜索但是找不到我需要的内容。任何帮助赞赏。

1 个答案:

答案 0 :(得分:0)

此代码未经测试,但我会尝试这样的事情:

Sub Test()
Dim EndRow as Long
workbooks("Workbookname").sheets("Sheet1").activate
EndRow=cells(rows.count,1).end(xlup).row

If Application.WorksheetFunction.IsNumber ("C2:C" & EndRow)
Range("C2").Select
Range(Selection, Selection.End(xlDown)).NumberFormat ="0.00"
Else
End if
End sub