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

e表格学习

58976104 发表于 2015-10-6 11:39
怎么定？麻烦写代码出来看看，谢谢！

下载附件看了一下。
1、编程会修改你原来输入的公式！不知道这是否是你的原意？
2、原公式简单处理即可实现你的要求，没有必要编程了吧？
3、下拉可以复制。
eg.rar (8.37 KB, 下载次数: 7)

2015-10-6 13:32 上传

点击文件名下载附件

58976104

crazy0qwer 发表于 2015-10-6 12:46
想停止的时候   exit sub.    就好了。

这样也不对阿

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

58976104

e表格学习 发表于 2015-10-6 13:31
下载附件看了一下。
1、编程会修改你原来输入的公式！不知道这是否是你的原意？
2、原公式简单处理即 ...

谢谢你的提醒，刚学VBA，看一下平时函数的功能在VBA中是怎么做的。另：我只想要一个以下空白，见7楼的图片，谢谢！
9楼符合我的要求，但总感觉应该在VBA里有更简单的语句可以达到目的，请各位老师指教，谢谢！

58976104

用我自己想的应该是：如果C1单元格的值不等于空，那么就判断C2......如果为空了就填上“以下空白”，并终止程序运行。

1119508588

Sub test()
Dim i&, irow&, arr
irow = Range("a65536").End(3).Row
arr = Range("C1:C" & irow)
For i = 1 To UBound(arr)
    If Cells(i, 3) = "" Then
        arr(i, 1) = "以下空白": GoTo 100
    End If
Next
100:
[c1].Resize(UBound(arr), 1) = arr
End Sub

Sub chazhaokongbai()
Dim c As Range
Set c = Range("c1:c" & Range("a65536").End(3).Row).Find("", LookIn:=xlValues)
If IsEmpty(c) Then
  c.Value = "以下空白"
End If
End Sub   '随便选一种即可，看自己需要

1119508588

58976104 发表于 2015-10-6 13:40
谢谢你的提醒，刚学VBA，看一下平时函数的功能在VBA中是怎么做的。另：我只想要一个以下空白，见7楼的 ...

我的第二种方法算简单的了，其他的还真没有~

58976104

1119508588 发表于 2015-10-6 15:45
Sub test()
Dim i&, irow&, arr
irow = Range("a65536").End(3).Row

谢谢指导！