VBA从上往下判断有公式的空白单元格

58976104

请哪位老师帮忙看看，我写到这里就想不出怎么写了
Sub tt()
Dim x As Range
For Each x In Range("C1:C25")
If x = "" Then x = "以下空白"
Next
End Sub

58976104

就是要这个效果，请看图，谢谢！

Vicky.Z

1. Sub test()
   
2. Dim i&, irow&, arr
   
3. irow = Range("a65536").End(3).Row
   
4. arr = Range("C1:C" & irow)
   
5. For i = 1 To UBound(arr)
   
6.     If Cells(i, 3) = "" Then
   
7.         arr(i, 1) = "以下空白"
   
8.     End If
   
9. Next
   
10. [c1].Resize(UBound(arr), 1) = arr
    
11. End Sub

复制代码

58976104

Vicky.Z 发表于 2015-10-6 11:20

谢谢，我只想箭头下方那显示‘以下空白’该怎么弄？也就是只要一个以下空白

58976104

Sub tt()
Dim x As Range
For Each x In Range("C1:C25")
If x = "" Then x = "以下空白"    '就是想这句后停掉
Next
End Sub

e表格学习

定位函数specialcells一次性搞定，不行吗？

58976104

e表格学习 发表于 2015-10-6 11:36
定位函数specialcells一次性搞定，不行吗？

怎么定？麻烦写代码出来看看，谢谢！

58976104

沉下去了{:soso_e114:}

Vicky.Z

只显示一个“以下空白”：

1. Sub test()
   
2. Dim i&, irow&
   
3. irow = Range("a65536").End(3).Row
   
4. For i = 2 To irow
   
5.     If Cells(i - 1, 3) <> "" And Cells(i - 1, 3) <> "以下空白" And Cells(i, 3) = "" Then
   
6.         Cells(i, 3) = "以下空白"
   
7.     End If
   
8. Next
   
9. End Sub

复制代码

crazy0qwer

58976104 发表于 2015-10-6 12:20
沉下去了

想停止的时候   exit sub.    就好了。