考虑具有导入值27.873 M
的单元格,其中M
代表百万。它实际上很多,并且无法手动更改它们。
是否有任何宏或VGA跟踪其中的M
字母,删除它,然后将单元格的值乘以1,000,000
,以便最终值变为27,873,000
?
答案 0 :(得分:0)
要修复数据"就地",请运行以下短宏:
Sub DataFixer()
Dim r As Range
For Each r In ActiveSheet.UsedRange
If Right(r.Value, 1) = "M" Then
r.Value = CLng((Trim(Replace(r.Value, "M", "")))) * 1000000
End If
Next r
End Sub
答案 1 :(得分:0)