2019年9月18日 星期三

直接用VBA取得儲存格中的數字或英文資料

直接用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_視覺化報表與快速匯入圖片

其他相關學習：
    函數東吳進修推廣部, EXCEL, EXCEL VBA 函數 程式設計 線上教學 excel vba 教學 excel vba指令教學 vba範例教學excel  excel vba教學視頻 函數教學 excel函數
    沒有留言:
    訂閱： 文章 (Atom)