这样的按条件提取数据如何弄

SCWYZJ

求助:我在按条件提取复制数据，网上用过豆包什么的都是不行，（见附件）来此请老师帮忙看看，问题出在哪，帮忙改改，谢谢

杨建营

这个相当于是小时与秒，小时与分应该是hh:mm吧。

ykcbf1100

附件供参考。。。

ykcbf1100

1. Sub ykcbf()   '//2025.3.27
   
2.     With Sheets("B")
   
3.         xm = .[c2] & "|" & .[d2]
   
4.         arr = .[a5:n14]
   
5.         ReDim brr(1 To UBound(arr), 1 To UBound(arr, 2))
   
6.         For i = 1 To UBound(arr)
   
7.             If arr(i, 3) & "|" & arr(i, 4) = xm Then
   
8.                 If arr(i, 11) <> Empty Then
   
9.                     m = m + 1
   
10.                     For j = 1 To UBound(arr, 2)
    
11.                         brr(m, j) = arr(i, j)
    
12.                     Next
    
13.                 End If
    
14.             End If
    
15.         Next
    
16.     End With
    
17.     With Sheets("A")
    
18.         .[b5:n14] = Empty
    
19.         .[a5].Resize(m, UBound(arr, 2)) = brr
    
20.     End With
    
21.     MsgBox "OK！"
    
22. End Sub
    
23. 
    

复制代码

ynzsvt

错的地方挺多。。。

nihao123456789

用SQL语句最好

marchwen01

gwjkkkkk

gwjkkkkk

请参考附件。。。

翁知江安

With Sheet1
             sj = Format(.[d2], "hh:ss")
这里不是sheet1，应该是sheet2.按照这个程序，sj="',结果自然不可靠