代码完善请求

半百

梦醒人 发表于 2024-2-23 11:52
追问一下：
您 的两段代码都可以实现，
我马上脑蒙， 我把sheet2.设置成中文标签了如“收入明细”，

不需要那个!号

ykcbf1100

附件供参考。。。

ykcbf1100

代码如下：

1. Sub ykcbf()   '//2024.2.23
   
2.     Application.ScreenUpdating = False
   
3.     Set ws = ThisWorkbook
   
4.     Set Sh = ws.Sheets("Sheet1")
   
5.     With Sh
   
6.         r = .Cells(Rows.Count, 1).End(3).Row
   
7.         Set Rng = .Cells(7, 1).Resize(r - 6, 4)
   
8.     End With
   
9.     With ws.Sheets("Sheet2")
   
10.         r = .Cells(.Rows.Count, "a").End(xlUp).Offset(1).Row
    
11.         Rng.Copy .Cells(r, 1)
    
12.         Rng.ClearContents
    
13.     End With
    
14.     Application.ScreenUpdating = True
    
15.     MsgBox "OK！"
    
16. End Sub
    

复制代码