首页 > 教育培训

vba复制多表姓名数据 excelvba点控件执行复制数据到另一工作表？

实习编辑 • 2023-11-19 03:52:50 • 教育培训 • 阅读 3

excelvba点控件执行复制数据到另一工作表？

【1】xls.[a1]改为xls.range(a1)

【2】

activesheet，这时是你新建的sheet，不是你有数据的sheet，

vba复制多表姓名数据 excelvba点控件执行复制数据到另一工作表？

可以先激活你有数据的sheet，

如：workbooks(你有数据的工作表名).worksheets(1).active然后再copy

或者在新建一个workbook之前，如果有数据的workbooks中的sheet是当前激活的sheet，则可以先将它赋值给变量。dimasnewworksheet

setasactivesheet

然后再建立新的工作表，copy时用：

as.range(a2:f20).specialcells(xlcelltypevisible).copyxls.range(a1)

用vba将一个工作表中符合条件的数据复制到另一个工作表中？

给你举一个代码段的例子，如果你会basic，在此基础由解决你的问题就不难了

dimi,num1

num1sheets(计算).cells(65536,1).end(xlup).row

计算sheets(计算)a列最后一行数据的位置

fori1tonum1

ifsheets(计算).cells(i,1)100thensheets(公布表).cells(i,1)sheets(计算).cells(i,1)

nexti

当sheets(计算)第1列的数据大于100时，自动拷入sheets(公布表)的相应列中

如果你想将sheets(公布表)中的空格删除，可以这样写

dimi,num1,k

num1sheets(计算).cells(65536,1).end(xlup).row

计算sheets(计算)a列最后一行数据的位置

k1

fori1tonum1

ifsheets(计算).cells(i,1)100then

sheets(公布表).cells(k,1)sheets(计算).cells(i,1)

kk1

else

kk

endif

nexti

数据工作表cellsrangesheet

原文标题：vba复制多表姓名数据 excelvba点控件执行复制数据到另一工作表？，如若转载，请注明出处：https://www.taihaichina.com/tag/13594.html
免责声明：此资讯系转载自合作媒体或互联网其它网站，「泰海号」登载此文出于传递更多信息之目的，并不意味着赞同其观点或证实其描述，文章内容仅供参考。

vba复制多表姓名数据 excelvba点控件执行复制数据到另一工作表？ vba复制多表姓名数据 excelvba点控件执行复制数据到另一工作表？介绍
赞 ( )
打赏 微信扫一扫微信扫一扫
上一篇：qq音乐怎么用airplay 中国移动机顶盒怎么设定wifi？ 下一篇：苹果手机备份到云端数据怎么恢复 小米云盘怎么恢复桌面备份？

相关推荐