转换来自＆＃39; cm＆＃39;的列中的值到了＆＃39; m＆＃39;使用VBA？

Question

我有一个包含值为543678的列（B）。我写了一个公式：

=Convert(543678,"cm","m")

这为我转换了值，但是我有1000行的任意数字，我怎么能用宏来做？

有多个列，如位置/高度/长度/宽度。

如果问题重复，我很抱歉。

Answer 1

相当于使用CONVERT公式的vba是这样的（填充A2:Ax右侧的所有单元格，其中 x 是最后使用的小区）

码

Sub QuickConvert()
Dim rng1 As Range
Set rng1 = Range([a2], Cells(Rows.Count, "A").End(xlUp))
rng1.Offset(0, 1).FormulaR1C1 = "=CONVERT(RC[-1],""cm"",""m"")"
End Sub

Answer 2

您可以将公式输入单元格，然后只需从单元格的右下角向下拖动，它就会将公式应用于列：

Answer 3

如果您希望转换值＆＃34;就位＆＃34;，然后选择单元格并运行此宏：

Sub ChangeInPlace()
    For Each r In Intersect(Selection, ActiveSheet.UsedRange)
        v = r.Value
        If v <> "" Then
            If IsNumeric(v) Then
                r.Value = v / 100
            End If
        End If
    Next r
End Sub