Question

用Excel VBA实现一个功能

求一段excel vba代码，实现以下功能：
A列 B列 C列
VA11CDD QQQQ VA11
#VA11FG QQQQ VA11
VA09R VA09 VA09
VA12JK #VA12J VA12
VA08H #VA08 VA08
VA08GY VA08 VA08
#VA05U #VA05 VA05
#VA06B VA06 VA06
如上所示，从A列或B列提取出VA**(四位)，反映到数据所在行的C列中

Answer 1

如果A列取不到，就在B列取，如果两列都没有，则显示错误值：
=IF(ISERROR(FIND("VA",A1)),MID(B1,FIND("VA",B1),4),MID(A1,FIND("VA",A1),4))

Answer 2

Sub a()
For i = 1 To 2
'把2改成a列的行数
str1 = Range("A" & i).Value
pos = InStr(str1, "vb")
Range("C" & i).Value = Mid(str1, pos, 4)
Next
End Sub

Answer 3

B1 =mid(a1,FIND("V",A1,1),4)

Answer 4

=mid(a1,find("V",a1),4)