如何通过VBA将相同的文本传递给列中指定的no.of单元格

本文介绍了如何通过VBA将相同的文本传递给列中指定的no.of单元格的处理方法，对大家解决问题具有一定的参考价值，需要的朋友们下面随着小编来一起学习吧！ 问题描述 我的数据如下所示。 输入： Loc_id名称 0 hyd HYD001 hyd 0 hyd 0 hyd abc.a ban 0 ban 0 ban Ram pune 0 xyz 0 ban Loc_id名称 0 hyd HYD002 hyd 0 hyd 0 hyd abc.a ban 0 ban 0 ban Ram pune 0 xyz 0 ban 我需要查看以下数据格式 必填项： loc_id名称 HYD001 hyd HYD001 hyd HYD001 hyd HYD001 hyd HYD001禁令 HYD001禁令 HYD001禁令 HYD001 pune HYD001 xyz HYD001禁令 HYD002 hyd HYD002 hyd HYD002 hyd HYD002 hyd HYD002禁令 HYD002禁令 HYD002禁令 HYD002 pune HYD002 xyz HYD002禁令 先谢谢。 我的尝试： 我尝试使用下面的代码。但这段代码是静态工作的。但我的要求是动态更改数据 Sub REPLACE（） 工作表（Sheet1）。列（A）。REPLACE _ 什么：=Abc.a，替换：= HYD001，_ SearchOrder：= xlByColumns，MatchCase：= True End Sub 解决方案 Hi,I have my data as below.input:Loc_id name0 hydHYD001 hyd0 hyd0 hydAbc.a ban0 ban0 banRam pune0 xyz0 banLoc_id name0 hydHYD002 hyd0 hyd0 hydAbc.a ban0 ban0 banRam pune0 xyz0 banI need to see data as below formatRequired Op:loc_idnameHYD001hydHYD001hydHYD001hydHYD001hydHYD001banHYD001banHYD001banHYD001puneHYD001xyzHYD001banHYD002hydHYD002hydHYD002hydHYD002hydHYD002banHYD002banHYD002banHYD002puneHYD002xyzHYD002banThanks in Advance.What I have tried:I have tried with below code.But this code is working statically.But my requirement is to change data DynamicallySub REPLACE()Worksheets("Sheet1").Columns("A").REPLACE _What:="Abc.a", Replacement:="HYD001", _SearchOrder:=xlByColumns, MatchCase:=TrueEnd Sub 解决方案 这篇关于如何通过VBA将相同的文本传递给列中指定的no.of单元格的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持！