[已解决]清除工作表单元格中的空格代码如何修改

雄鹰

Sub 清除单元格中空格()
for i=1 to sheets.count   '从第一个工作表开始到最后一个工作表
    Sheets(i).Cells.Select    '选择工作表
    Selection.Replace What:=" ", Replacement:="", LookAt:=xlPart, _     '将单元格中的空格替换为空
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
next
End Sub


请行家指导一下。

最佳答案

月排行榜 / 总排行榜

happym8888

2012-1-14 12:58

1. Sub 清除工作表单元格中的空格()
   
2. For i = 1 To Sheets.Count
   
3. Sheets(i).Select
   
4. Cells.Replace What:=" ", Replacement:="", LookAt:=xlPart, SearchOrder:= _
   
5. xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
   
6. 
   
7. Next
   
8. End Sub

复制代码

跳转到最佳答案楼层

happym8888

1. Sub  清除单元格中空格()
   
2. For i = 1 To Sheets.Count
   
3.     Sheets(i).Select
   
4.     Selection.Replace What:="*", Replacement:="", LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
   
5.         ReplaceFormat:=False
   
6. Next
   
7. End Sub

复制代码

'如果不是清空单元格的意思，千万别试，数据丢失别怪我。

雄鹰

happym8888 发表于 2012-1-14 12:14
'如果不是清空单元格的意思，千万别试，数据丢失别怪我。

我要的是清除单元格中数据前、中、后的半角或全角的空格，你能再努力一下不？

happym8888

雄鹰 发表于 2012-1-14 12:24
我要的是清除单元格中数据前、中、后的半角或全角的空格，你能再努力一下不？

能具体一点吗？是在单元格内把_1_2_变成12吗？

happym8888

1. Sub 清除工作表单元格中的空格()
   
2. For i = 1 To Sheets.Count
   
3. Sheets(i).Select
   
4. Cells.Replace What:=" ", Replacement:="", LookAt:=xlPart, SearchOrder:= _
   
5. xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
   
6. 
   
7. Next
   
8. End Sub

复制代码