工作中用到的excel小技巧

  有时候在编辑excel时，出现了一些不想要的字符，如想删除掉文字前的'1、'、'2、'、'3、'... ...
  逐个删除或替换比较麻烦，此时可使用vba
  我现在用的office 2013,可以打开excel后按alt+f11按钮，然后会弹出vba窗口，双击需要编辑的sheet表（如sheet1）,
  然后在空白界面输入代码并运行即可。
  代码如下：

Sub th()
    Cells.Replace What:="1、", Replacement:=""
    Cells.Replace What:="2、", Replacement:=""
    Cells.Replace What:="3、", Replacement:=""
End Sub

  
     这种方法对于替换字符量小的时候可以用，保存后可以多次利用，但字符多时效率就很低了，如要替换'1、~100、'
    或多个字符'！@#￥%……&*（）'等
    此时可使用循环语句：

Sub del() '定义del函数
    For x = 1 To 11 'x是1到11的变量
        txt = Mid("1234567890、", x, 1) 'txt是从字符串"1234567890、"中第x个字符开始取的1个字符
       Cells.Replace What:=txt, Replacement:="" '单元格替换函数从what替换到replacement
    Next x 'x循环
End Sub

'Mid（str,x,y）:str:要截取的字符串 x:从第几位开始 y:截取几个字符

执行上面的程序就能把'1、2、3、~100、'这些字符去掉了，同样的方法也能替换'！@#￥%……&*（）'等字符。