Question

说我有路径：Stack / Over / Flow.Ok

我想将此选定单元格复制X次，但也要解析为＆＃39;。＆＃39;或者角色是什么。并将我自己的自定义添加到最后。最后的结果是：

堆叠/过/流addonwhateveriwant.csv

我尝试了宏录制器，但它似乎是特定于单元格以及我想要自定义消息的内容。

Answer 1

假设只有一个＆＃34;。＆＃34; （或者你的角色可能是什么）源字符串instr()和数组可能是最简单的解决方案。这些方面的东西：

myarray(0)="-addonwhateveriwant.csv"
myarray(1)="-addonwhateveryouwant.csv"
myarray(2)="-addonwhatevereverybodywants.csv"
myarray(...)=...
parsedString=left("Stack/Over/Flow.Ok",instr("Stack/Over/Flow.Ok",".")
For i=lbound(myarray) to ubound(myarray)
    activesheet.cells(i,1)=parsedString & myarray(i)
next i

为了更加酷，你可以替换＆＃34; Stack / Over / Flow.Ok＆＃34;与范围（＆＃34; a1＆＃34;）。值或＆＃34; -addonwhatevereverybodywants.csv＆＃34;范围（＆＃34; c3＆＃34;）。值。这样，下次您还必须执行此任务时，您的代码才能正常工作。

宏录制器只为您提供足够的信息，为您提供搜索互联网的关键字。祝你好运

VBA，Parse结束字符串，将自定义结尾添加到字符串

1 个答案: