如何用VBA取电子表格单元格中的字符的N位数据?

Question

我希望用VBA

Answer 1

VBA中也可以用mid函数提去字符的N位数据

软件版本：Office2013

举例说明如下：

1.从下表E列数据中，提取第2位开始的5位数据：

2.Alt+F11，在相应工作表中输入代码如下：

3.F5执行代码，即可提取出相应的数据来：

Answer 2

1、Excel中有数据如下图所示，将所有的数据合并到B1单元格中。

2、按下Alt+F11，打开VBA编辑界面，双击数据所在的工作表，如下图所示。

3、输入代码如下图所示：Sub 鱼目混珠() Range("B1") = Range("A1") & Range("A2") & Range("A3") & Range("A4") End Sub。

4、点击运行子程序按钮，如下图所示。

5、关闭VBA编辑界面，返回到Excel中，就可以看到A1:A4的内容合并到了B1单元格中，如下图所示。

本回答被网友采纳

Answer 3

Mid(需要提取的字符串,从左边算起提取的第一个字符的位置的数字,提取字符的个数数字)
例如：
TT = "ABCDEFGH"
XX = Mid(TT,4,2)
XX的返回值为："DE"

Answer 4

sub AAA()
msgbox mid(range("A1").text,N,1) 'N就是第几个字符，自己修改即可。

end sub