Left（）和Mid（）函数-VBA

Question

我想使用VBA中的Left＆Mid函数按如下方式中断列A中列C & D中的字符串：

我用过：

C列：Left(Score, (InStr(Score, "-") - 2))

D列：Mid(Score, (InStr(Score, "-")) + 2, (Len(Score)) - ((InStr(Score, "-")) + 1))

Score采用A列中的字符串值

有没有更有效的方法？

Answer 1

如果列A中的模式相同，则可以使用Split

在C列中：Split(Score, " ")(0)

在D列中：Split(Score, " ")(2)

• 您还可以将其保存到Defined Array，并且只能进行一次拆分。

---

备用1

在C列中：Split(Score, " - ")(0)

在D列中：Split(Score, " - ")(1)

---

备用2

Dim ar() as Variant

ar = Split(Score, " - ")

在C列中：ar(0)

在D列中：ar(1)

---

演示：