关于筛选、复制问题

sampsonpon

如图，关于筛选、复制问题

ykcbf1100

附件供参考。。。

ykcbf1100

用数组更快。

1. Sub ykcbf()  '//2024.3.1
   
2.     r = Me.Cells(Rows.Count, 2).End(3).Row
   
3.     arr = Me.Range("a1:o" & r)
   
4.     ReDim brr(1 To UBound(arr), 1 To 2)
   
5.     st = "Stock missing:"
   
6.     For i = 2 To UBound(arr)
   
7.         If InStr(arr(i, 15), st) Then
   
8.             m = m + 1
   
9.             brr(m, 1) = arr(i, 3)
   
10.             brr(m, 2) = arr(i, 4)
    
11.         End If
    
12.     Next
    
13.     Me.[p2:q1000] = ""
    
14.     Me.[p2].Resize(m, 2) = brr
    
15.     MsgBox "OK！"
    
16. End Sub
    

复制代码

yynrzwh

1. Sub CopyData2()
   
2. 
   
3. With Sheets("ZLWMPICKPRO")
   
4.     ar = .UsedRange
   
5.     ReDim br(1 To 99999, 1 To 2)
   
6.     For i = 2 To UBound(ar)
   
7.         If InStr(ar(i, 15), "Stock missing") Then
   
8.             r = r + 1
   
9.             br(r, 1) = ar(i, 3): br(r, 2) = ar(i, 4)
   
10.         End If
    
11.     Next
    
12.     .Range("p2", .Cells(Rows.Count, "q").End(3)) = ""
    
13.     .Range("p2").Resize(r, 2) = br
    
14. End With
    
15. 
    
16. End Sub
    

复制代码

yynrzwh

sampsonpon

yynrzwh 发表于 2024-3-1 15:23

有两个问题：

1、如图，把P1、Q1表头内容给干掉了


2，如图，当O2:O空白无内容时报错

sampsonpon

ykcbf1100 发表于 2024-3-1 15:16
附件供参考。。。

有两个问题：
1、如图，把代码放到模块里报错


2、如图，当O2:O空白无内容时报错

ykcbf1100

sampsonpon 发表于 2024-3-1 18:34
有两个问题：
1、如图，把代码放到模块里报错

1、这个代码本来就不是在模块里的，Me的意思是你不懂吗？你这样想当然的修改代码，没问题也被你搞出问题来了。
2、O列全部为空的话，你在加一句容错语句就好了。

sampsonpon

ykcbf1100 发表于 2024-3-1 19:09
1、这个代码本来就不是在模块里的，Me的意思是你不懂吗？你这样想当然的修改代码，没问题也被你搞出问题 ...

明白了。非常感谢！