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

我正在尽我最大的努力，但是我是VBA的新手，我没有任何进展。我知道礼节似乎是发布你想要处理的东西，但这是一堆从SE中提取的无用的片段

我放弃了这一切，然后想在重新开始之前寻求帮助

任何建议——以代码或资源指针的形式——都将不胜感激

我有一个包含文本单元格和%单元格的工作表。我只需要一个宏来扫描并将所有的%年龄转换成实数，基本上需要乘以100，然后改变单元格格式

谢谢大家,

萨姆

我希望这有助于

试试这个小宏：

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

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