替换符合一定条件的部分内容

peterKK · 发表于 2019-5-19 23:16

本帖最后由 peterKK 于 2019-5-20 14:17 编辑

遇到了一个比较奇葩棘手问题，因为汇总表的固定分类字段系统导出的设置问题吧，会导致部分字段词语结束后面还有“ ”（空格，单纯又看不出来），而且这个情况还不少，由于统计的行数上百条，一一去检查、删除多余空格工作量繁杂。最终导致我使用sumifs公式时，因为空格存在与数据底稿符合条件的数据名称对不上。

直接看附件吧，具体不是很好文字表述。麻烦大家了。

ps：不能将空格全部去掉，因为会影响格式，序号前部、序号与汉字中间的都不能去除，只有文字最后的可以

sayhi95 · 发表于 2019-5-20 09:13

复制最小空白，查的替换为空

peterKK · 发表于 2019-5-20 14:16

sayhi95 发表于 2019-5-20 09:13
复制最小空白，查的替换为空

这个我懂啊可是前面的序号序号与汉字之间的空格也全都没有了。这些我在正文中就提及了不能变动的

aleaflin · 发表于 2019-5-20 14:41

本帖最后由 aleaflin 于 2019-5-20 14:52 编辑

干脆用代码吧
Sub 删除A列后空格()
Dim i, j, str
j = Application.WorksheetFunction.CountA(Sheets(1).Columns(1))
For i = 1 To j
Cells(i, 1)=rtrim(cells(i,1))
Next i
End Sub

sayhi95 · 发表于 2019-5-20 14:42

peterKK 发表于 2019-5-20 14:16
这个我懂啊可是前面的序号序号与汉字之间的空格也全都没有了。这些我在正文中就提及了不能变动的

我觉得你直接把要最终问题拿出来比较好，也许可以绕过这个问题了。PQ里有个TRIMEND函数

peterKK · 发表于 2019-5-20 14:55

aleaflin 发表于 2019-5-20 14:41
干脆用代码吧
Sub 删除A列后空格()
Dim i, j, str

谢谢不过不是看很懂输入在vb后 columns那边括号内1提示我错误

peterKK · 发表于 2019-5-20 14:55

sayhi95 发表于 2019-5-20 14:42
我觉得你直接把要最终问题拿出来比较好，也许可以绕过这个问题了。PQ里有个TRIMEND函数

PQ是sql吗？可否就先用这个附件来举例呢然后我再去原稿套公式

aleaflin · 发表于 2019-5-20 14:59

把你要处理的信息贴到这个文件里，点按钮

sayhi95 · 发表于 2019-5-20 15:04

peterKK 发表于 2019-5-20 14:55
PQ是sql吗？可否就先用这个附件来举例呢然后我再去原稿套公式

发你的最终问题上来就好，别自己截取一段然后来问，可能根本就不需要解决你现在头疼的问题

peterKK · 发表于 2019-5-20 15:06

aleaflin 发表于 2019-5-20 14:59
把你要处理的信息贴到这个文件里，点按钮

太感谢了。

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

[已解决] 替换符合一定条件的部分内容

最新热点 /1