复制完数据后如何清空复制过的数据

SCWYZJ

求助:VBA把A表按条件复制数据到B表，然后清空A表复制过的数据，（详见附件），烦请大神老师帮忙看看，如何写。谢谢

ykcbf1100

附件供参考。。。

ykcbf1100

1. Sub ykcbf()    '//2025.3.30
   
2.     With Sheets("B")
   
3.         r = .Cells(Rows.Count, 2).End(3).Row
   
4.         k = r - 4
   
5.     End With
   
6.     Set Rng = Sheets("A").[b5:n9]
   
7.     arr = Rng.Value
   
8.     ReDim brr(1 To UBound(arr), 1 To UBound(arr, 2))
   
9.     ReDim crr(1 To UBound(arr), 1 To UBound(arr, 2))
   
10.     For i = 1 To UBound(arr)
    
11.         If arr(i, 10) <> Empty Then
    
12.             m = m + 1
    
13.             brr(m, 1) = Format(m + k, "00000")
    
14.             For j = 2 To UBound(arr, 2)
    
15.                 brr(m, j) = arr(i, j)
    
16.             Next
    
17.         Else
    
18.             n = n + 1
    
19.             crr(n, 1) = Format(n, "00000")
    
20.             For j = 2 To UBound(arr, 2)
    
21.                 crr(n, j) = arr(i, j)
    
22.             Next
    
23.         End If
    
24.     Next
    
25.     Rng.ClearContents
    
26.     Rng.Value = crr
    
27.     Sheets("B").Cells(r + 1, 2).Resize(m, UBound(arr, 2)) = brr
    
28.     MsgBox "OK！"
    
29. End Sub
    

复制代码

SCWYZJ

ykcbf1100 发表于 2025-3-30 19:04

老师，辛苦了，但是还有点小问题，就是保存数据后，A表多出的序号还在（见图）

SCWYZJ

效果如图，麻烦老师再看看

ykcbf1100

SCWYZJ 发表于 2025-3-31 08:53
效果如图，麻烦老师再看看

我这里正常的。

lizhipei78

比较简单的题目

lizhipei78

WPS 打开

按指定字段条件判断后复制数据并清空复制过的数据.rar (13.33 KB, 下载次数: 2)

2025-3-31 13:20 上传

点击文件名下载附件

SCWYZJ

ykcbf1100 发表于 2025-3-31 12:21
我这里正常的。

你多点一次按钮，试试

ykcbf1100

SCWYZJ 发表于 2025-3-31 13:37
你多点一次按钮，试试

为什么要多点一次呢？啥操作？