[已解决]请教正则表达式相关代码？？

jian82372387

汇总表根据名单工作表的名字使用正则表达式，将A列的姓名提取到B列相应位置。下面是我尝试写的代码：代码运行join函数那里报错，是啥问题啊
Sub 汇总()
Dim ss As Range, 区域 As Range, n
arr = Sheets("名单").Range("a2", Cells(Rows.Count, 1).End(xlUp))
a = Join(arr, "|")
Set reg = CreateObject("vbscript.regexp")
Set 区域 = Range("a2", Cells(Rows.Count, 1).End(xlUp))

For Each ss In 区域
With reg
    .Global = True
    .Pattern = "a"
        Set sj = .Execute(ss)
        For i = 0 To sj.Count - 1
            n = sj(i) & "、" & Chr(13) & n
        Next i
        ss.Offset(0, 1) = n
        n = ""
End With
Next ss
End Sub

最佳答案

月排行榜 / 总排行榜

cutecpu

2023-2-22 17:23

jian82372387 发表于 2023-2-22 16:38
请帮忙看一下，谢谢

arr = Sheets(2).Range("a2", Sheets(2).Cells(Rows.Count, 1).End(xlUp))

跳转到最佳答案楼层

cutecpu

a = Join(Application.Transpose(arr), "|")

jian82372387

cutecpu 发表于 2023-2-22 14:53
a = Join(Application.Transpose(arr), "|")

按你这修改后，变为arr = Sheets("名单").Range("a2", Cells(Rows.Count, 1).End(xlUp)) 这句代码报错了

cutecpu

jian82372387 发表于 2023-2-22 16:24
按你这修改后，变为arr = Sheets("名单").Range("a2", Cells(Rows.Count, 1).End(xlUp)) 这句代码报错了
...

是喔~~
您把修改後的附件上傳，我幫您看看

jian82372387

cutecpu 发表于 2023-2-22 16:36
是喔~~
您把修改後的附件上傳，我幫您看看

请帮忙看一下，谢谢

cutecpu

jian82372387 发表于 2023-2-22 16:38
请帮忙看一下，谢谢

arr = Sheets(2).Range("a2", Sheets(2).Cells(Rows.Count, 1).End(xlUp))

jian82372387

cutecpu 发表于 2023-2-22 17:23
arr = Sheets(2).Range("a2", Sheets(2).Cells(Rows.Count, 1).End(xlUp))

请问合并完成，如何把最后一个名字后面多余的顿号删掉啊？？

cutecpu

jian82372387 发表于 2023-3-1 10:50
请问合并完成，如何把最后一个名字后面多余的顿号删掉啊？？

http://www.excelpx.com/forum.php?mod=viewthread&tid=471692

jian82372387

cutecpu 发表于 2023-3-1 13:21
http://www.excelpx.com/forum.php?mod=viewthread&tid=471692

删不了，是不是因为提取代码里面有强制换行符的原因

cutecpu

jian82372387 发表于 2023-3-2 10:09
删不了，是不是因为提取代码里面有强制换行符的原因

sub demo()
a=[a1].Currentregion
for i=1 to ubound(a)
a(i,1) = application.clean(a(i,1))
  If right(a(i,1),1)="、" then
    a(i,1)=left(a(i,1),len(a(i,1))-1)
  End if
next
[a1].resize(i-1)=a
End sub