如何同时清除EXCEL表格中同一排文字中的第一个字

2024-11-06 21:45:28

推荐回答（4个）

回答（1）：

提供一个不需添加辅助列的方法：按Alt+F11进入VBA编辑器，在左上方“工程”栏空白处右键-插入模块，在右侧代码编辑区域复制粘贴下方代码后，按F5即可实现删除指定行每一单元格内容的第1个字。

Sub removeStr()

  Dim rowNO As Long    '需要处理的行号

  rowNO = 1        '这里假设处理第1行

   With ActiveSheet    '处理活动工作表

     For i = 1 To .UsedRange.Columns.Count    '遍历每一列

       .Cells(rowNO, i).Value = Right(.Cells(rowNO, i).Value, Len(.Cells(rowNO, i).Value) - 1)

     Next

   End With

End Sub

回答（2）：

在这一列（假设是A1）后添加一个新列（假设是B1），那么B1的公式为：=RIGHT(A1,LEN(A1)-1),在B1右下角看到有个十字的鼠标指针，往下拉就行了，拉完之后，选择B中所有列，复制，然后选择性粘贴，粘贴数值就可以了，组后把A列删除；
注意：计算结果必须放在不同的列中，否则会计算错误！

回答（3）：

=MID(A1,2,LEN(A1))
=RIGHT(A1,LEN(A1)-1)

回答（4）：

=RIGHT(A1,LEN(A1)-1)