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

Question

将“计算”表中的数据I列及P列有值的行（但不是所有的列）中的值复制到“公布表”，而且计算出小计和合计，I列及D列的空值行不要。请老师帮忙，急！
lyxxsq的方法复制完后中间有很多空行怎么办呢？

Answer 1

给你举一个代码段的例子，如果你会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列最后一行数据的位置
k=1
For i = 1 To num1
If Sheets("计算").Cells(i, 1)>100 Then
Sheets("公布表").Cells(k, 1) = Sheets("计算").Cells(i, 1)
k=k+1
else
k=k
endif
Next i本回答被提问者采纳