[已解决]如何用vba填充空白单元格？

心灵有约

vba填充空白单元格.rar (11.75 KB, 下载次数: 98)

2012-2-1 15:08 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

windimi007

2012-2-1 15:19

请测试！

1. Sub aa()
   
2.     Dim arr
   
3.     arr = Range("A1").CurrentRegion.Value
   
4.     For i = 1 To UBound(arr)
   
5.         If IsEmpty(arr(i, 1)) Then arr(i, 1) = arr(i - 1, 1)
   
6.     Next i
   
7.     Range("A1").Resize(UBound(arr), UBound(arr, 2)) = arr
   
8. End Sub
   

复制代码

跳转到最佳答案楼层

windimi007

请测试！

1. Sub aa()
   
2.     Dim arr
   
3.     arr = Range("A1").CurrentRegion.Value
   
4.     For i = 1 To UBound(arr)
   
5.         If IsEmpty(arr(i, 1)) Then arr(i, 1) = arr(i - 1, 1)
   
6.     Next i
   
7.     Range("A1").Resize(UBound(arr), UBound(arr, 2)) = arr
   
8. End Sub
   

复制代码

清风云子

不太懂，难道是b列有数据时，a列自动填充“2月”，只有个2月？这样的话，一个函数 a2=if(b2="","2月","")下拉。

shejiang88

Sub 填充()
  Dim x As Integer
   For x = 3 To 16
  Range("a" & x) = Range("a" & 2)
   Next x
   Call ttt3
End Sub
Sub ttt3()
     
      Range("A2:A16,B2:B16").Interior.ColorIndex = 2
   
End Sub

linch92413

1. 
   
2. Sub tc()
   
3. Dim arr
   
4. Dim i As Long
   
5. arr = Range("a1").CurrentRegion.Value
   
6. For i = 1 To UBound(arr)
   
7. If arr(i, 1) = "" Then arr(i, 1) = "2月"
   
8. Next i
   
9. Range("a1").CurrentRegion.Value = arr
   
10. End Sub
    
11. 
    

复制代码

sunjing-zxl

1. Sub aa()
   
2.     Dim arr
   
3.     Dim str As String, i As Long
   
4.     str = Cells(2, 1)
   
5.     ReDim arr(1 To [B65536].End(xlUp).Row - 2, 1 To 1)
   
6.     For i = 1 To UBound(arr)
   
7.         arr(i, 1) = str
   
8.     Next i
   
9.     Range("A3").Resize(UBound(arr)) = arr
   
10. End Sub

复制代码

心灵有约

清风云子 发表于 2012-2-1 15:19
不太懂，难道是b列有数据时，a列自动填充“2月”，只有个2月？这样的话，一个函数 a2=if(b2="","2月","")下 ...

是的 你的理解没错 只有个2月  若单纯填充的话  双击a2单元格或下拉即可 也不必用函数。我只是想结合其他语句自动实现自动填充。谢谢。

心灵有约

shejiang88 发表于 2012-2-1 15:34
Sub 填充()
  Dim x As Integer
   For x = 3 To 16

谢谢 。例中我的行数不固定。

心灵有约

linch92413 发表于 2012-2-1 17:57

谢谢。有一点，a2单元格也许是3月，也不固定。

心灵有约

sunjing-zxl 发表于 2012-2-1 20:02

谢谢。只是最佳答案只有一个啊。