[已解决]用vba清除单元格区域的空白等

心灵有约

清除空白.zip (7.31 KB, 下载次数: 16)

2012-12-12 09:54 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

hwc2ycy

2012-12-12 11:01

1. Sub 清除空白3()
   
2.     Dim iRow&
   
3.     iRow = Range("a" & Rows.Count).End(xlUp).Row
   
4.     With Range("a1:a" & iRow)
   
5.         .Replace "（", "("
   
6.         .Replace "）", ")"
   
7.         .Replace "~*", "×"
   
8.         .Replace " ", ""
   
9.     End With
   
10. End Sub

复制代码

跳转到最佳答案楼层

hwc2ycy

1. Sub 清除空白()
   
2.     Dim arr, iRow&, i&, strTemp
   
3.     iRow = Range("a" & Rows.Count).End(xlUp).Row
   
4.     arr = Range("a1:a" & iRow)
   
5.     For i = LBound(arr) To UBound(arr)
   
6.         strTemp = arr(i, 1)
   
7.         strTemp = Replace(strTemp, " ", "")
   
8.         strTemp = StrConv(strTemp, vbNarrow)
   
9.         strTemp = Replace(strTemp, "*", "×")
   
10.         arr(i, 1) = strTemp
    
11.     Next
    
12.     Range("b1").Resize(UBound(arr), 1) = arr
    
13. End Sub
    

复制代码

hwc2ycy

结果输出到B列了。
如果要输出到A列，把最后一行代码的B1换成A1即可。

hwc2ycy

1. Sub 清除空白2()
   
2.     Range("a:a").Replace "（", "("
   
3.     Range("a:a").Replace "）", ")"
   
4.     Range("a:a").Replace "~*", "×"
   
5.     Range("a:a").Replace " ", ""
   
6. End Sub

复制代码

hwc2ycy

1. Sub 清除空白3()
   
2.     Dim iRow&
   
3.     iRow = Range("a" & Rows.Count).End(xlUp).Row
   
4.     With Range("a1:a" & iRow)
   
5.         .Replace "（", "("
   
6.         .Replace "）", ")"
   
7.         .Replace "~*", "×"
   
8.         .Replace " ", ""
   
9.     End With
   
10. End Sub

复制代码

心灵有约

hwc2ycy 发表于 2012-12-12 11:01

请问如果用于个人宏工作簿，且对当前打开的工作表适用，如何修改语句？谢谢。