请老师帮忙写个把文本格式的数字转为数字格式的宏

gaea0

我想把表格1的c列转化为数字格式，麻烦帮忙写个宏，仅限于表1c列。

gaea0

我网上炒的
ActiveSheet.UsedRange
  .NumberFormatLocal = "G/通用格式"
  .Value = .Value
是所有的都转化了，能否帮忙改一下。

网海遨游

Sub test()
        For Each sht In Sheets
                For Each Rng In sht.Range("c2:c" & sht.[c65536].End(3).Row)
                        sht.Cells(Rng.Row, 3) = Val(Rng.Value)
                Next Rng
        Next sht
End Sub

lovelfg

这个根本不需要VBA，直接用分列功能就可以了，一路默认下去就OK

xuemei0216

Sub 按钮1_Click()
Dim rng As Range
For Each rng In Columns(3)
  rng = rng.Value
Next
End Sub

网海遨游

如果只是表1中的C列，那就更简单点

Sub test() '只针对表1中的C列
                For Each Rng In Sheets(1).Range("c2:c" & Sheets(1).[c65536].End(3).Row)
                        Sheets(1).Cells(Rng.Row, 3) = Val(Rng.Value)
                Next Rng
End Sub

gaea0

xuemei0216 发表于 2019-10-11 15:58
Sub 按钮1_Click()
Dim rng As Range
For Each rng In Columns(3)

谢谢老师。

大灰狼1976

1. Sub test()
   
2. [c2:c10] = [c2:c10*1]
   
3. End Sub
   

复制代码

gaea0

lovelfg 发表于 2019-10-11 15:55
这个根本不需要VBA，直接用分列功能就可以了，一路默认下去就OK

实际情况复杂一些，不是纯数字，有其他符号或者字母，字节长度也不一致，所以只能用宏。

lovelfg

gaea0 发表于 2019-10-11 16:54
实际情况复杂一些，不是纯数字，有其他符号或者字母，字节长度也不一致，所以只能用宏。

如果单元格有其他符号或者字母，那么系统只会把它当文本处理吧，根本没法转成数字格式