活动表格单元格中的循环

活动表格单元格中的循环

我现在正在使用以下代码从活动单元的顶部进行工作:

Selection.EndKey Unit:=wdLine
Selection.TypeText Text:=", "
Selection.Delete Unit:=wdCharacter, Count:=1

我需要它循环直到活动单元格的末尾。有什么建议吗?


我正在尝试创建一个宏,它获取一系列项目并将它们全部放在同一行上,用逗号和空格分隔。

示例 1 2 3

1、2、3

因为每个项目的长度都不同,所以我决定从表格底部开始向上操作。有没有办法让我循环脚本直到活动表格单元格中的内容结束?我只想将其应用于我正在处理的表格单元格。

我尝试循环的脚本:

Selection.HomeKey Unit:=wdLine
Selection.TypeBackspace
Selection.TypeText Text:=", "

我们也欢迎您提出其他建议。

答案1

也许只需使用选择.替换方法。

此行将用逗号+空格替换当前选择中的所有空格:

选择.替换内容:=“”,替换:=“,”

相关内容