[已解决]产量导入另一表中

yjr3032570

有一工作表，里面有产量输入和产量明细二个单元表，我想当产量表输入完成后将产量导入到明细表中，并将当前产量输入表中的产量清空，以备下次再输入，需要考虑的是输入表中的行数是不固定的，有可能增加也可能减少，我在输入表中放了一个按纽，按纽的代码该如何写，请高手帮忙，谢谢！中检产量表.rar(19.18 KB, 下载次数: 0)2012-9-18 12:15 上传
点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

hrpotter

2012-9-18 15:23

1. Sub 导入()
   
2.     Dim x, y, rng As Range
   
3.     x = MsgBox("是否要把当前表的数据导入明细表？", vbQuestion + vbYesNo)
   
4.     If x = vbYes Then
   
5.         With Sheets("输入表")
   
6.             Set rng = .Range("a2:f" & .Range("a65536").End(xlUp).Row)
   
7.         End With
   
8.         With Sheets("明细表")
   
9.             y = .Range("a65536").End(xlUp).Row + 1
   
10.             rng.Copy .Cells(y, 1)
    
11.             Application.CutCopyMode = False
    
12.         End With
    
13.         rng.ClearContents
    
14.     End If
    
15. End Sub

复制代码

跳转到最佳答案楼层

hrpotter

1. Sub 导入()
   
2.     Dim x, y, rng As Range
   
3.     x = MsgBox("是否要把当前表的数据导入明细表？", vbQuestion + vbYesNo)
   
4.     If x = vbYes Then
   
5.         With Sheets("输入表")
   
6.             Set rng = .Range("a2:f" & .Range("a65536").End(xlUp).Row)
   
7.         End With
   
8.         With Sheets("明细表")
   
9.             y = .Range("a65536").End(xlUp).Row + 1
   
10.             rng.Copy .Cells(y, 1)
    
11.             Application.CutCopyMode = False
    
12.         End With
    
13.         rng.ClearContents
    
14.     End If
    
15. End Sub

复制代码

yjr3032570

不错，不过稍微动了一下，拷贝、清空应从第二行开始，比我的好多了，谢谢，