各工作表1的C列清除了而总表没有更新

jylai

各工作表1的C列清除了而总表没有更新 内有说明

ykcbf1100

真没看明白，表述有问题啊。

jylai

ykcbf1100 发表于 2024-5-1 07:13
真没看明白，表述有问题啊。

1. Sheet1跟Sheet2工作表，凡是C列有出现bounced，自动复制有出现的A，B，C列到总表Bounced去
2.现在把Sheet1的C3清除了，总表Bounced的A8，B8，C8也自动清除
3. Sheet1跟Sheet2工作表，凡是C列有出现bounced，总表Bounced就出现该笔数据，如果Sheet1跟Sheet2工作表，C列bounced被清除，总表Bounced也跟随清除

ykcbf1100

附件供参考。。。

ykcbf1100

参与一下。。。

1. Sub ykcbf()  '//2024.5.1
   
2.     ReDim brr(1 To 10000, 1 To 3)
   
3.     For Each sht In Sheets
   
4.         If InStr(sht.Name, "Sheet") Then
   
5.             With sht
   
6.                 r = .Cells(Rows.Count, 1).End(3).Row
   
7.                 arr = .[a1].Resize(r, 3)
   
8.             End With
   
9.             For i = 2 To UBound(arr)
   
10.                 If arr(i, 3) = "bounced" Then
    
11.                     m = m + 1
    
12.                     For j = 1 To UBound(arr, 2)
    
13.                         brr(m, j) = arr(i, j)
    
14.                     Next
    
15.                 End If
    
16.             Next
    
17.         End If
    
18.     Next
    
19.     With Sheets("bounced")
    
20.         .UsedRange.ClearContents
    
21.         .[a3].Resize(m, 3) = brr
    
22.     End With
    
23.     MsgBox "OK！"
    
24. End Sub
    

复制代码

jylai

ykcbf1100 发表于 2024-5-1 09:39
附件供参考。。。

老师，您太牛了，就是这意思