Question

EXCEL vba 取单元格中的某个数

比如：A1中有 5678
A2中有 4679
我想要得得到A1列中第二个和第三个数是什么，和A2中的第二个和第三个是否相同。
这在EXCEL中要怎么实现
注：记录有很多条以后还会添加
本人分不多，请高好帮下忙 谢谢

Answer 1

三种方法：
1、引用本工作表单元格内容：直接就是等号后面，紧跟要引用的单元格。
例：a1单元格要引用b1 的单元格，就是在a1里面输入=b1，即可。
2、引用本工作薄里面其它工作表里面的单元格内容：只要在单元格前加上工作表名，再加一个感叹号“!”。
例: sheet1的a1单元格，要引用sheet2 里面的b1单元格，就是在sheet1的a1里面输入=Sheet2!b1，即可。
3、跨工作薄引用：需要在以上两点的基础上，再增加工作薄的名称，即工作薄的名称!工作表的名称!单元格的名称。
例：BOOK1工作薄中sheet1的a1单元格，要引用BOOK2中sheet2 里面的b1单元格，就是在BOOK1工作薄中sheet1的a1单元格里面输入=BOOK2!Sheet2!b1，即可。

Answer 2

新建一个模块
sub aa()
'获取A1第二个数
x=mid(range("A1"),2,1)
'获取A2第二个数
y=mid(range("A2"),2,1)'如果是取第3个数，则把这里的2改成3就可以了。
'判断是否相同
if x=y then'如果相同
……
else'如果不同
……
endif
end sub
'省略号的地方可以写你要处理的代码。如果每次都要比较第二个数和第三个数，就用循环吧。QQ：394901158

Answer 3

VBA，获取中间的数很简单mid(cells(1,1),2,2)和mid(cells(2,1),2,2),但只是要判断么？那也很见简单啊
if mid(cells(1,1),2,2)=mid(cells(2,1),2,2） then
msgbox "相等"
else
msgbox "不相等"
end if
关键是你怎么循环！你只给了2个，没给表结构，要根据表结构来写！

实际上你这个不需要用VBA的，直接用公式就足够了！
=IF(MID(A1,2,1)=MID(A2,2,1),"相等","不相等")
=IF(MID(A1,3,1)=MID(A2,3,1),"相等","不相等")

Answer 4

Sub comp()
If Mid(A1, 2, 2) = Mid(A2, 2, 2) Then
MsgBox ("相等！")
Else
MsgBox ("不等！")
End If
End Sub

Answer 5

问题1：=mid(A1,2,2)
问题2：=if(mid(A1,2,2)=mid(A2,2,2),"相同","不同")