Office中国论坛/Access中国论坛

标题: 关于excel 的自动增行问题,谢谢 [打印本页]

作者: xiaoxiaowai    时间: 2008-4-26 11:34
标题: 关于excel 的自动增行问题,谢谢
问题如下, 我在工作表1 的A1 单元格内 有1000行数据,我要把数据复制到工作表2 的A1
单元格,我的方法是在工作表2的单元格内写公式 =Sheet1!A1   ,然后下拉复制到1000行
来实现,
但是出现漏洞,如果工作表1出现第1001行数据时,工作表2不会出现。
如何可以实现同步?
小弟菜鸟,很多地方不懂,望各位多多指点。
作者: xiaoxiaowai    时间: 2008-4-26 11:35
如果我把工作表2的公式复制到2000行,空白的行(如1002行)会显示0。
作者: pureshadow    时间: 2008-4-26 22:57
0值可以隐藏
作者: xiaoxiaowai    时间: 2008-4-27 11:44
有什么办法可以设置自动增行,不需要每行都要加公式上去?
作者: pureshadow    时间: 2008-4-27 12:03
这只能用代码了
作者: xiaoxiaowai    时间: 2008-4-27 21:42
小妖版主有做写过吗?能不能指点一下。
作者: pureshadow    时间: 2008-4-28 09:56
用代码写
For i = 1 To Sheets("sheet1").Range("a1").CurrentRegion.Rows.Count
For j = 1 To Sheets("sheet1").Range("a1").CurrentRegion.columns.Count
Sheets("sheet2").Cells(i, j).FormulaR1C1 = "=Sheet1!RC"
Next j
Next i
不过个人觉得,实在没必要为了这么点用代码.

[ 本帖最后由 pureshadow 于 2008-4-30 12:44 编辑 ]
作者: 宾临城下    时间: 2008-4-29 23:40
在工作表2加上代码后不能实现自动增行,请小妖版主说明步骤,我正好要用此功能.
作者: pureshadow    时间: 2008-4-30 09:46
可以把代码加在事件里,这样就不需要增加按扭或用快捷键了.
作者: 宾临城下    时间: 2008-4-30 11:06
如果不填充公式,加了代码后仍然不会自动增行录入呀!
作者: pureshadow    时间: 2008-4-30 12:45
这段代码是自动认A列最多行和1行最多列的




欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/) Powered by Discuz! X3.3