方法1:使用公式,假设你的文章在第一列,第二列为空
(1)则把焦点定位在第二列第一个单元格中;
(2)在公式栏中输入
=MID(A1,5,LEN(A1))后点击勾按钮,其中的5是清除前5个字后放到新列中。
(3)选中第二列(整列),执行
向下填充
命令
方法2:打开控件工具箱,拖一个按钮在表中任意位置,双击按钮把下面的代码复制到出现的窗口中,注意要覆盖窗口中原有的内容,关闭新窗口回到Excel表中,取消按钮编辑状态(点控件工具栏的铅笔图标)。最后单击按钮完成!
此法方法使用了VBA,如果你对VBA有所了解,我这里的解释就全是废话了。
'执行后把文字放在原来列的右边新建的一列,新列自动插入,不会覆盖原来数据
Private
Sub
CommandButton1_Click()
Dim
temp
Dim
row,
column
column
=
1
'设置文章所在列
row
=
1000
'设置文章行数,是Excel行
Sheet1.Columns(column
+
1).Insert
'插入一列
在原来列的右边,用于存放处理后的文章
For
i
=
1
To
row
temp
=
Sheet1.Cells(i,
column)
Sheet1.Cells(i,
column
+
1)
=
Mid(temp,
5,
Len(temp))
'清除前5个字后放到新列中
Next
End
Sub
方法3:使用分段替换,就是一次换一部分
假设你的那些都在A列,从A1开始
那么在B1写上=LEFT(A1,FIND("组",A1)),再向下填充B列即可得到满足你要求的B列
你试试吧,有什么问题再补充,祝你成功
假设数据在A列
B1输入公式
=mid(a1,900,99999)
双击填充柄。
复制B列后选择性粘贴为值。
你最好能知道有确切多少个字,比如是900个,那就=right(a1,len(a1)-900)就行了