用VBA实现在表格的制作方法初学者1中录入内容后，自动保存到别外一个表中

来源：蜘蛛抓取(WebSpider) 时间：2018-08-15 08:41 标签： 表格的制作方法初学者
vba复制被选择的单元格或区域内容粘贴数据到另外一个表 Excel教程
作者：Excel教程
浏览：5422次
　　我们如何才能做到，在Sheet1表里面，使用鼠标选择某个单元格、选择某行或多行、选择某列或多列，甚至是拖选部分单元格，然后，被选中的单元格的内容，自动被复制，最后粘贴到Sheet2里面的位置一样的区域里面呢？　　这个方法很简单，我们使用VBA来实现吧！　　首先，右键点击Sheet1，在弹出的快捷菜单中，选择“查看代码”，如下图！600)makesmallpic(this,600,1800);' src="http://down.amhl.net/img/pc/jsj/excel/915.gif" border="0" alt="" />　　然后，会弹出VBA代码编写窗口！　　接下来，您就把如下的代码，复制粘贴到VBA代码编写窗口就行了！　　Private Sub WorkSheet_SelectionChange(ByVal Target As Range)　　　Application.OnKey "^{a}", ""　　　Dim MyRangeArddress As String　　　MyRangeArddress = Target.Address　　　Sheet2.Cells.Value = ""　　　'Sheet2.Range(MyRangeArddress).Value = ""　　　Sheet2.Range(MyRangeArddress).Value = Sheet1.Range(MyRangeArddress).Value　　End Sub　　最后，记得保存您的EXCEL文件，再次打开，效果就出来了！　　　下面，俺对代码作个简要的说明！　　Application.OnKey "^{a}", ""　代码功能是：禁用CTRL A组合键全选所有单元格，因为全选，使用如上代码，速度会很慢；　　Sheet2.Cells.Value = ""　代码功能是：清空Sheet2里面的所有单元格的内容，但是不删除格式或公式！　　Sheet2.Range(MyRangeArddress).Value = Sheet1.Range(MyRangeArddress).Value　代码功能是：把Sheet1中被选中的单元格的内容，粘贴到Sheet2中位置完全一样的单元格中。
vba复制被选择的单元格或区域内容粘贴数据到另外一个表 Excel教程的发表时间是： 18:44:21&来源：
爱盲网提供盲人无障碍浏览《vba复制被选择的单元格或区域内容粘贴数据到另外一个表 Excel教程》，感谢作者：Excel教程撰稿！
<div class="number" id="DiggNum_404 Not Found
404 Not Found拒绝访问 | www.excelpx.com | 百度云加速
请打开cookies.
此网站 (www.excelpx.com) 的管理员禁止了您的访问。原因是您的访问包含了非浏览器特征(44b06a0ee57a3a88-ua98).
重新安装浏览器，或使用别的浏览器求段VBA 点击按钮 将一个表格1的某些列的数据自动加载到另一个表格2里， 谢谢！_百度知道
求段VBA 点击按钮 将一个表格1的某些列的数据自动加载到另一个表格2里， 谢谢！
点击按钮，每点一次数据被自动覆盖将一个表格1的某些列（ABCFE）的数据自动加载到另一个表格2对应的ABCFE列里，如果D和G列的某一单元格为空白，则此行的数据不被加载！谢谢！表格1的起...
点击按钮，每点一次数据被自动覆盖将一个表格1的某些列（A
C F E）的数据自动加载到另一个表格2 对应的A
C F E列里，如果D和G列的某一单元格为空白，则此行的数据不被加载！谢谢！表格1 的起始行为第23行， 表格2 的起始行为第4行，控件按钮是放置在表格2 里， 表格1和表格2 是在同一张Excel 里哦
&#xe6b9;答题抽奖
首次认真答题后
即可获得3次抽奖机会，100%中奖。
软件应用类认证行家
软件应用类行家
采纳数：5968
获赞数：12071
2013年7月，24天，从成都骑车到拉萨
sub m()for i= 23 to range(&A65536&).end(3).rowif cells(i,&D&)=&& or cells(i,&G&)=&& then exit for elseSheets(2).cells(i-19,&A&)=cells(i,&A&)Sheets(2).cells(i-19,&B&)=cells(i,&B&)Sheets(2).cells(i-19,&C&)=cells(i,&C&)Sheets(2).cells(i-19,&E&)=cells(i,&E&)Sheets(2).cells(i-19,&F&)=cells(i,&F&)end ifnextend sub将代码放到sheet1中，执行即可
忘了说控件按钮在表格2里我稍微修改了下，调试了下，数据没反应哈，您帮忙修改下阿
为你推荐：
其他类似问题
个人、企业类
违法有害信息,请在下方选择后提交
色情、暴力
我们会通过消息、邮箱等方式尽快将举报结果通知您。查看: 107|回复: 6
使用VBA, 如何将一个EXCEL表中某个区域自动复制到另一表
阅读权限10
在线时间 小时
使用VBA, 如何将一个EXCEL表中某个区域的内容自动复制到另一个表中某列的最下一行
23:55 上传
点击文件名下载附件
9.91 KB, 下载次数: 6
阅读权限20
在线时间 小时
,,,,,,,,看看可以否
02:15 上传
点击文件名下载附件
17.6 KB, 下载次数: 7
阅读权限50
在线时间 小时
copy方法啊
阅读权限30
在线时间 小时
这个你自己录个宏就行了啊
阅读权限30
在线时间 小时
………………Sub t()
Sheet1.[b5:e8].Copy Sheet2.[d65536].End(3).Offset(1, -3)
End Sub复制代码一句………………
阅读权限10
在线时间 小时
,,,,,,,,看看可以否
谢谢老师的无私帮助
阅读权限10
在线时间 小时
………………一句………………
谢谢xiangbaoan老师的无私帮助，解决问题了
最新热点 /1
本活动是由微软（中国）有限公司发起，申请通过者可以得到Office 365企业级E3 试用账号，并享有全套Office 365客户端及云端高效、协作办公体验。 机会有限，先到先得！
玩命加载中，请稍候
玩命加载中，请稍候
Powered by
本论坛言论纯属发表者个人意见，任何违反国家相关法律的言论，本站将协助国家相关部门追究发言者责任！ & & 本站特聘法律顾问：徐怀玉律师 李志群律师

我要回帖

更多关于 表格的制作方法初学者 的文章

 

随机推荐