找到包含 雨 和 满意 2个关键词的对应文件表名字和文件表内的日期

app240913

都是工作中碰到的难题找到包含 雨 和 满意（同时包含） 2个关键词的对应文件表名字和文件表内的日期

quqiyuan

参与一下，仅供参考。。。

quqiyuan

代码如下。。。
Sub test()
    Set wb = ThisWorkbook
    Set sht = wb.Sheets("雨天 满意")
    ReDim brr(1 To 1000, 1 To 2)
    For Each sh In wb.Sheets
        If sh.Name <> sht.Name Then
            arr = sh.UsedRange
            n = 0
            For Each s In arr
                If InStr(s, "雨") Or InStr(s, "满意") Then n = n + 1
                If IsDate(s) Then d = s
            Next
            If n = 2 Then m = m + 1: brr(m, 1) = sh.Name: brr(m, 2) = d
        End If
    Next
    sht.UsedRange.Clear
    sht.[a1:b1] = Array("工作表名称", "日期")
    sht.[a2].Resize(m, 2) = brr
    sht.UsedRange.Columns.AutoFit
    Beep
End Sub

ykcbf1100

附件供参考。。。

ykcbf1100

参与一下。。。

1. Sub ykcbf()  '//2024.9.15
   
2.     ReDim brr(1 To 1000, 1 To 2)
   
3.     For Each sht In Sheets
   
4.         If Val(sht.Name) Then
   
5.             With sht
   
6.                 If InStr(.Cells(2, 2).Value, "雨") And InStr(.Cells(3, 2).Value, "满意") Then
   
7.                     m = m + 1
   
8.                     brr(m, 1) = .Name
   
9.                     brr(m, 2) = .Cells(1, 2).Value
   
10.                 End If
    
11.             End With
    
12.         End If
    
13.     Next
    
14.     [a2].Resize(m, 2) = brr
    
15.     MsgBox "OK！"
    
16. End Sub
    
17. 
    

复制代码