复制某一区域符合条年的行内容

hq4308

如图示，求解答，谢谢

11.zip (9.49 KB, 下载次数: 8)

2020-3-18 10:38 上传

点击文件名下载附件

大灰狼1976

1. Sub test()
   
2. Dim rng As Range, r&, rng1 As Range
   
3. Set rng = [a2:h14]
   
4. For r = 1 To rng.Rows.Count
   
5.   If Application.Sum(rng.Rows(r)) Then
   
6.     If rng1 Is Nothing Then Set rng1 = rng.Rows(r) Else Set rng1 = Union(rng1, rng.Rows(r))
   
7.   End If
   
8. Next r
   
9. If Not rng1 Is Nothing Then rng1.Copy [a17]
   
10. End Sub

复制代码