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

Question

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

Answer 1

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

Answer 2

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

Answer 3

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

Answer 4

凡事无绝对，让我告诉你：
判断单元格有无 强制换行符：
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就完了

Answer 5

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