求助：字符串连接问题，感谢！

吴思渝 · 发表于 2022-12-31 16:56

清风客98 · 发表于 2022-12-31 17:10

本帖最后由清风客98 于 2022-12-31 17:12 编辑

dim x(2)
for i=2 to 7
x(0)=cells(i,1)
x(1)=cells(i,2)
debug.print join(x,",")
next

dambcer · 发表于 2022-12-31 17:13

函数就好了，

gwjkkkkk · 发表于 2022-12-31 18:27

请楼主参考附件。。。

tmplinshi · 发表于 2022-12-31 20:09

数组公式

=TEXTJOIN(",", TRUE, IF($D2=表1[工号],表1[字号],""))

复制代码

nicleyuan · 发表于 2022-12-31 20:59

Sub demoII()
[e2:e10000].ClearContents
Dim arr, brr, x, i, m
arr = [a1].CurrentRegion
brr = [d1].CurrentRegion
For i = 2 To UBound(brr)
      For x = 2 To UBound(arr)
         If brr(i, 1) = arr(x, 1) Then
            brr(i, 2) = brr(i, 2) & "," & arr(x, 2)
         End If
      Next
      If Left(brr(i, 2), 1) = "," Then brr(i, 2) = Replace(brr(i, 2), ",", "", 1, 1)
Next
[d1].Resize(UBound(brr), 2) = brr
End Sub

nicleyuan · 发表于 2022-12-31 21:00

学习。。。。。

吴思渝 · 发表于 2022-12-31 21:04

感谢层主，我没表达清楚，跟我需求有点出入，我想查D列工号，但工号不顺号，可以调整下吗？谢谢！

吴思渝 · 发表于 2022-12-31 21:06

gwjkkkkk 发表于 2022-12-31 18:27
请楼主参考附件。。。

感谢层主，我没表达清楚，跟我需求有点出入，我想查D列工号，但工号不顺号，可以调整下吗？谢谢！

gwjkkkkk · 发表于 2022-12-31 21:16

吴思渝发表于 2022-12-31 21:06
感谢层主，我没表达清楚，跟我需求有点出入，我想查D列工号，但工号不顺号，可以调整下吗？谢谢！

请楼主参考。。。

		自动登录	找回密码
密码			免费注册

[求助] 求助：字符串连接问题，感谢！

评分

评分

评分

评分

评分

评分