[已解决]表1录入数据保存于表2

白耀凡

文档.rar (9.02 KB, 下载次数: 97)

2012-8-26 18:50 上传

点击文件名下载附件
一切尽在不言中

位置

A

类型

B

属性

C

数量

100

file:///C:/Users/hp/AppData/Local/Temp/msohtmlclip1/01/clip_image001.gif

     
   AA  工序  产出1  产出时间1  产出2  产出时间2  产出3  产出时间3     
   数据  90  2012-8-10  12:00  80  2012-8-11  12:00  70  2012-8-12  12:00     
   问题  A+  B+  C+     我想点击录入按钮时，表格内的数据保存在表2

位置

类型

属性

数量

产出1

产出时间1

问题1

产出2

产出时间2

问题2

产出3

产出时间3

问题3

A

B

C

100

90

2012-8-10  12:00

A+

80

2012-8-11  12:00

B+

70

2012-8-12  12:00

C+

最佳答案

月排行榜 / 总排行榜

hrpotter

2012-8-26 19:21

这样吗？录入按钮指定下面的宏

1. Sub 录入()
   
2.     Dim i As Long, j As Long
   
3.     Application.ScreenUpdating = False
   
4.     With Sheets("数据")
   
5.         i = .Range("a65536").End(xlUp).Row + 1
   
6.         .Rows(2).Copy
   
7.         .Rows(i).PasteSpecial xlPasteFormats
   
8.         Application.CutCopyMode = False
   
9.         For j = 2 To 8 Step 2
   
10.             .Cells(i, j / 2) = Cells(1, j)
    
11.             Cells(1, j) = ""
    
12.         Next
    
13.         For j = 1 To 3
    
14.             .Cells(i, 2 + 3 * j) = Cells(3, 2 * j + 1): Cells(3, 2 * j + 1) = ""
    
15.             .Cells(i, 3 + 3 * j) = Cells(3, 2 * j + 2): Cells(3, 2 * j + 2) = ""
    
16.             .Cells(i, 4 + 3 * j) = Cells(4, 2 * j + 1): Cells(4, 2 * j + 1) = ""
    
17.         Next
    
18.     End With
    
19.     Application.ScreenUpdating = True
    
20.     MsgBox "数据保存成功！"
    
21. End Sub

复制代码

跳转到最佳答案楼层

白耀凡

感觉贴出来的图有点乱了，不好意思，请大家看附件

我点击按钮时数据表格内数据从表“录入”保存到表“数据”，并删除表格内数据。

谢谢

hrpotter

这样吗？录入按钮指定下面的宏

1. Sub 录入()
   
2.     Dim i As Long, j As Long
   
3.     Application.ScreenUpdating = False
   
4.     With Sheets("数据")
   
5.         i = .Range("a65536").End(xlUp).Row + 1
   
6.         .Rows(2).Copy
   
7.         .Rows(i).PasteSpecial xlPasteFormats
   
8.         Application.CutCopyMode = False
   
9.         For j = 2 To 8 Step 2
   
10.             .Cells(i, j / 2) = Cells(1, j)
    
11.             Cells(1, j) = ""
    
12.         Next
    
13.         For j = 1 To 3
    
14.             .Cells(i, 2 + 3 * j) = Cells(3, 2 * j + 1): Cells(3, 2 * j + 1) = ""
    
15.             .Cells(i, 3 + 3 * j) = Cells(3, 2 * j + 2): Cells(3, 2 * j + 2) = ""
    
16.             .Cells(i, 4 + 3 * j) = Cells(4, 2 * j + 1): Cells(4, 2 * j + 1) = ""
    
17.         Next
    
18.     End With
    
19.     Application.ScreenUpdating = True
    
20.     MsgBox "数据保存成功！"
    
21. End Sub

复制代码

白耀凡

多谢！

斗笠渔翁

学习                          

gemini8806

hrpotter 发表于 2012-8-26 19:21
这样吗？录入按钮指定下面的宏

老师，我看到您解决的一个帖子跟我的问题相似，能否帮我看看这个问题
http://www.excelpx.com/thread-302290-1-1.html