有那位老师能帮忙一下！

jophen

现在录入表左边蔬菜栏的基本可以，但L3到N3的数据还不能备分到工作表3（其他汇总）里，备份后要清除L3:N3的值方便下次输入。原来的贴好像沉了，在此特别感谢3190496160大大的帮助！

ykcbf1100

备份其它。附件供参考。。。

ykcbf1100

参与一下。。。

1. Sub ykcbf()  '//2024.4.11
   
2.     With Sheets("录入")
   
3.         r = .Cells(Rows.Count, "l").End(3).Row
   
4.         arr = .[l3].Resize(r - 2, 3)
   
5.         .[l3].Resize(r - 2, 3) = ""
   
6.     End With
   
7.     With Sheets("其它汇总")
   
8.         r = .Cells(Rows.Count, "a").End(3).Row
   
9.         .Cells(r + 1, 2).Resize(UBound(arr), 3) = arr
   
10.         For i = 1 To UBound(arr)
    
11.             .Cells(i + 1, 1) = i + r - 1
    
12.         Next
    
13.     End With
    
14.     MsgBox "备份完毕！"
    
15. End Sub
    
16. 
    

复制代码

jophen

ykcbf1100 发表于 2024-4-11 07:55
备份其它。附件供参考。。。

好像用不了

jophen

那位在大神帮忙一下！

yanglinzi

,把这句删除就能用。

jophen

yanglinzi 发表于 2024-4-12 20:44
,把这句删除就能用。

也不可以用

jophen

帖子沉了，自顶一下