提取符合条件的数据

金阿腾

提取符合条件的数据.rar (325 Bytes, 下载次数: 0)

昨天 09:38 上传

点击文件名下载附件

提取符合条件的数据，说明在文件中，请老师帮助！谢谢！！

常平

附件供参考。。。

提取符合条件的数据.zip (1.32 MB, 下载次数: 0)

昨天 09:38 上传

点击文件名下载附件

清晨无雨

。。。。。。

海艄公

彣炆

远山暮霭

• Public Sub 提取()
  
•     Dim arr, brr, i&, j&, n As Boolean, k&, t As Double
  
•     t = Timer
  
•     With Sheet1
  
•         arr = .Range("a1").CurrentRegion.Value
  
•         brr = .Range("k1").CurrentRegion.Value
  
•     End With
  
•         ReDim crr(1 To UBound(arr), 1 To UBound(arr, 2))
  
•         For i = 2 To UBound(arr)
  
•             n = True
  
•             For j = 1 To UBound(arr, 2)
  
•                If InStr(brr(2, j), arr(i, j)) = 0 Then
  
•                     n = False
  
•                 Exit For
  
•                End If
  
•             Next
  
•             If n Then
  
•                 k = k + 1
  
•                 For j = 1 To UBound(arr, 2)
  
•                     crr(k, j) = arr(i, j)
  
•                 Next
  
•            End If
  
•         Next
  
•     With Sheet1.Range("k3").Resize(k, UBound(arr, 2))
  
•             .Clear
  
•             .Value = crr
  
•             .Borders.LineStyle = 1
  
•             .HorizontalAlignment = xlCenter
  
•            .VerticalAlignment = xlCenter
  
•             .Cells(1, 1).Select
  
•     End With
  
• 
  
•     MsgBox Format(Timer - t, "0.000") & "s"
  
• End Sub
  

提取符合条件的数据.zip (790.91 KB, 下载次数: 0)

昨天 09:38 上传

点击文件名下载附件

孞琞

渣，感觉vba没函数熟练。今天偶尔逛逛。q群活动

情圣解说

函数和vba都不太熟练