驼峰转下划线各种方式, 总有一个你工作中需要的

最新推荐文章于 2024-06-19 00:45:15 发布

岁月玲珑

最新推荐文章于 2024-06-19 00:45:15 发布

阅读量813

点赞数 16

分类专栏： windows 文章标签： java 前端 linux

本文链接：https://blog.csdn.net/yin18827152962/article/details/136334642

版权

windows 专栏收录该内容

25 篇文章 0 订阅

订阅专栏

本文介绍了如何在Excel中使用宏和函数实现字符串的驼峰命名（如xVAT转为x_v_a_t）和下划线命名（如x_v_a_t转为x_v_a_t）的转换，包括正则表达式方法和逐字符处理的方法。

摘要由CSDN通过智能技术生成

idea驼峰下划线转换

模式串

(\w*)_(\w*)

捕获组加大写转换

\$1\u$2

说明: $1表示第一个捕获组, $0便是这个字符串, \u是下一个字符转化成大写, 对应的\l是小写

excel驼峰转下划线[宏命令]

Sub CamelToUnderline()
Dim c As Range
For Each c In Selection
Dim result As String
result = “”
Dim str As String
str = c.Value
For i = 1 To Len(str)
Dim currentLetter As String
currentLetter = Mid(str, i, 1)
If i = 1 Then
result = result & LCase(currentLetter)
ElseIf currentLetter = UCase(currentLetter) Then
result = result & “_” & LCase(currentLetter)
Else
result = result & currentLetter
End If
Next i
c.Value = result
Next c
End Sub

说明: xVAT会被转换成x_v_a_t, 使用是有可以注意一下, 自己也可以修改下算法针对性兼容, 不过感觉没有必须, 有这种数据场景应该不多

excel下划线转驼峰[函数]

=LOWER(LEFT(SUBSTITUTE(PROPER(A1),"_",""),1))&RIGHT(SUBSTITUTE(PROPER(A1),"_",""),LEN(SUBSTITUTE(PROPER(A1),"_",""))-1)

或者这样
=LEFT(A1,1)&MID(SUBSTITUTE(PROPER(A1),"_",""),2,100)

excel下划线转驼峰[宏]

Sub UnderlineToCamel()
    Dim cell As Range
    For Each cell In Selection
        cell.Value = WorksheetFunction.Proper(Replace(cell.Value, "_", " "))
        cell.Value = Replace(cell.Value, " ", "")
    Next cell
End Sub