Excel精英培训网

 找回密码
 注册
数据透视表40+个常用小技巧,让你一次学会!
查看: 6599|回复: 11

[已解决]EXCEL如何实现输入后自动加行

[复制链接]
发表于 2014-12-12 10:40 | 显示全部楼层 |阅读模式
各位大侠:怎样用vb语言在sheet1A列中数据输入,sheet2中自动增加一行,
如图
图1:在sheet1 A5中输入E,
图2:sheet2 A5显示E,同时自动增加一行
(原来A8是F,增加一行后F的位置变为A9)

请出手,谢谢。
最佳答案
2014-12-12 16:06
qq8286 发表于 2014-12-12 15:26
能否把编程写出来学习一下,谢谢

(, 下载次数: 33)
图1.png
图2.png

20141211.zip

6.14 KB, 下载次数: 12

excel精英培训的微信平台,每天都会发送excel学习教程和资料。扫一扫明天就可以收到新教程
发表于 2014-12-12 11:11 | 显示全部楼层
20141211.rar (13.55 KB, 下载次数: 19)
回复

使用道具 举报

 楼主| 发表于 2014-12-12 11:54 | 显示全部楼层
zyouong 发表于 2014-12-12 11:11

为什么如果一开始没有数据,从sheet1A1开始添加数据就不行了呢?
回复

使用道具 举报

发表于 2014-12-12 12:06 | 显示全部楼层
Sub insert_row() ' ' n = 10 '总共插入列数,可修改 m = 100 '插入列数的间隔数,可修改 For i = 1 To n Rows(i * m + i).Select Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove Next i End Sub
回复

使用道具 举报

 楼主| 发表于 2014-12-12 12:10 | 显示全部楼层
我是想在sheet1A1中输入一个文字,然后sheet2A1中出现这个文字,同时在底下增加自动一行,请帮帮忙大侠们
回复

使用道具 举报

发表于 2014-12-12 13:21 | 显示全部楼层
qq8286 发表于 2014-12-12 12:10
我是想在sheet1A1中输入一个文字,然后sheet2A1中出现这个文字,同时在底下增加自动一行,请帮帮忙大侠们

change事件
回复

使用道具 举报

 楼主| 发表于 2014-12-12 14:21 | 显示全部楼层
qh8600 发表于 2014-12-12 13:21
change事件

能否详细点?
回复

使用道具 举报

发表于 2014-12-12 14:57 | 显示全部楼层
qq8286 发表于 2014-12-12 14:21
能否详细点?

就是第一个工作表单元格改变后触发的事件,只要输入改变后,第二个表执行你需要的动作
回复

使用道具 举报

发表于 2014-12-12 15:08 | 显示全部楼层
感觉好复杂啊
sqbijia.com
回复

使用道具 举报

 楼主| 发表于 2014-12-12 15:26 | 显示全部楼层
qh8600 发表于 2014-12-12 14:57
就是第一个工作表单元格改变后触发的事件,只要输入改变后,第二个表执行你需要的动作

能否把编程写出来学习一下,谢谢
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|Archiver|Excel精英培训 ( 豫ICP备11015029号 )

GMT+8, 2024-5-15 07:23 , Processed in 0.334837 second(s), 17 queries , Gzip On, Yac On.

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

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