Excel vba从字符串中剥离数字

Question

请帮我写一下vba代码，将A列转换为B列，就像图像一样，我试过但不能这样做。

列数据01A + 00022.00我想将其转换为22到B列

Answer 1

将下面的公式放到B1单元格然后拖放

=VALUE(IF(ISNUMBER(SEARCH("+",A1)),MID(A1,SEARCH("+",A1)+1,LEN(A1)-SEARCH("+",A1)),IF(ISNUMBER(SEARCH("-",A1)),MID(A1,SEARCH("-",A1)+1,LEN(A1)-SEARCH("-",A1)),"")))