想将一张表格中某几列均不为0的数据提取到另一张表中

cjc209

function test(){
        var arr=maxArray_Z("统计表!a1:q1");
        var arr1=selectCols_Z(arr,["类别","品名","规格","包装","单位","第一仓（在册）","第二仓（在册）","第三仓（在册）"],1)
        arr1.toRange_Z("数据提取表!j1");
}

cjc209

这种效果就是一句代码搞定 自定义函数 就是函数也是选择列就完事了

cjc209

函数法=CHOOSECOLS(统计表!A:Q,1,2,3,4,5,9,13,17)

cjc209

何须搞那么多代码              

cjc209

就是抽取指定列的事情

cjc209

只是函数法 数据大了 回很卡

喂你吃粑粑

不用那么复杂，你的代码只是有小小的问题，稍稍改一下就可以了

1. Sub 提取_Click()
   
2. 
   
3. Dim i%, irow%, k%
   
4. irow = Sheets("统计表").Range("a10000").End(xlUp).Row
   
5. k = 2
   
6. For i = 2 To irow Step 1
   
7.     If Sheets("统计表").Cells(i, 9) <> 0 And Sheets("统计表").Cells(i, 13) <> 0 And Sheets("统计表").Cells(i, 17) <> 0 Then
   
8.         Sheets("数据提取表").Cells(k, 1) = Sheets("统计表").Cells(i, 1)
   
9.         Sheets("数据提取表").Cells(k, 2) = Sheets("统计表").Cells(i, 2)
   
10.         Sheets("数据提取表").Cells(k, 3) = Sheets("统计表").Cells(i, 3)
    
11.         Sheets("数据提取表").Cells(k, 4) = Sheets("统计表").Cells(i, 4)
    
12.         Sheets("数据提取表").Cells(k, 5) = Sheets("统计表").Cells(i, 6)
    
13.         Sheets("数据提取表").Cells(k, 6) = Sheets("统计表").Cells(i, 9)
    
14.         Sheets("数据提取表").Cells(k, 7) = Sheets("统计表").Cells(i, 13)
    
15.         Sheets("数据提取表").Cells(k, 8) = Sheets("统计表").Cells(i, 17)
    
16.         k = k + 1
    
17.     End If
    
18. Next i
    
19. 
    
20. End Sub

复制代码

gwjkkkkk

fifi0703 发表于 2024-1-19 11:10
改了一下，有数据了，可是中间有空行怎么办？

M列均为零，应该都不满足的吧。。。

gwjkkkkk

按我的理解写了一下。。。