怎么提取EXCEL單元格出現的數據？ _col

看了別人回復的答案估計都不能解決你的問題。如果你的問題只有一處數值，可以用公式實現，但你看你的需求是在一個字符串中（即文本中）如何在電腦上提取系統，需要提取的數值不止一處。用公式很難實現。下面介紹用EXCEL VBA幫你解決問題。
【注】以下方法同樣適合所有需要在一個文本中提取某幾處數值的要求。
比如我們需要將提取的字符串在A2開始輸入原始的文本，右側無限提取文本中出現的數值。
操作方法：
一、點擊【開發工具】的【查看代碼】，如下圖
二、雙擊左側所在的工作表（即我們輸入了原始數據所在的工作表）
三、復制以下代碼，粘貼（拷貝）至右側區域
———————代碼區——————–
Sub 提取數字()
Dim i As , j As , col As ,As Long, str As , b1 As
On ErrorNext
b1 = False
‘默認從第二列開始寫入數值
col = 2
‘ 獲得原始數據的最后一列值
= Range(“”).End(xlUp).Row
‘開始循環原始數據
For i = 2 To
‘遍歷一個單元格的每個字符
For j = 1 To Len(Cells(i, 1))
‘判斷一個字符是否為整數
If Mid(Cells(i, 1), j, 1) Like “#” Then
b1 = True
‘將一個整數寫入到str的最后一位中.
str = str + Mid(Cells(i, 1), j, 1)
Else
‘輸出str的值到對應的單元格中
If b1 = True Then
Cells(i, col) = –str
col = col + 1
‘重新賦空值
str = “”
b1 = False
【怎么提取EXCEL單元格出現的數據？】End If
End If
‘判斷最后一個數值是否在最字符串中的是末尾處,因為上面的循環沒有輸出,這里需要輸出最后為數值的結果
If b1 = True And j = Len(Cells(i, 1)) Then
Cells(i, col) = –str
col = col + 1
str = “”
b1 = False
End If
Next j
‘重新將列恢復默認值
col = 2
Next i
End Sub
———————代碼區——————–
四、運行代碼：點擊下圖所示的按鍵（或按F5），執行代碼
五、執行代碼后所得到的結果如下圖所示：
結束！
以上若有什么疑問如何在電腦上提取系統，可本人頭條號后發私信給我。歡迎相互交流。
本文到此結束，希望對大家有所幫助。

继夫的玩弄H辣文的小说|女人与拘性猛交视频|精品欧美高清不卡高清|一起做亏亏的事情的视频|啦啦啦在线视频观看|望月直播下载ios版本|国产日韩欧美一区二区三区

怎么提取EXCEL單元格出現的數據？