<Alt+F11>打开vba编辑器-单击插入模块-复制代码-按F5运行,excel会自动将A列所有的内容删除数字后提取放在列
Sub delnum()
For i = 0 To 9
Columns("A:A").Replace What:=i, Replacement:=""
Next
End Sub
Sub delnum()
For i = 0 To 9
Columns("A:A").Replace What:=i, Replacement:=""
Next
End Sub