查找与替换

追梦竹叶青

将A列中的内容替换成B列中的内容

【求帮助】：如上图所示，将A列中的内容替换成B列中的内容。A列中的内容是一些数字串，把这些字符串替换成5位数的字符串，不够的用“0”补充，同时在每个数字串前加“L”，并将空格替换成“，”。

cbtaja

使用宏：

1. Sub cbtaja()
   
2. arr = Range("A1").CurrentRegion.Resize(, 1)
   
3. If Not IsArray(arr) Then Exit Sub
   
4. For m = 2 To UBound(arr)
   
5.     a = Split(arr(m, 1), "~")
   
6.     For i = 0 To UBound(a)
   
7.         b = Split(Trim(a(i)), " ")
   
8.         For j = 0 To UBound(b)
   
9.             b(j) = Format(b(j), "L00000")
   
10.         Next
    
11.         a(i) = Join(b, ",")
    
12.     Next
    
13.     arr(m, 1) = Join(a, "~")
    
14. Next
    
15. Range("B1").Resize(m - 1, 1) = arr
    
16. End Sub
    

复制代码

mjjsum

基于每一组数字都是4位数的，你先用下面的公式拖拽，然后再针对不是4位数的 进行手动修改？
="L0"&SUBSTITUTE(SUBSTITUTE(A2,"~","~L00")," ",",L0")&","

追梦竹叶青

mjjsum 发表于 2015-1-11 13:26
基于每一组数字都是4位数的，你先用下面的公式拖拽，然后再针对不是4位数的 进行手动修改？
="L0"&SUBSTIT ...

谢谢你的分享，谢了，这样工作量还是挺大的！和按CTRL+H,一个一个的替换差不多。

追梦竹叶青

cbtaja 发表于 2015-1-11 12:33
使用宏：

@极速蜗牛，谢谢极速蜗牛，已经测试过了，一切OK！【举一反三】1、将"L"改为其它字母，只需将”L00000"中的"L"替换即可。2、如果需要替换C列的内容到D列，需要改变语言中的哪些关键字呢!

追梦竹叶青

@极速蜗牛：谢谢极速蜗牛，已经测试过了，一切OK！
【举一反三】1、将"L"改为其它字母，只需将”L00000"中的"L"替换即可。2、如果需要替换C列的内容到D列，需要改变语言中的哪些关键字呢？

cbtaja

追梦竹叶青 发表于 2015-1 -10 22:46
@极速蜗牛：谢谢极速蜗牛，已经测试过了，一切OK！
【举一反三】1、将"L"改为其它字母，只需将”L00000"中 ...

第2句的末尾添加字符：
.Offset(0,1)
倒数第2句中的B1改成D1

追梦竹叶青

cbtaja 发表于 2015-1-11 12:33
使用宏：

【举一反三】1、将"L"改为其它字母，只需将”L00000"中L改为其它字母即可，在我测试的时候，“A、B、F、I、J、K、L、O、P、R、T、U、V、X、Z”，可以得到想要的结果，而“C、D、E、G、H、M、N、Q、S、W、Y”这些字母就不能得到想要的结果，这是为什么呢？如果想要替换成“C、D、E、G、H、M、N、Q、S、W、Y”这些字母，如何实现能。求高手指点。@cbtaja@极速蜗牛

cbtaja

追梦竹叶青 发表于 2015-1-12 23:47
【举一反三】1、将"L"改为其它字母，只需将”L00000"中L改为其它字母即可，在我测试的时候，“[/backcolo ...

把符号写在Format函数之外：
b(j) = "L" & Format(b(j), "00000")

追梦竹叶青

cbtaja 发表于 2015-1-13 14:23
把符号写在Format函数之外：
b(j) = "L" & Format(b(j), "00000")

多谢@极速蜗牛，这次测试了，一切ok。【小小遗漏】将A列中的内容替换成B列中的内容，在B列中的最后的一个字符后应有一个","，这个该如何处理呢？