excel中使用vba写一个驼峰工具，用来将数据表中的字段改为代码中的字段

写之前在网上没有找到自己想要的效果，就想着自己写一下，感觉还挺简单

因为以前从来没有接触过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

有什么问题可以留个言，方法百度搜一下应该都有解释，这里就不解释了，嘿嘿我比较懒。。。