如何自动向下填充空白单元格数据与上行一样

风沙飞天

想快速的把上一行的数据B列到K列的数据向下一行空的粘贴，
也就是想项次对应把出货单对应空白的补上，因为很多数据，现在感冒了，头晕，怎么想都难想得好的，感觉转不过弯
我知道可以用
Range("B" & i, "K" & k).Select
    Selection.FillDown
但不懂用

chxw68

1. Sub test()
   
2.   Dim i%, r%
   
3.   Dim rng As Range
   
4.   With Worksheets("sheet1")
   
5.     r = .Cells(.Rows.Count, 1).End(xlUp).Row
   
6.     For i = 2 To r
   
7.       If Len(.Cells(i, 2).Value) <> 0 Then
   
8.         Set rng = .Range("b" & i).Resize(1, 10)
   
9.       Else
   
10.         rng.Copy .Cells(i, 2)
    
11.       End If
    
12.     Next
    
13.   End With
    
14. End Sub

复制代码

chxw68

参见附件。

风沙飞天

谢谢，各位，我想到了用

1. 
   
2. Sub a()
   
3.   Dim i, k As Integer
   
4. srcnum = Range("a1").CurrentRegion.Rows.Count
   
5. For j = 1 To srcnum
   
6.      If Cells(j + 1, 2) = "" Then
   
7.         If j = srcnum Then
   
8.           Exit For
   
9.         End If
   
10.         
    
11.          Range("B" & j, "K" & (j + 1)).Select
    
12.          Selection.FillDown
    
13.      End If
    
14. Next
    
15. End Sub
    

复制代码

风沙飞天

chxw68 发表于 2014-2-22 11:07

谢谢，你的看起来专业多了，如果数据多，从代码看，按你的运行会很快些

mmwwdd

学习了，有多种解法

liu-aguang

一句代码搞定:
Sheet1.UsedRange.SpecialCells(4).FormulaR1C1 = "=R[-1]C"

loners462

学习学习…………

不自量力

学习了，大开眼界

law3886585

学习了，大开眼界，谢谢楼主