直接用VBA取得儲存格中的數字或英文資料
之前常有同學問到，若是儲存格中，中、英、數字資料夾雜，
若只想留下數字部分，該怎麼做，有沒有函數可以解決，
不懂VBA，這個問題將非常麻煩，資料少還可以土法煉鋼，
慢慢複製貼上，但若資料非常巨量，將是巨大麻煩，
本文分享如何簡單解決這個問題，
雖然用MID、CODE、ROW、IFFERROR、SUM加上陣列計算數字個數，
已經夠複雜的了，若要再取出數字部分，那就更加困難，
建議，這麼複雜的事情，還是改為VBA來做會比較適合，
也許直接跳過 EXCEL裡的函數，
直接寫 VBA 回更簡單，以下簡單說明如下。
預覽畫面：
VBA部分：
階段一：
Sub 數字個數()
For i = 2 To 9
c = 0
For j = 1 To Len(Cells(i, "A"))
If VBA.Asc(Mid(Cells(i, "A"), j, 1)) > 47 And VBA.Asc(Mid(Cells(i, "A"), j, 1)) < 58 Then
c = c + 1
End If
Next
Cells(i, "B") = c
Next
End Sub
Sub 非數字個數()
For i = 2 To 9
'1.字數迴圈範圍
c = 0
For j = 1 To Len(Cells(i, "A"))
'2.判斷是否為數字
If VBA.Asc(Mid(Cells(i, "A"), j, 1)) <= 47 Or VBA.Asc(Mid(Cells(i, "A"), j, 1)) >= 58 Then
'3.如果是就+1
c = c + 1
End If
Next
'4.傳給B欄i列的儲存格
Cells(i, "C") = c
Next
End Sub
Sub 留下數字()
For i = 2 To 9
'1.字數迴圈範圍
S = ""
For j = 1 To Len(Cells(i, "A"))
'2.判斷是否為數字
If VBA.Asc(Mid(Cells(i, "A"), j, 1)) > 47 And VBA.Asc(Mid(Cells(i, "A"), j, 1)) < 58 Then
'3.如果是就+1
S = S & Mid(Cells(i, "A"), j, 1)
End If
Next
'4.傳給B欄i列的儲存格
Cells(i, "D") = S
Next
End Sub
Sub 留下英文()
For i = 2 To 9
'1.字數迴圈範圍
S = ""
For j = 1 To Len(Cells(i, "A"))
'2.判斷是否為數字
If VBA.Asc(VBA.UCase(Mid(Cells(i, "A"), j, 1))) > 64 And VBA.Asc(VBA.UCase(Mid(Cells(i, "A"), j, 1))) < 91 Then
'3.如果是就+1
S = S & Mid(Cells(i, "A"), j, 1)
End If
Next
'4.傳給B欄i列的儲存格
Cells(i, "E") = S
Next
End Sub
Public Sub 留下中文()
For i = 2 To 9
'1.字數迴圈範圍
S = ""
For j = 1 To Len(Cells(i, "A"))
'2.判斷是否為數字
If VBA.Asc(Mid(Cells(i, "A"), j, 1)) < 0 Or VBA.Asc(Mid(Cells(i, "A"), j, 1)) > 127 Then
'3.如果是就+1
S = S & Mid(Cells(i, "A"), j, 1)
End If
Next
'4.傳給B欄i列的儲存格
Cells(i, "F") = S
Next
End Sub
Public Sub 清除()
Range("B2:F9").ClearContents
End Sub
教學影音(完整版在論壇)：
教學影音完整版在論壇：
https://groups.google.com/forum/#!forum/scu_excel_vba2_107
EXCEL VBA進階班的課程規劃
主要是延伸入門課，延伸資料庫、多工作表、工作簿、網路爬蟲、視覺化報表等應用並與Python程式協同應用
單元01_資料拆解相關(VBA)
單元02_輸入自動化與表單設計
單元03_用ADO匯入與匯出資料庫
單元04_大量工作表合併與分割
單元05_資料查詢(篩選與分割工作表)
單元06_下載網路資料(YAHOO股市)
單元07_活頁簿與檔案處理(工作表分割與合併活頁簿)
單元08_視覺化報表與快速匯入圖片
其他相關學習：
- 2019智慧科技旅遊自由行懶人包分享
- EXCEL下拉清單用VBA自動查詢與顯示不同資料
- 最新的完整VBA與Python教學影音DVD分享
- 讓EXCEL VBA具有進度狀態條功能(表單設計)
- PYTHON開發網站技術用Django框架
- EXCEL當資料庫VLOOKUP與TEXT函數做飯店管理
- 從VBA到Pyhton用懶人包快速建立開發環境分享
- 利用LARGE與SAMLL函數計算前後三名工資與轉VBA
- SUMIF函數計算苗栗和宜蘭總人數與用VBA累加
- EXCEL VBA進階範例尋找與判斷負0到9的值
- 使用VBA製作銷貨訂購單與儲存資料(EXCEL當資料庫)
- EXCEL太複雜工作還是交給VBA吧!範例班級成績查詢
- EXCEL快速資料分欄用INDEX函數與VBA
- EXCEL VBA動態取消工作表保護與VBA專案保護設定
- EXCEL匯出資料到MYSQL與PHP、Phthon、R、APP共用資料
- EXCEL VBA用XMLHTTP物件抓取外匯資料
- 如何在EXCEL中自訂函數與用增益集分享VBA自訂函數
- EXCEL VBA批次查詢清單到新增與刪除工作表
- EXCEL2013版VBA如何快速建立查詢系統
- EXCEL VBA改用MYSQL當成資料庫存放大量資料
- EXCEL VBA自動化與自動繪製框線(樣式顏色粗細)
- VBA處理大數據如何自訂留下數字函數
- VBA處理大數據政府開放與快速做出查詢系統
- 如何將大量EMAIL自動串接與用OUTLOOK自動批次寄信
- 如何用VLOOKUP函數做飯店管理分享
- 東吳進修廣部88期的EXCEL VBA課又額滿了
- 如何計算年齡並格式化與用VLOOKUP查詢時數
- 如何在EXCEL VBA中快速刪除空白列
- EXCEL VBA大數據自動化設計上課心得分享
- 如何用EXCEL統計樂透彩中獎機率範例
- 如何用COUNTIF函數篩選黑名單(無須撰寫VBA)
- 如何將EXCEL公式改直接貼上修改為VBA
- 如何用EXCEL VBA設計銷貨單將EXCEL當資料庫
- 如何撰寫自動日期格式化的VBA程式
- 如何增加EXCEL VBA按鈕(86)
- 如何用VBA搜尋關鍵字後上色與複製到新工作表
- 如何用VBA搜尋關鍵字後上色與複製到新工作表
- EXCEL函數與VBA設計第6次上課(證照106與110)
- 如何增加EXCEL VBA按鈕
- 如何利用日期函數製作年曆VBA範例
- 如何用EXCEL VBA設計銷貨單分享
- 如何學會欄列鎖定技巧與VBA設計之二(範例：大型試算表)
- 如何學會欄列鎖定技巧與VBA設計之一(範例：大型試算表)
- 從EXCEL函數到VBA自動化(函數應用大升級)
- 如何將檢視與參照函數函數轉EXCEL VBA設計
- 提高工作效率_黑名單篩選範例分享
- 北市公訓處EXCEL函數進階班第1天上課
- 公訓處EXCEL進階課程分享
- 如何用VBA呼叫Outlook郵寄信件
- 如何顯示進度狀態列(ProgressBar)
- 如何批次下載股市資料到EXCEL中
- 如何建立表單與將EXCEL當成資料庫
- 如何讓用ACCESS將EXCEL的資料
- 如何排序工作表
- 如何將單次查詢改為批次查詢(EXCEL VBA自動化)
- 如何在EXCEL VBA的工作表隨機上顏色
- 如何快速在EXCEL中建立查詢系統(免資料庫)之2
- 如何精簡VBA程式與傳遞引數
- 如何快速在EXCEL中建立查詢系統(免資料庫)之1
- 如何將大量工作表整合在一個工作表
- 如何在EXCEL VBA新增沒有重複名稱工作表
- 如何自動下載YAHOO股市資料到EXCEL中
- 如何建立表單與將EXCEL當成資料庫使用
- 如何在EXCE VBA中複製工作表
- 如何在EXCEL VBA如何保護工作表
- 如何在EXCEL VBA新增沒有重複名稱工作表
- 如何在EXCEL工作表中移動
- EXCEL VBA辦公自動化_如何建立查詢系統
|
函數,東吳進修推廣部, EXCEL, EXCEL VBA 函數 程式設計 線上教學 excel vba 教學 excel vba指令教學 vba範例教學excel excel vba教學視頻 函數教學 excel函數 |
留言列表
01_EXCEL函數與VBA自動化教學 (4)
{{ article.title }}
