作者：乔山办公网日期：
返回目录：excel表格制作
Sub test()
Dim rng As Range
Do
On Error Resume Next
Set rng = Application.InputBox("请选百择度一个单元格问:", "单元格选择", "A1", Type:=8)
If rng Is Nothing Then Exit Sub
If rng.Count > 1 Then MsgBox "选择的单元格过多答!"
Loop While rng.Count > 1
MsgBox "你选择的单元格是专:" & rng.Address(0, 0) & "单元格的属值是:" & rng.Value
End Sub
1、 打开一个Excel的文件，在表格中输入简单的表格，比如学生成绩表格。
2、 接着，鼠来标左键单击【开源发工具】菜单标签，在百VBA控件下拉菜单中，并选择按钮控件。
3、 然后度，在表格中绘制出按钮控件，并修改控件名称。
4、 接着，鼠标左键单击【查看代码】按钮。
5、 然后，在代码窗口中输入VBA语句，知比如输入定义变量语句，并选择字符串类型。
6、 接着，在代码窗口中输入读取单元格的VBA语句。
7、最后，在设计窗口上，鼠标左键单击按钮，可以看到表格中的，通过VBA程序读取数据，并输出到右边的单元格中，显示出道数据了，通过这样的操作，就可以用VBA读取合并单元格数据了。
所以前提就是需要知道这个字符串中某一个值是在哪个单元格所在的位置百，度这点可以实现吗？
针对这个问题，答案是可以实现的。
附件就是将A1单元格的字回符覆盖后面各列对应的字符提取出来方便对照，只是在格线上的字符可能漏掉。你下载附件后点击按答钮试试。可调整字号、列宽试试。
VBA中表示单元格的抄值有很多种，比如袭A1单元格的值
range("A1")
cells(1,1) 或cells(1,"A")
[A1]
VBA中单元格属百性默认是值，但如果指定度为value属性，可知以提高代码运行速度
上述的表示方式为道：
range("A1").value
cells(1,1).value 或cells(1,"A").value
[A1].value