根据存在状况判断后再复制

凤翔时代

各位老师好，请帮看一下附件，里面对复制情况有说明，因为真实文件的量比较大，所以请帮写个代码了，作为资料整理的第一步，更想通过这种方式多学点，先予致谢！

abc123281

呵呵 可以实现

abc123281

1. Sub testabc123()
   
2.   Dim arr
   
3.   rw = [a65536].End(xlUp).Row
   
4.   arr = Range("a3:f" & rw)
   
5.    For i = 1 To UBound(arr)
   
6.       If arr(i, 3) <> "" And arr(i, 4) <> "" Then
   
7.         arr(i, 6) = arr(i, 4)
   
8.       End If
   
9.       If arr(i, 3) <> "" And arr(i, 4) = "" Then
   
10.         arr(i, 6) = "无户名收支"
    
11.       End If
    
12.       If arr(i, 3) = "" And arr(i, 4) <> "" Then
    
13.         arr(i, 6) = arr(i, 4)
    
14.       End If
    
15.       If arr(i, 3) = "" And arr(i, 4) = "" Then
    
16.         arr(i, 6) = "未明确收支"
    
17.       End If
    
18.    Next
    
19.    [a3].Resize(UBound(arr), 6) = arr
    
20.    MsgBox "OK"
    
21. End Sub

复制代码

凤翔时代

abc123281 发表于 2018-4-5 18:04

多谢帮助，我去试试！

abc123281

根据状况判断后复制abc123.rar (15.77 KB, 下载次数: 3)

2018-4-5 18:07 上传

点击文件名下载附件