字符串的比较

yhy95331

c列的每一个字符串和A列a5:a14的字符串逐个进行比较，如果字符串比较重复>0，则将A列数据用（，）连结起来，放在g列，列求助高手帮忙,下面代码执行为空。



Sub ReNumber()
Dim Arr, brr, j&, i&, x As String, y As String
Arr = [A5:A14]
       For i = 1 To UBound(Arr)
       x = Arr(i, 1)

  brr = Range("c5:c" & [c10000].End(3).Row)
       For j = 1 To UBound(brr)
    y = brr(j, 1)
       If Sgn(InStr(x, y)) > 0 Then
          t = t & "," & x
          End If
          Next
          Next
                 [g5].Resize(UBound(brr), 1) = t
      End Sub

shiruiqiang

写的比较急，新手路过

taller

grf1973

关键是要搞清 “字符串比较重复>0” 是何意

grf1973

换个没有三重循环的怪思路。

yhy95331

grf1973 发表于 2023-2-8 11:24
关键是要搞清 “字符串比较重复>0” 是何意

A列是固定的几个字符串，C列的每个字符串和A列字符串比较，如果有重复的，就将A列字符串重复的几个串联起来

yhy95331

grf1973 发表于 2023-2-8 11:44
换个没有三重循环的怪思路。

待测试再回复大师

tanglf188

grf1973 发表于 2023-2-8 11:24
关键是要搞清 “字符串比较重复>0” 是何意

估计是用instr判断的

lkqsmxw

Sub ReNumber()
Dim Arr, brr, a As String, j&, i&, x, y, z, zfbj
  Arr = [A5:A14]
  brr = Range("c5:c" & [c10000].End(3).Row)
       For j = 1 To UBound(brr)
       zfbj = ""
        y = brr(j, 1)
        If Len(y) > 0 Then
        For i = 1 To UBound(Arr)
        x = Arr(i, 1)
        For z = 1 To Len(y)
             If InStr(x, Mid(y, z, 1)) > 0 And zfbj Like "*" & x & "*" = False Then '''Sgn(InStr(x, y)) > 0
                 If zfbj = "" Then zfbj = x Else zfbj = zfbj & "," & x: Exit For
          End If
          Next
          Next
          Cells(4 + j, 7) = zfbj
          End If
      Next
End Sub

Sub 清除()

Range("g5:g1000").ClearContents

End Sub