Excel下划线英文单词转驼峰命名

最新推荐文章于 2025-04-23 11:38:43 发布

菜鸟叮咚糖

最新推荐文章于 2025-04-23 11:38:43 发布

阅读量843

点赞数 1

分类专栏：日常问题文章标签： excel

本文链接：https://blog.csdn.net/qq_24484085/article/details/140539444

版权

日常问题专栏收录该内容

31 篇文章

订阅专栏

Excel中快捷键 Alt + F11 打开VBA编辑器。
在菜单中选择 插入 > 模块，插入一个新的模块
输入以下代码
关闭VBA编辑器，回到Excel中，选择需要转换的单元格区域
按Alt + F8 打开宏对话框，选择 ConvertCamelCase，然后点击运行即可
多列转换，选中多列按Alt + F8即可

Sub ConvertCamelCase()
    Dim rng As Range
    Dim cell As Range
    Dim parts As Variant
    Dim result As String

    ' 设置要转换的范围
    Set rng = Selection

    For Each cell In rng
        If Not IsEmpty(cell) Then
            If InStr(cell.Value, "_") > 0 Then
                parts = Split(cell.Value, "_")
                result = LCase(parts(0)) & UCase(Left(parts(1), 1)) & LCase(Mid(parts(1), 2))
            Else
                result = LCase(cell.Value)
            End If
            cell.Value = result
        End If
    Next cell
End Sub