當前位置:成語大全網 - 書法字典 - Excel用VBA提取數據

Excel用VBA提取數據

1,前面是漢字,後面是數字。您可以使用MID、min和find函數來提取裏面的數字。如圖所示:輸入“= MID(a 1,min(find({ 0,1,2,3,4,5,6,7,8,9},a 1 &;“0123456789")),20)"

2.顯示單元格中的所有數字。您可以使用宏。首先打開VBA編輯器。工具-宏-Visual Basic編輯器

3.在編輯器中單擊插入-模塊。在模塊中輸入以下代碼:

函數zzsz(xStr As String)As String dim I As integer for I = 1 To Len(xStr)If is numeric(Mid(xStr,I,1)),則zzsz = zzsz & ampmid(xStr,I,1)next end函數

4.返回工作表並在單元格B2中輸入“= zzsz(A2)”。您可以使用VBA提取單元格A2中的所有數字,如圖所示。

Excel如何只提取表格中的數字?

5.指定要提取的數組。也就是說,在那些不連續的數字中,提取數組出現的次數。另外,在模塊中輸入以下代碼:

函數GetNums(rCell As Range,num As Integer)As String dim arr 1()As String dim chr As String,Str As StringDim i As Integer,j As Integer on Error GoTo line 1

Str = rCell。text for I = 1 To Len(Str)chr = Mid(Str,I,1)If(Asc(chr)《48 Or Asc(chr)》57)then Str = Replace(Str,chr,““)End IfNext

arr 1 = Split(Trim(Str))ReDim arr 2(UBound(arr 1))For I = 0 To UBound(arr 1)If arr 1(I)“”然後arr 2(j 1(I 1)end If next

GetNums = IIf(num 《= j,arr 2(num-1)“)line 1:End函數

6.回到單元格時輸入“= getnums(a3,2)”,就可以提取第壹次出現的數組,如圖所示。