设为首页收藏本站Access中国

Office中国论坛/Access中国论坛

 找回密码
 注册

QQ登录

只需一步,快速开始

返回列表 发新帖
查看: 1756|回复: 4
打印 上一主题 下一主题

选中A2开始到最后一个非数字格式值结束的行(整行)

[复制链接]
跳转到指定楼层
1#
发表于 2020-3-7 11:58:47 | 只看该作者 回帖奖励 |正序浏览 |阅读模式
一个excel表A列,如何选中由A2开始第一个数字格式值到最后一个非数字格式值结束的行(整行),谢谢!

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


本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有帐号?注册

x
分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
收藏收藏 分享分享 分享淘帖 订阅订阅
5#
 楼主| 发表于 2020-3-15 13:01:13 | 只看该作者
ly 发表于 2020-3-14 19:09
把数值删除?
这样操作,定位常量-数值,然后删除。
Range("A:A").SpecialCells(xlCellTypeConstants,  ...

ly您的帮助,我想删除选中的行
4#
发表于 2020-3-14 19:09:04 | 只看该作者
yanwei82123300 发表于 2020-3-7 16:03
roych,您看看给写个代码吧!目的是选中后将选中的行删除!不是筛选,下面的是一位老师给的代码,但是报错, ...

把数值删除?
这样操作,定位常量-数值,然后删除。
Range("A:A").SpecialCells(xlCellTypeConstants, 1).EntireRow.Delete
3#
 楼主| 发表于 2020-3-7 16:03:55 | 只看该作者
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
2#
发表于 2020-3-7 14:51:40 | 只看该作者
在右侧写一个公式,筛选就好了。isText或者IsNumber都行,需要注意的是,写这两个函数时,注意先把文本格式的数值改为数字型数值。否则会出错
您需要登录后才可以回帖 登录 | 注册

本版积分规则

QQ|站长邮箱|小黑屋|手机版|Office中国/Access中国 ( 粤ICP备10043721号-1 )  

GMT+8, 2024-11-29 22:56 , Processed in 0.090301 second(s), 30 queries .

Powered by Discuz! X3.3

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表