在excel中将值从cm转换为inch

时间:2013-03-29 13:49:30

标签: excel excel-vba vba

使用此功能可以将厘米格式的数字转换为英寸:

=CONVERT(A1,"cm","in")

我想要的是,不是替换号码,而是将转换后的号码放在原始号码旁边。实际上这是一个更复杂的情况:

原始单元格:

35 - 45 cm

转换后(全部在一个单元格中):

35 - 45 cm
(14 - 18 inch)

那么,如何以自动方式在Excel中执行此操作,因为此格式中有许多单元格,可能使用宏?

2 个答案:

答案 0 :(得分:1)

公式方法 - 如果您的值从A1开始,则将其放在B1中并填充。

= A1 & CHAR(10) & "(" & ROUND(CONVERT(
VALUE(LEFT(A1,SEARCH("-",A1)-1)),"cm","in"),1) & " - " &
ROUND(CONVERT(
VALUE(MID(SUBSTITUTE(A1,"cm",""), SEARCH("-",A1)+1,10)),"cm","in"),1) & "in)"

答案 1 :(得分:0)

我将从此开始,但我建议向我提供更多信息,以便我可以更好地解决您的问题:

Sub AddConversionToCell()

    FirstNumberAsIn = WorksheetFunction.Convert(Left(Range("A1").Value, 2), "cm", "in")
    SecondNumberAsIn = WorksheetFunction.Convert(Mid(Range("A1").Value, 6, 2), "cm", "in")
    Range("A1").Value = Range("A1").Value & " ( " & FirstNumberAsIn & " - " & SecondNumberAsIn & " inch)"

End Sub