请帮手写段根据条件填充数据的代码，谢谢！

wangby

9920140619.rar (67.15 KB, 下载次数: 11)

2014-6-15 22:19 上传

点击文件名下载附件


请帮手写段根据条件填充数据的代码，谢谢！

十五的月亮

1. Sub tianchong()
   
2.     Dim i%
   
3.     For i = 3 To Application.CountA([d:d]) + 1
   
4.         If Cells(i, 1) <> "" And Cells(i, 4) <> "" Then
   
5.             Cells(i, "N") = Cells(i, 1)
   
6.         Else
   
7.             Cells(i, "N") = Cells(i - 1, "N")
   
8.         End If
   
9.     Next
   
10. 
    
11. End Sub
    

复制代码

少个一，没看见 合并单元格了，不用清除

十五的月亮

1. Sub tianchong()
   
2.     Dim i%
   
3.     For i = 3 To Application.CountA([d:d])
   
4.         If Cells(i, 1) <> "" And Cells(i, 4) <> "" Then
   
5.             Cells(i, "N") = Cells(i, 1)
   
6.         Else
   
7.             Cells(i, "N") = Cells(i - 1, "N")
   
8.         End If
   
9.     Next
   
10. 
    
11. End Sub
    
12. 
    

复制代码

不知道是否可以，把你的数据有效性删除了

wangby

十五的月亮 发表于 2014-6-15 22:39
不知道是否可以，把你的数据有效性删除了

先谢谢你，N列的最后一个单元格不能复制到，A列的数据有效性能否不去除，能否用公式做到，如可以也是行的，谢谢你，请帮手再看一下。谢谢！

无聊的疯子

wangby 发表于 2014-6-15 22:47
先谢谢你，N列的最后一个单元格不能复制到，A列的数据有效性能否不去除，能否用公式做到，如可以也是行的 ...

因为N2是合并单元格,所以公式从N4开始下拉

1. 
   
2. =IF(A4="",N3,A4)
   

复制代码

wangby

十五的月亮 发表于 2014-6-15 22:55
少个一，没看见 合并单元格了，不用清除

完全OK，谢谢你！