如何使用第一列的一部分向现有工作表添加新列

Question

如何使用第一列VBA

的一部分将新列添加到现有工作表中

假设我有以下数据：

>>> s.add(b3)
>>> s
{B(name='b1', x=90), B(name='b3', x=93), B(name='b2', x=92)}

我想这样做：

Test 12212
Test 6588476
Something 4125
What is this 1254

任何帮助表示感谢。

此致

西蒙

Answer 1

在模块中创建此功能：

Public Function GetFirstWord(sFull As String) As String
  GetFirstWord = Split(sFull, " ")(0)
End Function

然后你可以在你的单元格公式中使用它：

=GetFirstWord(B1)