- Sub aaa()
- Dim y, ar, i, l
- y = Range("a65536").End(3).Row
- ar = Range("a1:a" & y)
- For i = 1 To UBound(ar)
- l = Len(ar(i, 1))
- For j = 1 To l
- If Mid(ar(i, 1), j, 1) Like "#" Then
- ar(i, 1) = Mid(ar(i, 1), j)
- End If
- Next j
- Next i
- Range("a1").Resize(UBound(ar), 1) = ar
- End Sub
复制代码
|