用VBA自动删除指定区域内非数值行

玉阳山人

删除指定区域内非数值行.zip (11.2 KB, 下载次数: 12)

2019-10-22 18:42 上传

点击文件名下载附件

A5:R33是中间有空行、空格或文本的指定区域。


                             要求

用VBA自动删除A5:R33区域内所有非数值的行或单元格。
     A5:R33里A10:R10,A16:R16,A22:R22有空格或其它非数值类内容，A28:R28为空行
   删除非数值的4行后，数值类数据自动保存在A5:R29里。


恳请老师们写出代码。

abc123281

已经不是新手了，这么简单的问题还需要求助吗？

网海遨游

这样行不？


Sub test()
Dim r%, i%
r = [a65536].End(3).Row
For i = r To 5 Step -1
        If Application.Sum(Range(Cells(i, 1), Cells(i, "r"))) = 0 Then
                Rows(i).Delete
        End If
Next i
End Sub

玉阳山人

网海遨游 发表于 2019-10-22 20:01
这样行不？

老师：测试后发现一个问题：数据源在指定的A:R区域内，所以只能删除A5:R1048576范围内的非数值行【您写的代码是整行删除，这是不对的】，由于S列及以后的行不在指定区域内，所以不得删除！
  请您看看怎样修改？

网海遨游

玉阳山人 发表于 2019-10-22 20:21
老师：测试后发现一个问题：数据源在指定的A:R区域内，所以只能删除A5:R1048576范围内的非数值行【您写的 ...

Sub test111()
Dim r%, i%
r =cells(rows.count,1).End(3).Row
For i = r To 5 Step -1
        If Application.Sum(Range(Cells(i, 1), Cells(i, "r"))) = 0 Then
                Range(Cells(i, 1), Cells(i, "r")).Delete Shift:=xlUp
        End If
Next i
End Sub

玉阳山人

网海遨游 发表于 2019-10-22 20:51
Sub test111()
Dim r%, i%
r =cells(rows.count,1).End(3).Row

这次完全正确！谢谢老师热心帮忙！！！

Jason_WangSS

1. Sub TEST()
   
2.     Range("a5:r33").SpecialCells(xlCellTypeConstants, 2).ClearContents
   
3.     For i = 33 To 5 Step -1
   
4.         If Cells(i, 1).End(xlToRight).Column > 18 Then Rows(i).Delete
   
5.     Next
   
6. End Sub
   

复制代码

玉阳山人

Jason_WangSS 发表于 2019-10-23 09:13

A:R列的行数每次事先都是不确定的，所以不能用R33

Jason_WangSS

玉阳山人 发表于 2019-10-23 12:33
A:R列的行数每次事先都是不确定的，所以不能用R33

你再看看你的要求