如何虛字轉換成駝峯

Question

有沒有辦法來

my-dashed-word 

轉換成

myDashedWord 

在Excel

？

Answer 1

試試這個小UDF（）：

Public Function DashFixer(inpt As String) As String 
    If inpt = "" Then 
     DashFixer = "" 
     Exit Function 
    End If 

    ary = Split(inpt, "-") 
    For i = LBound(ary) + 1 To UBound(ary) 
     ary(i) = Application.WorksheetFunction.Proper(ary(i)) 
    Next i 
    DashFixer = Join(ary, "") 
End Function 

Answer 2

我想只有VBA將是你實際的，但有一個公式，整個複製：

=SUBSTITUTE(A1,MID(A1,FIND("-",A1),2),UPPER(MID(A1,FIND("-",A1)+1,1))) 

Answer 3

其他版本：

Public Function dCam(ByRef cel As String) As String 

    dCam = Replace(StrConv(Replace(cel, "-", " "), vbProperCase), " ", "") 'MyDashedWord 

    dCam = LCase(Left(dCam, 1)) & Right(dCam, Len(dCam) - 1)    'myDashedWord 

End Function 

---

=SUBSTITUTE(PROPER(A1),"-","") 'MyDashedWord 

=LEFT(A1) & RIGHT(SUBSTITUTE(PROPER(A1),"-",""),LEN(SUBSTITUTE(A1,"-",""))-1) 'myDashedWord 

Answer 4

還有一個版本。

在B2的公式爲，

=LEFT(A2, FIND("-", A2&"- ")-1)&SUBSTITUTE(PROPER(MID(A2, FIND("-", A2&"- ")+1, 255)), "-", "") 

Answer 5

遠不有效，因爲我也喜歡，因爲沒有一種方法來以單觸發替換沿着

線

.Pattern = "\-([a-z)([a-z]+)" 
Set objRegexMC = .Replace(strIn, UCase("$1") & "$2") 

但正如我在那裏去了RegExp這裏。

Function StrCon1(strIn As String) As String 
Dim objRegex As Object 
Dim objRegexMC As Object 
Dim objRegexM As Object 

Set objRegex = CreateObject("vbscript.regexp") 
With objRegex 
    .Global = True 
    .Pattern = "\-([a-z])([a-z]+)" 
Set objRegexMC = .Execute(strIn) 
For Each objRegexM In objRegexMC 
    strIn = Replace(strIn, objRegexM,UCase$(objRegexM.submatches(0)) & objRegexM.submatches(1)) 
Next 
End With 

StrCon1 = strIn 
End Function