엑셀 매크로

Sub ConvertUndoerscoreToCamelCase()

    Dim columnName

    Dim convertedName

    Range("A1").Select

    While Selection.Value <> ""

        columnName = LCase(Selection.Value)

        convertedName = "REPLACE(SUBSTITUTE(PROPER(LOWER(RC[-1])), ""_"", """"), 1, 1, LOWER(LEFT(RC[-1])))"

        Selection.Offset(0, 1).FormulaR1C1 = "=" & convertedName

        Selection.Offset(0, 2).FormulaR1C1 = "=CONCATENATE("", "",UPPER(RC[-2]), "" AS  "", RC[-1])"

        Selection.Offset(1, 0).Select

    Wend

    

End Sub

"GENERATE_DATE".toLowerCase().replace(/_([a-z])/g, function (g) { return g[1].toUpperCase(); });