寫之前在網上沒有找到自己想要的效果，就想著自己寫一下，感覺還挺簡單

因為以前從來沒有接觸過vba，所以查了一些資料。想把過程記錄一下

下面就是最終想要的效果圖

把程式碼也貼下吧

Sub tuoFeng()

    Dim preValue, finValue As String
    Dim i As Integer
    
    For i = 2 To 200
        
        preValue = Cells(i, 2)
        If preValue = "" Then
            Exit For
        End If
        finValue = Replace(preValue, "_", " ")
        finValue = StrConv(finValue, vbProperCase)
        finValue = Replace(finValue, " ", "")
        
        finValue = LCase(Left(finValue, 1)) & Right(finValue, Len(finValue) - 1)
        Cells(i, 4) = finValue
        
    Next
End Sub

其中主要是對字串做了一些操作可以參考下這篇博文 http://blog.csdn.net/hj33053252/article/details/5847185

有什麼問題可以留個言，方法百度搜一下應該都有解釋，這裡就不解釋了，嘿嘿我比較懶。。。