Question

Excel删除指定字母前/后所有内容?有什么办法?

列如
123465.A.987654
987654.A.123465
............................(忽略很多行)

怎么样删除A字母前/后的内容.因为A前后的内容都不同.不能用替换功能去除..?

Answer 1

1. 根据表2的数据，确定表1中哪些是重复的，下图是表2数据；

2. 在表1的辅助列输入公式：=MATCH(B2,Sheet2!B:B,0)，并下拉填充，结果为序号的为重复数据；

   

3. 定位--定位条件--公式--去除错误前面的勾；

4. 确定后，数字部分被选中；

   

5. 删除--删除工作表行；

   

6. 删除后即得到不重复的数据；

7. 再删除辅助列中的公式，就是想要的结果。

   

Answer 2

按下ALT+F11转换到VBA编辑器，双击左侧资源管理器中的ThisWorkBook，在右侧编辑区域中将下列代码粘贴进去，执行其中的“Replace_Cmd()”。
以下代码功能：在当前列中进行模糊查找，并将查找到的列的值进行替换。

'以下为需要复制的代码：

Sub ReplaceStr(FindStr As String, RepStr As String)

'模糊向下 批量替换
Dim i As Long
Dim j As Long
Dim c As Long
Dim n As Long
Dim Str1 As String

j = ActiveCell.Row '在第几行
c = ActiveCell.Column '在第几列
n = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row '最后一行

For i = j To n
Str1 = CStr(Cells(i, c).Value)
If InStr(1, Str1, FindStr) > 0 Then '找到后将单元格内容全部替换
Cells(i, c).Value = RepStr
End If
Next

End Sub

Sub Replace_Cmd()

'批量替换，查找内容为模糊，替换目标单元格全部内容
'以下语句表示将把当前列中所有含有字符“A”的单元格替换为一个字符“A”。
'前一个A为要查找的内容，后一个A为要替换的内容，请自行修改，字符数不定。
'修改时请保留引号！

Call ReplaceStr("A", "A")

End Sub

Answer 3

你A的前后都有一个点
那你选中这一列数据，菜单，数据，分列，分隔符号，自定义 . （输入你那个点）
完成
即可
另一种方法是用公式
=MID(A1,FIND(".",A1)+1,FIND("@",SUBSTITUTE(A1,".","@",2))-FIND(".",A1)-1)

Answer 4

如果删除A后面的可以在后面一列输入=LEFT(A1,FIND("A",A1,1)-1)
如果删除后面的=RIGHT(A1,LEN(A1)-FIND("A",A1,1)-1)
就可以了

Answer 5

单元格中只要A吗？在A1单元格输入A后，下拉复制即可。