vba复制多表姓名数据 excelvba点控件执行复制数据到另一工作表？
excelvba点控件执行复制数据到另一工作表？
【1】xls.[a1]改为xls.range(a1)
【2】
activesheet，这时是你新建的sheet，不是你有数据的sheet，
可以先激活你有数据的sheet，
如：workbooks(你有数据的工作表名).worksheets(1).active然后再copy
或者在新建一个workbook之前，如果有数据的workbooks中的sheet是当前激活的sheet，则可以先将它赋值给变量。dimasnewworksheet
setasactivesheet
然后再建立新的工作表，copy时用：
as.range(a2:f20).specialcells(xlcelltypevisible).copyxls.range(a1)
用VBA将一个工作表中符合条件的数据复制到另一个工作表中？
给你举一个代码段的例子，如果你会BASIC，在此基础由解决你的问题就不难了
Dim i, num1
num1 Sheets(计算).Cells(65536, 1).End(xlUp).Row
计算 Sheets(计算) A列最后一行数据的位置
For i 1 To num1
If Sheets(计算).Cells(i, 1)100 Then Sheets(公布表).Cells(i, 1) Sheets(计算).Cells(i, 1)
Next i
当 Sheets(计算)第1列的数据大于100时，自动拷入 Sheets(公布表) 的相应列中
如果你想将Sheets(公布表)中的空格删除，可以这样写
Dim i, num1,k
num1 Sheets(计算).Cells(65536, 1).End(xlUp).Row
计算 Sheets(计算) A列最后一行数据的位置
k1
For i 1 To num1
If Sheets(计算).Cells(i, 1)100 Then
Sheets(公布表).Cells(k, 1) Sheets(计算).Cells(i, 1)
kk 1
else
kk
endif
Next i
版权声明：本文内容由互联网用户自发贡献，本站不承担相关法律责任.如有侵权/违法内容,本站将立刻删除。
