怎么实现自动填充

viter94

各位大大，怎么把表A填充成表B

viter94

Sub 自动填充()
Dim arow As Long, i As Integer
arow = Sheets("sheet1").[A65535].End(xlUp).Row - 1

For i = 3 To arow Step 1


If Sheets("sheet1").Cells(i, 1).Value = " " And Sheets("sheet1").Cells(i - 1, 1).Value <> " " Then

Sheets("sheet1").Cells(i, 1).Value = Sheets("sheet1").Cells(i - 1, 1).Value

End If

Next

End Sub

为什么运行没反应？

lsc900707

viter94 发表于 2017-10-22 21:43
Sub 自动填充()
Dim arow As Long, i As Integer
arow = Sheets("sheet1").[A65535].End(xlUp).Row - 1

你的a列第三行以下都是空白的，稍改一下：
Sub 自动填充()
    arow = ActiveSheet.UsedRange.Rows.Count
    For i = 3 To arow
        For j = 1 To 2
            If Cells(i, j).Value = "" And Cells(i - 1, j).Value <> "" Then
                 Cells(i, j).Value = Cells(i - 1, j).Value
            End If
        Next
    Next
End Sub

x-xx-xx

1. Sub sdf()
   
2. For Each 单元格 In Range("a2:b23")
   
3. If 单元格 = "" Then
   
4. Cells(单元格.Row, 单元格.Column) = 单元格.Offset(-1, 0)
   
5. End If
   
6. Next
   
7. End Sub

复制代码

liulang0808

1. Sub 自动填充()
   
2. Dim arow As Long, i As Integer
   
3. arow = Sheets("sheet1").[b65535].End(xlUp).Row + 1
   
4. 
   
5. For i = 3 To arow Step 1
   
6. 
   
7. 
   
8. If Sheets("sheet1").Cells(i, 1).Value = "" And Sheets("sheet1").Cells(i - 1, 1).Value <> "" Then
   
9. 
   
10. Sheets("sheet1").Cells(i, 1).Value = Sheets("sheet1").Cells(i - 1, 1).Value
    
11. 
    
12. End If
    
13. 
    
14. If Sheets("sheet1").Cells(i, 2).Value = "" And Sheets("sheet1").Cells(i - 1, 2).Value <> "" Then
    
15. 
    
16. Sheets("sheet1").Cells(i, 2).Value = Sheets("sheet1").Cells(i - 1, 2).Value
    
17. 
    
18. End If
    
19. 
    
20. Next
    
21. 
    
22. End Sub

复制代码

liulang0808

在楼主的代码上做了调整

viter94

谢谢各位大神，封贴了~