如何在VBA中编写这个iferror函数？

Question

我试图在列中清理我的数据，这是我写的一个可以应用于整个A列的函数。

任何人都可以帮我写一个宏吗？

Answer 1

你可以从这里开始

 X = np.array([[1],[2],[3]])
 p = np.arange(0, 2+1)  # powers
 X**p  # row vs column vector broadcasts to 2D matrix

并根据您的需要进行调整：

• 将“A1”更改为要从

开始“清理”的列A单元格

• 添加一些额外的检查应该“（”在已检查字符串的前两个位置找到

Answer 2

如果您的第一个值在A7中且公式在B7中，则编写此代码 -

Dim lastrow As Long
lastrow = Range("A500000").End(xlUp).Row

Range("B7").Value = "=MID(A7,2,IFERROR(FIND(""("",A7)-3,LEN(A7)))"
Range("B7:B" & lastrow).FillDown

希望有所帮助！