请教各位老师，Replace函数替换空格提示类型不匹配，求教！

炽幻恶魔 · 发表于 2018-9-23 19:03

附件中的表，模块5原本的作用是希望它能将工作簿中所有表格里的空格全部去除，我写了如下代码：
Sub tst()
For Each Sheet In ThisWorkbook.Sheets
a = Sheet.Name
For Each cell In Sheet.Cells
c = cell
b = Trim(Replace(cell, " ", ""))
Next
Next
End Sub

但是在替换到第一个表的第二行第二列单元格的时候就会提示出错，该单元格里是公式，我该怎么改才能让它正常使用？
这是附件：

111.rar (23.69 KB, 下载次数: 7)

chis3 · 发表于 2018-9-23 20:06

你在打什麼啊.....
這不是逐格輸入變量的問題
不懂去錄一錄制也有答案了吧
就一句
Cells.Replace What:=" ", Replacement:="", LookAt:=xlPart

ww87725244 · 发表于 2018-9-23 20:52

Sub tst()
For Each Sheet In ThisWorkbook.Sheets
For Each cell In Sheet.UsedRange.SpecialCells(2)
cell.Replace " ", ""
Next
Next
End Sub

复制代码

炽幻恶魔 · 发表于 2018-9-25 17:30

chis3 发表于 2018-9-23 20:06
你在打什麼啊.....
這不是逐格輸入變量的問題
不懂去錄一錄制也有答案了吧

感谢你的回答，但是代码测试只对当前激活表有效，我是需要它对整个工作簿里所有表都起作用。

炽幻恶魔 · 发表于 2018-9-25 17:31

ww87725244 发表于 2018-9-23 20:52

非常感谢！代码完美解决问题！谢谢！

chis3 · 发表于 2018-9-26 19:25

炽幻恶魔发表于 2018-9-25 17:30
感谢你的回答，但是代码测试只对当前激活表有效，我是需要它对整个工作簿里所有表都起作用。

不就之前加一句 activate就行了

		自动登录	找回密码
密码			免费注册

[求助] 请教各位老师，Replace函数替换空格提示类型不匹配，求教！

评分