主题：列转换

 你这种的转换，很麻烦的，要分析各个级别的规律，要分析各个档的规律才能转换为数字的。

 参考代码

 

Dim jb() As String = {"一", "二", "二十四"}
Dim dw() As String = {"一", "二", "十二"}

Dim str1 As String = "二十四级"
Dim str2 As String = "二档"

Dim idx1 As Integer = array.IndexOf(jb, str1.Replace("级", ""))
Dim idx2 As Integer = array.IndexOf(dw, str2.Replace("档", ""))

msgbox(idx1 + 1 + (idx2+1) * 0.1)

 5楼已经告诉你答案了。

 

 做一个表格，或者用6楼的代码。