[已解决]如何定位到特定的字符中

ycb20010823

tMItDqu8.rar (3.33 KB, 下载次数: 0)

2009-11-18 10:32 上传

点击文件名下载附件
如何定位到特定的字符中
请教一下，有没有象定位空单元格那种的方法，如下：

Range("b:b").SpecialCells(xlCellTypeBlanks).EntireRow.select

来定位到A字所在的行上呢，一下子可以选中，或是删除字母A所在的行！谢谢！

最佳答案

月排行榜 / 总排行榜

雨狐

2009-11-18 11:04

换一下思路：

Sub a()
Cells.Replace "A", ""
Columns("A").SpecialCells(xlCellTypeBlanks).Delete Shift:=xlUp
End Sub

跳转到最佳答案楼层

爱疯

从技巧上比较，按了F5，定位操作里没有“定位到字符A”的功能。

如果想要删除A字符所在的行，最直接的一种方式就是循环。

判断循环体是不是字符A，不是的话将所在行删除。

wayy

可以使用find

雨狐

换一下思路：

Sub a()
Cells.Replace "A", ""
Columns("A").SpecialCells(xlCellTypeBlanks).Delete Shift:=xlUp
End Sub

ycb20010823

不想使用循环的功能，那样数据要是多了，要是太大了的话，就很慢，还是定位来得灵活！！不知道wayy的find 方法，能一下子找到吗，然后删除？请把代码给我写上，谢谢楼上两位朋友！！

雨狐

这就最佳了？这个只对附件适用，有副作用的，再稍微改一下

Sub a()
Columns("A").Replace "A", "", lookat:=xlWhole
Columns("A").SpecialCells(xlCellTypeBlanks).Delete Shift:=xlUp
End Sub

faliming7

可用自定义筛选

Sub aa()
    Columns("A:A").AutoFilter Field:=1, Criteria1:="A"
    Selection.SpecialCells(xlCellTypeVisible).EntireRow.Delete
End Sub

ycb20010823

谢谢法老师，谢谢雨狐老师！学习无止境！！

[此贴子已经被作者于2009-11-19 1:46:58编辑过]

xdwy81129

好几个语句，收藏学习了。[em01]

zsd5237

学习[em02][em02]