[已解决]不同工作表同步增加记录

yjr3032570

7-4.rar (10.67 KB, 下载次数: 20)

2012-7-6 09:01 上传

点击文件名下载附件

在同一个工作簿中我有6个工作表：Sheet1---Sheet6，我想在Sheet1工作表中16行增加一条记录（3列），其他5个工作表的同一行上也自动增加一条相同的记录，应如何设置呢，我想：

1、在Sheet1工作表中增加一个按钮写上宏代码，增加记录后点击一下，将Sheet1工作表中增加的记录复制到其它的5个工作表中

2、在其它的工作表中用数组函数对应Sheet1工作表下拉形成

但不知如何写，请高手帮忙，谢谢！

最佳答案

月排行榜 / 总排行榜

ws278106483

2012-7-6 09:35

1. 
   
2. Sub sru()
   
3. Dim x As Integer
   
4. x = Sheets.Count
   
5. Dim y As Integer
   
6. y = Sheets(1).Range("a65536").End(xlUp).Row
   
7. For x = 2 To x
   
8.   Sheets(x).Range(Sheets(x).Cells(y, 1), Sheets(x).Cells(y, 3)).Value = Sheets(1).Range(Sheets(1).Cells(y, 1), Sheets(1).Cells(y, 3)).Value
   
9. Next x
   
10. End Sub
    
11. 
    

复制代码

跳转到最佳答案楼层

ws278106483

Sub sru()
Dim x As Integer
x = Sheets.Count
Dim y As Integer
y = Sheets(1).Range("a65536").End(xlUp).Row
For x = 2 To x
  Sheets(x).Range(Sheets(x).Cells(y, 1), Sheets(x).Cells(y, 3)).Value = Sheets(1).Range(Sheets(1).Cells(y, 1), Sheets(1).Cells(y, 3)).Value
Next x

End Sub

ws278106483

1. 
   
2. Sub sru()
   
3. Dim x As Integer
   
4. x = Sheets.Count
   
5. Dim y As Integer
   
6. y = Sheets(1).Range("a65536").End(xlUp).Row
   
7. For x = 2 To x
   
8.   Sheets(x).Range(Sheets(x).Cells(y, 1), Sheets(x).Cells(y, 3)).Value = Sheets(1).Range(Sheets(1).Cells(y, 1), Sheets(1).Cells(y, 3)).Value
   
9. Next x
   
10. End Sub
    
11. 
    

复制代码

ws278106483

楼主觉得好，给最佳哦。呵呵。

yjr3032570

不错，谢谢！
x = Sheets.Count这句能知道当前是几个表，高手！

桃夭888

哎這個其實你只要同時選中多個你想執行操作的工作表標籤，然後對其中之一個工作表執行操作，則選中的幾個工作表就都執行了么，爲什麽一定要寫代碼

请问要增加同步的列数，怎么修改函数？

爱疯

QQ_FA1D20 发表于 2014-12-24 22:59
请问要增加同步的列数，怎么修改函数？

单独发帖吧，说明并上传附件