[已解决]请问如何用VBA快速填充？

felix3

Book1.rar (3.69 KB, 下载次数: 7)

2014-4-27 12:36 上传

点击文件名下载附件

自动为成员添加组别，要求见附件，先谢谢各位老师！

最佳答案

月排行榜 / 总排行榜

冥王

2014-4-27 12:52

1. Sub demo()
   
2.     Dim r%
   
3.     r = Cells(Rows.Count, 1).End(xlUp).Row
   
4.     Range("B2:B" & r).SpecialCells(xlCellTypeBlanks).FormulaR1C1 = "=R[1]C"
   
5.     Range("B2:B" & r) = Range("B2:B" & r).Value
   
6. End Sub

复制代码

跳转到最佳答案楼层

冥王

1. Sub demo()
   
2.     Dim r%
   
3.     r = Cells(Rows.Count, 1).End(xlUp).Row
   
4.     Range("B2:B" & r).SpecialCells(xlCellTypeBlanks).FormulaR1C1 = "=R[1]C"
   
5.     Range("B2:B" & r) = Range("B2:B" & r).Value
   
6. End Sub

复制代码

云影

1. Sub test()
   
2.     Dim arr, x&
   
3.     arr = Range("a1").CurrentRegion
   
4.     For x = UBound(arr) To 2 Step -1
   
5.         If arr(x - 1, 2) = "" Then
   
6.             arr(x - 1, 2) = arr(x, 2)
   
7.         End If
   
8.     Next x
   
9.     With Range("e1")
   
10.         .Resize(UBound(arr), 2) = ""
    
11.         .Resize(UBound(arr), 2) = arr
    
12.     End With
    
13. End Sub

复制代码