跟你你的要求修改了
你试试吧
用公式需要分3步完成你的要求
假设你的数据在A列,
第一步:在B1输入以下公式向下拖拽填充至最后一行有数据的地方.
=IF(ISNUMBER(FIND("
",A1)),LEFT(A1,FIND("
",A1)-1))
第二步选中整个B列,在B1单元格的位置点鼠标右键选复制,再在原地点右键,选
选择性粘贴,弹出窗口后选数值,点确定,
第三步,选中整个B列.在B1单元格的位置点鼠标右键选复制.然后在A1单元格里点右键选粘贴即可
用VBA
的话
代码如下:
Sub
截取4个空格之前()
endrow
=
Range("A65536").End(xlUp).Row
For
i
=
1
To
endrow
a
=
InStr(Range("A"
&
i).Value,
"
")
If
a
>
0
Then
Range("A"
&
i)
=
Left(Range("A"
&
i),
a
-
1)
Next
End
Sub
温馨提示:答案为网友推荐,仅供参考