添加链接
link之家
链接快照平台
  • 输入网页链接,自动生成快照
  • 标签化管理网页链接
Sub 去除特殊字符() Dim n, txArr, tx_s, tx_Asc, s, c, new_s n = 100 '处理的最大行数,可更改 tx_s = "#,*,%,&" '特殊字符,可增加 txArr = Split(tx_s, ",") tx_Asc = "," For i = 0 To UBound(txArr) tx_Asc = tx_Asc & Asc(txArr(i)) & "," Next For i = 1 To n new_s = "" s = Cells(i, 1).Value For j = 1 To Len(s)
...全文