用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工作簿
Set xlsheet = xlBook.Worksheets(1) '打开EXCEL工作表
xlsheet.Activate '激活工作表

'查找实心圆点
If xlsheet.Cells(1, 1) = "." Then
MsgBox "找到了"
Else
msbox "没找到"
End If
End Sub

---

在拿培excel录制一个查找的宏。
然后将得到的代码稍孙敏谈微修改下就可以在vb中使用了。
EXCEL vba就是则碰vb的延伸。

---

凡事无绝袭好对，让我告诉你拍仔铅：
判断单元格有无 强制换行符：
If InStr(1, Cells(1, 1), Chr(10)) <> 0 Then
MsgBox "yes"
End If
chr(10)就是 强制换行符

单元格输入字符加 强戚键制换行符：
cells(1,2) = "dfsd" & Chr(10) & "" & Chr(10) & "fsdf"

if 后多加几个OR就完了

---

不用VB，用空森扒Access就可以解决了，建立一个Access文件，给excel建春唯立一个表连接，然后再建斗昌立查询找出你想要的数据。

---