用vb编程找出excel表中数据之间的空格，换行和单引号等所在位置

怎么实现在vb中查找excel表中数据之间的空格，换行，单引号，小数点的位置。目标结果就是查询出含有换行符，空格，"."还有单双引号这样的数据所在的位置，比如 第＊＊行含有空格 或者 第＊＊行含有"."等等~~~！！只要查询出来就行
希望能够给出一小段代码 实现其中任何一个符号的查询，比如换行符，或者空格，，非常感谢！！！

主要用几个循环就可以查出来了，如果你是刚刚入门，就每个字符用一个循环，再用sheet.cells输出来就可以了，chaohua008的例子还不错，但简单了点，你是要查所有的行和列的所含的那些字符吧，自己用条件修饰一下再改改，应该可以实现功能！！

excel没有换行这个概念，你应该查找单元格，看看单元格中有没有你要的某个字符。
查找单元格请使用cells(x,y)
其中x表示行号，y表示列号。
比如：找B5单元格，就是cells(5,2)

if cells(5,2)="" then '找空格
if cells(5,2)="." then '找小数点
if cells(5,2)="'" then '找单引号，不过注意，单引号表示注释，不能这样用，应该用ASC码。

希望对你有用

给你一个实例：

Dim xlApp As Excel.Application '定义EXCEL类
Dim xlBook As Excel.Workbook '定义工件簿类
Dim xlsheet As Excel.Worksheet '定义工作表类
'如果提示Dim xlApp As Excel.Application有问题，可在VB中操作：“工程－引用”，勾选microsoft excel 12.0 object library即可。
Private Sub Command1_Click() '打开EXCEL过程
Set xlApp = CreateObject("Excel.Application") '创建EXCEL应用类
xlApp.Visible = True '设置EXCEL可见
exc = Text1.Text'text中内容为c:\book3.xls
Set xlBook = xlApp.Workbooks.Open(exc) '打开EXCEL工作簿