大师帮我把这个if句精简下

eutu

大师帮我把这个if句精简下            [d11]="总监,组长,...."

            If InStr(gg_arr(j), "总监") = 0 And InStr(gg_arr(j), "组长") = 0 and ......   Then
                      tg = tg & gg_arr(j) & "、"                     ‘能不能把if句精简下，因为现实中d11单元格数据很长的，要不写and很多
            end if


工作薄.rar (13.36 KB, 下载次数: 8)

2020-3-16 19:41 上传

点击文件名下载附件

micch

如果特别多就循环一下，不是特别多，就一个一个写算了。

eutu

就是多，心里想循环，手做不到Sub share_aa()
    Dim arrData(1 To 8000, 1 To 1)
    Range("k2:k980").ClearContents
    rw = Range("a65536").End(xlUp).Row
    arr = Range("a1:a" & rw)
    For i = 1 To UBound(arr)
        tg = ""
        gg_arr = Split(arr(i, 1), "¡￠")
        For j = 0 To UBound(gg_arr)
            fg = 1
            For Each zw In Split([d11].Value, ",")
                If InStr(gg_arr(j), zw) > 0 Then fg = 0: Exit For
            Next
            If fg = 1 Then tg = tg & gg_arr(j) & "、"  
        Next
        arrData(i, 1) = tg
    Next
    Range("k2").Resize(i, 1).Value = arrData
End Sub

YZC51

替换下即可！！

dj5121766

1. Sub 练练手呵呵()
   
2. Dim i As Integer, j As Integer, k As Integer, k1 As Integer
   
3. Dim Arr As Variant, Brr As Variant
   
4. Dim Crr() As String
   
5.     Arr = Split("1,2,3", ",")
   
6.     Brr = [b2:b18]
   
7.     ReDim Crr(1 To UBound(Brr, 1), 1 To UBound(Brr, 2))
   
8.     For i = LBound(Brr, 1) To UBound(Brr, 1) Step 1
   
9.         For j = LBound(Arr) To UBound(Arr) Step 1
   
10.             If InStr(Brr(i, 1), Arr(j)) = 0 Then
    
11.                 k = k + 1
    
12.                 If k > UBound(Arr) Then
    
13.                     k1 = k1 + 1
    
14.                     Crr(k1, 1) = Brr(i, 1)
    
15.                 End If
    
16.             End If
    
17.         Next j
    
18.         k = 0
    
19.     Next i
    
20. End Sub

复制代码

网海遨游

Sub share_aa()
    Dim arrData
    Range("k2:k980").ClearContents
    rw = Range("a65536").End(xlUp).Row
    arr = Range("a2:a" & rw)
    For i = 1 To UBound(arr)
        tg = ""
        gg_arr = Split(arr(i, 1), "、")
        For j = 0 To UBound(gg_arr)
            For Each Rng In Array("总监", "组长") '关键词构成数组
                If InStr(gg_arr(j), Rng) <> 0 Then
                    gg_arr(j) = ""
                Else
                    gg_arr(j) = gg_arr(j)
                End If
            Next Rng
            If gg_arr(j) <> "" Then
                If tg = "" Then
                    tg = gg_arr(j)
                Else
                    tg = tg & "、" & gg_arr(j)
                End If
            End If
        Next j
        arrData = IIf(Right(tg, 1) = "、", Left(tg, Len(tg) - 1), tg)
        Range("k" & i + 2) = arrData
        arrData = ""
    Next
End Sub

327718098

Sub share_aa()
    Dim arrData(1 To 8000, 1 To 1)
    Range("k2:k980").ClearContents
    rw = Range("a65536").End(xlUp).Row
    arr = Range("a2:a" & rw)
    For i = 1 To UBound(arr)
        tg = ""
        zw = [aa1].Value
        gg_arr = Split(arr(i, 1), "、")
        For j = 0 To UBound(gg_arr)
            If brr(gg_arr(j)) = True Then tg = tg & gg_arr(j) & "、"  '此句可不可以精简，因为现实中d11单元格数据很长的，要不写and很多
            
        Next
        arrData(i, 1) = tg
    Next
    Range("k2").Resize(i, 1).Value = arrData
End Sub
Function brr(str) As Boolean
    arr = Split([d11], ",")
    For i = 0 To UBound(arr)
        If InStr(str, arr(i)) = 0 Then
            brr = True
        Else
            brr = False
            GoTo 0
        End If
    Next
0: End Function