VBA使用FormulaR1C1find左边空间

我目前有一块VBA代码，查找左边的前两个字符：

Range("EB5").Select ActiveCell.FormulaR1C1 = "=LEFT(Input!R[-2]C[-92],2)" Range("EB5").Select Selection.AutoFill Destination:=Range("EB5:EB" & rownumfinal) 

然而，我想要这个在左边find字符，直到有一个空格。

任何人都可以build议如何做到这一点？

Answer 1

而不是硬编码2作为LEFT函数的第二个参数，使用FIND函数：

 "=LEFT(Input!R[-2]C[-92],FIND("" "",Input!R[-2]C[-92])-1)" 

另外， 学会避免Select 。 这往往是不必要的，也是错误的主要原因。

您的代码可以简化，我认为是一个单一的声明：

 Range("EB5:EB" & rownumfinal).FormulaR1C1 = _ "=LEFT(Input!R[-2]C[-92],FIND("" "",Input!R[-2]C[-92])-1)"