excel 中将符合条件的单元格 自动复制到另外一个工作簿

假设你的数据是从A1开始的.
按下ALT+F11,菜单,"插入-模块",复制下代码,按下F5运行即可.

Sub aaaa()
Dim a As Integer
Dim b As Integer
a = Range("a1").CurrentRegion.Rows.Count
b = 1
For x = 1 To a
Range("a" & x).Select
If ActiveCell.Value <> 0 Then
Range(x & ":" & x).Copy
Sheets("sheet2").Select
Range(b & ":" & b).Select
ActiveSheet.Paste
Sheets("sheet1").Select
b = b + 1
End If
Next
End Sub

自动复制....

用高级筛选吧,

1.首先检查一下首行,是不是有标题,是不是有重复标题.
2.找一个离数据比较远的列,假设E列,E1复制A列的标题,E2输入<>0
3.选中Sheet2(要复制到那个表选那个表)
4.数据-筛选-高级筛选,
方式:复制到其他位置
数据区域:SHeet1!A1:C1000(这么这么)
条件区域:SHeet1!E1:E2
复制到:Sheet2!A1
(都是选的)
确定即可.

条件还有另外一种写法,操作步骤一样:
E1啥也不写,E2输入公式:=A2<>0

其实自动筛选也是很容易的,
数据-筛选-自动筛选,下拉框中,自定义,不等于0
然后选中复制到sheet2更简单一点.

输入 =IF(Sheet1!A1<>0,Sheet1!B1,F