Question

有一个问题困扰我几天了，vlookup高手进！

A,B为已知几百列数据，且B列为不重复的中国所有城市。求C或D！我的想法是把D求出来，然后用A-D=C。 问题是怎么求D？

要是有牛人可以一次得到C，那是最好。

Answer 1

C2
=RIGHT(A2,LEN(A2)*2-LENB(A2))
D2
=LEFT(A2,LENB(A2)-LEN(A2))
下拉复制公式

追问

哈哈，我最初也是这个没做的。可是A中城市不都是2个字哦。比如呼和浩和

追答

只要你的城市名称是双字节的中文字，英文字母是单字节，公式就适用。
你列出的数据是完全适用的。公式并没有设定一定是2个汉字。

追问

我刚查到了，“中文一个文字占用两个字节，而英文一个字母占用一个字字节”

问题还是没解决，还得拜托你，我是为了方便举例用的字母，其实AS,SSA,SASA,SAS...这些都是中文啦，我嫌麻烦就没用中文。。。
实际是 广州世纪 ，上海永升天 ，呼和浩特东信泰州。。。。

追答

D2
=LOOKUP(,-FIND($B$2:$B$300,A2),$B$2:$B$300)
C2
=SUBSTITUTE(A2,C2,"")

$B$2:$B$300必须跟实际数据区域完全一致，不能带空单元格。

Answer 2

按ALT+F11，插入-模块，复制下列语句
Function SplitNumEng(str As String, sty As Byte)
Dim StrA As String
Dim StrB As String
Dim StrC As String
Dim i As Integer
Dim SigS As String
For i = 1 To Len(str)
SigS = Mid(str, i, 1)
If SigS Like "[a-zA-Z]" Then
StrA = StrA & SigS
ElseIf SigS Like "#" Then
StrB = StrB & SigS
Else
StrC = StrC & SigS
End If
Next i
Select Case sty
Case 1
SplitNumEng = StrA
Case 2
SplitNumEng = StrB
Case Else
SplitNumEng = StrC
End Select
End Function

在表格中
D2=SplitNumEng(A2,3)
下拉
C2=SUBSTITUTE(A2,D2,"")