循环求C列值不为空，就复制改行到"打印损耗表"

mentooo

求助：
循环损耗表C列，如果C列值不等于 空和“0”，那么把这一行复制到“打印损耗表”

1. Sub 复制打印损耗表不为空数据()
   
2. '定义变量
   
3. Dim Hx As String, i
   
4. '复制表头
   
5. Sheets("损耗表").Range("a1:m4").Copy Sheets("打印损耗表").Range("a1")
   
6. '得到数据区域行数
   
7. Hx = ([a1000000].End(xlUp).Row) - 6
   
8. '第5行开始
   
9. i = 5
   
10. For i = 5 To Hx
    
11. If Cells(i, 3) <> "0" Then
    
12. Sheets("损耗表").Offset(i, 1).Resize(1, 13).Copy Sheets("打印损耗表").[a10000000].End(xlUp).Offset(1, 0)
    
13. Next i
    
14. '激活 打印损耗表
    
15. Sheets("打印损耗表").Active
    
16. '设置列宽
    
17. Columns("A:N").ColumnWidth = 6
    
18. End Sub
    

复制代码

zax010

Sub 复制损耗表不为空和不为0数据到打印损耗表()
    Dim Hx, i '定义变量
    Sheets("打印损耗表").UsedRange.Clear
    Sheets("损耗表").Range("a1:m4").Copy Sheets("打印损耗表").Range("a1") '复制表头
    With Sheets("损耗表")
        Hx = .[a1000000].End(xlUp).Row - 2 '得到数据区域行数
        For i = 5 To Hx '第5行开始
            If .Cells(i, 3) <> "0" And .Cells(i, 3) <> "" Then
                .Cells(i, 1).Resize(1, 13).Copy Sheets("打印损耗表").[c1000000].End(xlUp).Offset(1, -2)
            End If
        Next i
    End With
    Sheets("打印损耗表").Activate    '激活 打印损耗表
    Columns("A:N").ColumnWidth = 6    '设置列宽
End Sub

lsc900707

Sub 复制打印损耗表不为空数据()
[a1:m4].Copy Sheets("打印损耗表").[a1]
r = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row - 1
arr = Range("a5:m" & r)
ReDim brr(1 To 10000, 1 To 12)
For i = 1 To UBound(arr)
   If arr(i, 3) <> "0" And arr(i, 3) <> "" Then
       m = m + 1
       For j = 1 To 12
           brr(m, j) = arr(i, j)
       Next
   End If
Next
   With Sheets("打印损耗表")
      .[a5].Resize(m, 12) = brr
      .Columns("A:N").ColumnWidth = 6
   End With
End Sub

zax010

>>>>>>>>>>>>>>>>>>>>>>>


test.rar (58.19 KB, 下载次数: 5)

2017-3-22 18:58 上传

点击文件名下载附件

lsc900707

1. Sub 复制打印损耗表不为空数据()
   
2. [a1:m4].Copy Sheets("打印损耗表").[a1]
   
3. r = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row - 1
   
4. arr = Range("a5:m" & r)
   
5. ReDim brr(1 To 10000, 1 To 12)
   
6. For i = 1 To UBound(arr)
   
7.    If arr(i, 3) <> "0" And arr(i, 3) <> "" Then
   
8.        m = m + 1
   
9.        For j = 1 To 12
   
10.            brr(m, j) = arr(i, j)
    
11.        Next
    
12.    End If
    
13. Next
    
14.    With Sheets("打印损耗表")
    
15.       .[a5].Resize(m, 12) = brr
    
16.       .Columns("A:N").ColumnWidth = 6
    
17.    End With
    
18. End Sub

复制代码