Question

我想知道在VBA中引用Excel中单元格中某部分值的方法。例如，如果在单元格A32中我存储了4200 cc。我想在VBA的宏中仅引用4200进行计算。因此，就像人们可以使用索引引用python中的字符串或列表一样，我希望能够做到这一点。谢谢！

Answer 1

像这样（？）：

Dim tmpArr
    tmpArr = Split(Range("A32"), " ")

'any calculation in vba in this way:
Range("B32") = tmpArr(0) / 100
'results with 42 in cell B32

编辑如果对拆分结果的第一部分的数字识别有任何疑问，您可以通过这种方式进行额外转换：

'conversion to Double type
Range("B32") = CDbl(tmpArr(0))/100

Answer 2

您可以创建一个功能来分割单元格的内容，然后单独处理所需的部分。

Dim content As Variant 
content = Split(Range("A32").Value, " ")

Answer 3

将单元格值作为字符串s并返回数字部分？

Function GetNumber(s As String) 
  Dim j As Long 
  While Not IsNumeric(Left(s, 1)) 
      If Len(s) <= 1 Then 
          Exit Function 
      Else 
          s = Mid(s, 2) 
      End If 
  Wend 
  GetNumber = Val(s) 
End Function

在excel vba中引用单元格的一部分

3 个答案: