Sub selecN()
For i = 1 To UsedRange.Row + UsedRange.Rows.Count
For j = 1 To Len(Cells(i, 1))
If Left(Right(Cells(i, 1), j), 1) = " " Then
Cells(i, 2) = Right(Cells(i, 1), j - 1)
Exit For
End If
Next j, i
End Sub
1、用VBA,代码如上例如第一列是地址,国家都在第二列。
2、用替换功能,“* ”替换为空白即可。 被替换的是 *+空格
=TRIM(RIGHT(SUBSTITUTE(A1," ",REPT(" ",99)),99))
前提是国家名前至少有一个空格,且国家名只是一个单独的单词。
选使用函数,提取国家名。
用find函数查找
具体的你要上图