Office中国论坛/Access中国论坛

标题: 选中A2开始到最后一个非数字格式值结束的行（整行) [打印本页]

作者: yanwei82123300 时间: 2020-3-7 11:58
标题: 选中A2开始到最后一个非数字格式值结束的行（整行)
一个excel表A列，如何选中由A2开始第一个数字格式值到最后一个非数字格式值结束的行（整行），谢谢！

A2到非数值型为止
我的意思是到非数字值以上即可，非数字值以下不要选择，您的代码是把所有的数值型都选中了，

作者: roych 时间: 2020-3-7 14:51
在右侧写一个公式，筛选就好了。isText或者IsNumber都行，需要注意的是，写这两个函数时，注意先把文本格式的数值改为数字型数值。否则会出错

作者: yanwei82123300 时间: 2020-3-7 16:03
roych,您看看给写个代码吧！目的是选中后将选中的行删除！不是筛选，下面的是一位老师给的代码，但是报错，您看一下能改吗？感谢
Sub test()
Dim i&, rng As Range
for each rng in range([a2]:[a65536].end(3))
If IsNumeric(rng) <> True Then
i = rng.Row
Rows("2:" & i).Select
GoTo 100
End If
Next
100
End Sub

作者: ly 时间: 2020-3-14 19:09

yanwei82123300 发表于 2020-3-7 16:03
roych,您看看给写个代码吧！目的是选中后将选中的行删除！不是筛选，下面的是一位老师给的代码，但是报错， ...

把数值删除？
这样操作，定位常量-数值，然后删除。
Range("A:A").SpecialCells(xlCellTypeConstants, 1).EntireRow.Delete

作者: yanwei82123300 时间: 2020-3-15 13:01

ly 发表于 2020-3-14 19:09
把数值删除？
这样操作，定位常量-数值，然后删除。
Range("A:A").SpecialCells(xlCellTypeConstants, ...

ly您的帮助,我想删除选中的行

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)