使用VBA将工作表中所有格式（％）的单元格乘以100，然后转换为格式（数字）

我正在尽我所能，但是VBA的新手，并没有在哪里。 我知道礼仪似乎是要发布你正在尝试的东西，但是这是从SE上摘下的一些无用的东西。

我放弃了这一切，然后认为我会再次开始之前寻求帮助。

任何build议 – 以代码或指向资源的指针 – 将不胜感激。

我有一个工作表，文本单元格和％单元格。 我只需要一个macros来扫描并将所有％年龄转换为实数，这基本上涉及乘以100，然后更改单元格格式。

谢谢你们，

山姆

Answer 1

试试这个小macros：

Sub FixFormat() For Each r In ActiveSheet.UsedRange If InStr(1, r.NumberFormat, "%") > 0 Then v = r.Value r.Clear r.Value = 100 * v r.NumberFormat = "General" End If Next r End Sub 

Answer 2

 Sub convertToNumber() For Counter = 1 To 20 Set curCell = Worksheets("Sheet1").Cells(Counter, 1) curCell.NumberFormat = "#,##0.00" Next Counter End Sub 

我希望有帮助