EXCEL表格要怎样提取某列的单元格中一连串数字、字母、符号等当中的数字并且是没有重复的请高手解答！

如你所例，假定你每格中只有一处连续数字

右击工作表标签，查看代码，把下面代码贴到VBE代码窗口，按F5运行，提取不重复数字在D列

Sub chiefzjh()

Dim i%, R%, D, S$, T$

Set D = CreateObject("scriptingdictionary")

For R = 1 To [c65536]End(3)Row

S = ""

For i = 1 To Len(Cells(R, 3)Text)

T = Mid(Cells(R, 3)Text, i, 1)

If IsNumeric(T) Then S = S & T

Next i

If S <> "" And Not Dexists(S) Then DAdd S, ""

Next R

Range("d1")Resize(DCount, 1) = WorksheetFunctionTranspose(Dkeys)

End Sub

ALt+F11，插入模块，插入如下代码

Private Function ColumnNum(ByVal a) As Long

Dim r

r = 0

If VarType(a) = vbString And Len(a) > 0 Then

a = UCase(a)

r = Asc(Left(a, 1)) - Asc("A") + 1

If Len(a) >= 2 Then

r = r 26 + Asc(Mid(a, 2, 1)) - Asc("A") + 1

If Len(a) >= 3 Then

r = r 26 + Asc(Mid(a, 3, 1)) - Asc("A") + 1

End If

End If

End If

ColumnNum = r

End Function

然后返回Excel，用函数=ColumnNum(需要转换的单元格）

即可实现数字列换成字母

以上就是关于EXCEL表格要怎样提取某列的单元格中一连串数字、字母、符号等当中的数字并且是没有重复的请高手解答！全部的内容，包括:EXCEL表格要怎样提取某列的单元格中一连串数字、字母、符号等当中的数字并且是没有重复的请高手解答！、如何在vba中把数字列转成字母、等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！