UDF使用Microsoft Excel_中的VBA仅从单元格中提取数字

在本文中,我们将学习如何使用VBA代码仅从具有用户定义函数的单元格中提取数字。

问题):我需要一个宏才能仅从包含字母数字数据的单元格中检索数字。

以下是其中A列包含字母数字数据且期望数在B列中的数据的快照

img1

为了仅从A列获取数字;我们需要按照以下步骤启动VB编辑器:单击“开发人员”选项卡。在“代码”组中,选择“ Visual Basic”。将以下代码复制到标准模块

img2

函数NumericOnly(mystr作为变体)

将myOutput设为字符串,i设为整数

对于i = 1到Len(mystr)

如果IsNumeric(Mid(mystr,i,1))然后_

myOutput = myOutput&Mid(mystr,i,1)

下一个

NumericOnly = myOutput * 1

结束函数

===

  • 要获得单元格B2中的输出,公式为

img3

* = NumericOnly(A2)

===

img4

===

这样,我们只能使用VBA代码从包含文本和数字的单元格中检索数字。

image 4