需求:如下图,需将F、G、H共3列转换为数字格式,F列保留为整数,G、H列保留为2位小数的数字(且不带千分位)。对于个例的需求,一般用分列就好了,但是考虑到日报之类的频繁需求,还是用代码的好。
1 Sub test3() 2 3 Dim irow As Long 4 Dim arr() 5 6 irow = ActiveWorkbook.Sheets(1).Range("
需求:如下图,需将F、G、H共3列转换为数字格式,F列保留为整数,G、H列保留为2位小数的数字(且不带千分位)。对于个例的需求,一般用分列就好了,但是考虑到日报之类的频繁需求,还是用代码的好。
1 Sub test3() 2 3 Dim irow As Long 4 Dim arr() 5 6 irow = ActiveWorkbook.Sheets(1).Range("