Question

怎么编写一个宏程序,实现在一个EXCEL中的两个工作表（sheet1和sheet2）使输入的某一行依次写入到其他表格

怎么编写一个宏程序,实现在一个EXCEL中的两个工作表（sheet1和sheet2）使在sheet1输入的一行数据按行依次写入到sheet2，sheet1只作为数据的输入使用，sheet1里有个按钮，点击即实现（宏程序）！

Answer 1

已上传附件，你可以参考一下代码

追问

Sub refresh()
Dim mrow As Integer, mcol As Integer
mrow = Range("a1").End(xlDown).Row + 1
For mcol = 1 To 11
Cells(mrow, mcol) = Cells(1, mcol)
Next mcol
MsgBox "已成功录入！"
End Sub

你看我这个代码有问题吗！

追答

Range("a1").End(xlDown).Row表示在工作表A列下的第一个非空的单元格的行号。
如果A列第一行下面全为空，则得到表的最后一行。
再加1会溢出
建议使用Range("a65536").End(xlUp).Row

还有你的代码并没有把数据输入到另一个表格里

追问

http://pan.baidu.com/s/1nttbnN7

这个文件你看一下

点击录入时候

怎么在《数据表》这个表里不加入，录不进去了“班次信息”，解释一下，以前可以的糊涂了

追答

已修改代码
新代码在模块refresh里
数据表里的代码已删除
新代码可以输入班次信息
源代码无法输入班次信息的原因未知

已修改代码
新代码在模块refresh里
数据表里的代码已删除
新代码可以输入班次信息
源代码无法输入班次信息的原因未知

已修改代码

新代码在模块refresh里

数据表里的代码已删除

新代码可以输入班次信息

源代码无法输入班次信息的原因未知

Answer 2

你好，您这个宏代码还有吗？我做了个表格统计用，非常需要这个功能，您能给分享一下吗？非常感谢！！！

Answer 3

你用引用函数不就实现了吗？