设为首页收藏本站Access中国

Office中国论坛/Access中国论坛

 找回密码
 注册

QQ登录

只需一步,快速开始

12下一页
返回列表 发新帖
查看: 3727|回复: 10
打印 上一主题 下一主题

[基础应用] 关于excel 的自动增行问题,谢谢

[复制链接]
跳转到指定楼层
1#
发表于 2008-4-26 11:34:57 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
问题如下, 我在工作表1 的A1 单元格内 有1000行数据,我要把数据复制到工作表2 的A1
单元格,我的方法是在工作表2的单元格内写公式 =Sheet1!A1   ,然后下拉复制到1000行
来实现,
但是出现漏洞,如果工作表1出现第1001行数据时,工作表2不会出现。
如何可以实现同步?
小弟菜鸟,很多地方不懂,望各位多多指点。
分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
收藏收藏 分享分享 分享淘帖 订阅订阅
2#
 楼主| 发表于 2008-4-26 11:35:11 | 只看该作者
如果我把工作表2的公式复制到2000行,空白的行(如1002行)会显示0。

点击这里给我发消息

3#
发表于 2008-4-26 22:57:57 | 只看该作者
0值可以隐藏
4#
 楼主| 发表于 2008-4-27 11:44:10 | 只看该作者
有什么办法可以设置自动增行,不需要每行都要加公式上去?

点击这里给我发消息

5#
发表于 2008-4-27 12:03:56 | 只看该作者
这只能用代码了
6#
 楼主| 发表于 2008-4-27 21:42:50 | 只看该作者
小妖版主有做写过吗?能不能指点一下。

点击这里给我发消息

7#
发表于 2008-4-28 09:56:13 | 只看该作者
用代码写
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 编辑 ]
8#
发表于 2008-4-29 23:40:14 | 只看该作者
在工作表2加上代码后不能实现自动增行,请小妖版主说明步骤,我正好要用此功能.

点击这里给我发消息

9#
发表于 2008-4-30 09:46:53 | 只看该作者
可以把代码加在事件里,这样就不需要增加按扭或用快捷键了.
10#
发表于 2008-4-30 11:06:53 | 只看该作者
如果不填充公式,加了代码后仍然不会自动增行录入呀!
您需要登录后才可以回帖 登录 | 注册

本版积分规则

QQ|站长邮箱|小黑屋|手机版|Office中国/Access中国 ( 粤ICP备10043721号-1 )  

GMT+8, 2024-11-26 00:44 , Processed in 0.090031 second(s), 35 queries .

Powered by Discuz! X3.3

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表