[已解决]请教一个简单的自动填充问题，谢谢！

bipl607

请教一个简单的自动填充问题，用宏不用公式，谢谢！详见附件

最佳答案

月排行榜 / 总排行榜

雪舞子

2016-2-25 09:53

1. Sub test()
   
2.     Dim i&, j&
   
3.     For j = 3 To [iv1].End(1).Column
   
4.         For i = 2 To [i65536].End(3).Row
   
5.             If Cells(i, j) = "" Then
   
6.                 Cells(i, j) = Cells(i - 1, j)
   
7.             End If
   
8.         Next
   
9.     Next
   
10. End Sub

复制代码

自动复制.rar (12.75 KB, 下载次数: 10)

2016-2-25 09:53 上传

点击文件名下载附件

跳转到最佳答案楼层

雪舞子

1. Sub test()
   
2.     Dim i&, j&
   
3.     For j = 3 To [iv1].End(1).Column
   
4.         For i = 2 To [i65536].End(3).Row
   
5.             If Cells(i, j) = "" Then
   
6.                 Cells(i, j) = Cells(i - 1, j)
   
7.             End If
   
8.         Next
   
9.     Next
   
10. End Sub

复制代码

自动复制.rar (12.75 KB, 下载次数: 10)

2016-2-25 09:53 上传

点击文件名下载附件

grf1973

1. Sub 填充()
   
2.     arr = Range("c1:r" & [I65536].End(3).Row)
   
3.     For j = 1 To UBound(arr, 2)
   
4.         For i = 2 To UBound(arr)
   
5.             If Len(arr(i, j)) = 0 Then arr(i, j) = arr(i - 1, j)
   
6.         Next
   
7.     Next
   
8.     With Sheet2
   
9.         .Cells.Clear
   
10.         .[c1].Resize(UBound(arr), UBound(arr, 2)) = arr
    
11.         .Activate
    
12.     End With
    
13. End Sub
    

复制代码

bipl607

多谢楼上的两位高人，谢谢！谢谢！

爱疯

Sub test2()
    Dim r, j
    r = Range("i65536").End(xlUp).Row
    For j = 3 To [r1].Column
        If j <> [i1].Column And j <> [k1].Column Then Cells(1, j).Resize(r).FillDown
    Next j
End Sub

bipl607

啊！爱疯超级版主更简单，谢谢！