[已解决]用VBA自动填充数据

chensir

把A中空白的数据自动填满，效果如红框内的样式，谢谢

最佳答案

月排行榜 / 总排行榜

大灰狼1976

2014-3-19 17:16

附件请测试

1. Private Sub CommandButton1_Click()
   
2. Dim arr, i&
   
3. arr = [a1].CurrentRegion
   
4. For i = 2 To UBound(arr)
   
5.   If arr(i, 1) = "" Then arr(i, 1) = arr(i - 1, 1)
   
6. Next i
   
7. [a1].Resize(UBound(arr)) = Application.Index(arr, , 1)
   
8. End Sub

复制代码

跳转到最佳答案楼层

大灰狼1976

附件请测试

1. Private Sub CommandButton1_Click()
   
2. Dim arr, i&
   
3. arr = [a1].CurrentRegion
   
4. For i = 2 To UBound(arr)
   
5.   If arr(i, 1) = "" Then arr(i, 1) = arr(i - 1, 1)
   
6. Next i
   
7. [a1].Resize(UBound(arr)) = Application.Index(arr, , 1)
   
8. End Sub

复制代码