Excel VBA在单元格中拆分数据并将其复制到另一个工作表

Question

我对VBA很新，而且我遇到了一个可能有一个简单解决方案的问题。

在Cell A1中我有一个字符串“UP 5487441 - 更多文字”。我只需要将“OUP5487441”（没有空格和文本），到另一个工作表进入单元格C3。

我已经挖掘了很多东西来找到解决方案，但我只是继续寻找功能，但我需要它成为更大的VBA宏的一部分，用于多个文件。但数据总是在单元格A1中。

如果有人有任何提示，我非常感谢！

迎接

Sanved

Answer 1

这应该有效：

Dim splitValues() as String

splitValues = Split(ActiveSheet.Cells(1,1).Value)

Sheet2.Cells(3,3).Value = splitValues(0) & splitValues(1)

显然，当您将其添加到现有代码时，可以使其更加强大，但这是使用的一般策略。