查找与替换

cbtaja

以2楼代码为例，在第13句末尾添加字符：
& ","

追梦竹叶青

cbtaja 发表于 2015-1-14 03:34
以2楼代码为例，在第13句末尾添加字符：
& ","

好，太圆满了。向高手学习，继续关注！

追梦竹叶青

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

【查找与替换进阶】经过多次求教，问题已解决。如果不在同一个工作表里替换内容，而是以原工作表为基础，得到一个新的工作表。如图： sheet2是通过
#001        Sub cbtaja ()
#002        arr = Worksheets("Sheet1").Range("A1").CurrentRegion.Resize(, 1).Offset(0, 0)
#003        If Not IsArray(arr) Then Exit Sub
#004        For m = 2 To UBound(arr)
#005            a = Split(arr(m, 1), "~")
#006            For i = 0 To UBound(a)
#007                b = Split(Trim(a(i)), " ")
#008                For j = 0 To UBound(b)
#009                    b(j) = "L" & Format(b(j), "00000")
#010                Next
#011                a(i) = Join(b, ",")
#012            Next
#013            arr(m, 1) = Join(a, "~") & ","
#014        Next
#015        Range("A1").Resize(m - 1, 1) = arr
#016        End Sub
更改第2行的Offset(0, 0)和第15行的Range("A1")得到。
有没有更快捷的方法，一次处理完毕呢？

cbtaja

追梦竹叶青 发表于 2015-1-16 23:08
【查找与替换进阶】经过多次求教，问题已解决。如果不在同一个工作表里替换内容，而是以原工作表为基础， ...

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

复制代码

追梦竹叶青

cbtaja 发表于 2015-1-17 16:19

非常感谢，向@极速蜗牛老师学习，努力学习，天天向上！

luoyho

学习了，谢谢！