请高手看一下，这段代码有什么问题
时间：2011-08-10
来源：互联网
请各位高手看一下这段代码，困扰本人很久，找不出问题，提示变量未定义，rng均有值，rng.offset(1，0)有空值。
Sub 删除无数据列()
Dim rng As Range, rngg As Range
For Each rng In Range(Cells(1, 1), Cells(1, Cells(1, Columns.Count).End(xlToLeft).Column))
If rng.Offset(1, 0) Is Nothing Then
If rngg Is Nothing Then
Set rngg = rng
Else
rngg = Union(rng, rngg)
End If
End If
Next rng
rngg.EntireColumn.Delete
End Sub
Sub 删除无数据列()
Dim rng As Range, rngg As Range
For Each rng In Range(Cells(1, 1), Cells(1, Cells(1, Columns.Count).End(xlToLeft).Column))
If rng.Offset(1, 0) Is Nothing Then
If rngg Is Nothing Then
Set rngg = rng
Else
rngg = Union(rng, rngg)
End If
End If
Next rng
rngg.EntireColumn.Delete
End Sub
作者: rhero 发布时间: 2011-08-10
set rngg = Union(rng, rngg)
作者: Zamyi 发布时间: 2011-08-10
还是不行，能再帮忙看看嘛。
作者: rhero 发布时间: 2011-08-10
附件？无附件都是空话。
作者: Zamyi 发布时间: 2011-08-10
请见附件！
Book1.rar(20.58 KB)
附件
Book1.rar(20.58 KB)
2011-8-10 12:17, 下载次数: 1
作者: rhero 发布时间: 2011-08-10
刚才忘记放入代码了，这个是有代码的附件！
[ 本帖最后由 rhero 于 2011-8-10 12:25 编辑 ]
Book1.rar(43.84 KB)
[ 本帖最后由 rhero 于 2011-8-10 12:25 编辑 ]
附件
Book1.rar(43.84 KB)
2011-8-10 12:22, 下载次数: 0
作者: rhero 发布时间: 2011-08-10
你要做什么？range is nothing 永远是false。再有，第一行可没有空。
作者: Zamyi 发布时间: 2011-08-10
相关阅读 更多
热门阅读
-
office 2019专业增强版最新2021版激活秘钥/序列号/激活码推荐 附激活工具
阅读：74
-
如何安装mysql8.0
阅读：31
-
Word快速设置标题样式步骤详解
阅读：28
-
20+道必知必会的Vue面试题（附答案解析）
阅读：37
-
HTML如何制作表单
阅读：22
-
百词斩可以改天数吗？当然可以，4个步骤轻松修改天数！
阅读：31
-
ET文件格式和XLS格式文件之间如何转化？
阅读：24
-
react和vue的区别及优缺点是什么
阅读：121
-
支付宝人脸识别如何关闭?
阅读：21
-
腾讯微云怎么修改照片或视频备份路径?
阅读：28
