前景提要

最近几天，我们也是分享了一些公式在VBA当中的运用，这不，前几天又有小伙伴丢给我一个问题，主要是文本的计算的，其实文本的计算，我们完全可以利用函数来实现的，不过函数要写的公式就比较的长，而且并不是很好理解。

既然VBA那么强大，是不是可以有简单一点的方法来实现呢？

场景说明

不管简单不简单，我们先来看看场景

今天我们模拟的这个场景，也是非常简单，但是还是符合今天的场景需要的，我们可以看到这里分为两个场景，最上面三个是一种场景，纯粹的数字搭配运算符的模式，

后面三行，则是更加复杂的一种数据登记方法，数字+文字

总体来说，这种登记方法肯定是不规范的，也是不提倡的，但是事在人为，有些仓库或者出入库管理也不得不这样登记，那么在这样的情况，我们要如何针对这个单元格的内容来进行计算呢？

既然是两个场景，我们分开来两段代码

代码区

先来看看第一个 场景，比较简单的，纯粹的数字+运算符的计算，不知道函数大神会用什么样的方法来实现，这里我们来看看VBA的方法

Sub tests3()

Dim rng As Range, a As Range

Set rng = Application.InputBox("请选择单元格区域", "区域的选择", , , , , , 8)

For Each a In rng

a.Offset(0, 1) = Application.Evaluate(a.Value)

Next