Excelで大文字と小文字を区別してテキスト文字列をすばやく分割するにはどうすればよいですか？

Excelでは、通常、テキストを列に固定する機能を使用して、固定幅または区切り文字でテキストを分割しますが、テキストを大文字と小文字で分割しようとしたことがありますか？ たとえば、データのリストがあり、大文字と小文字に基づいてXNUMXつの列に分割する必要があります。XNUMXつの列には小文字の文字列が含まれ、もうXNUMXつの列には以下のスクリーンショットに示すように大文字の文字列が含まれます。 Text to Columns関数はこの操作をサポートしていませんが、Excelで大文字と小文字を区別してテキスト文字列をすばやく分割するトリックを紹介できます。

VBAを使用してテキストをケースごとに分割

Kutools forExcelを使用した区切り文字でテキストを行/列に分割する

VBAを使用してテキストをケースごとに分割

Excelには、小文字と大文字に基づいて文字列をすばやく分割するマクロコードしかありません。

1。 押す Altキー+ F11 開くキー アプリケーション向け Microsoft Visual Basic 窓。

2。 クリック インセット > モジュール、以下のコードを空白に貼り付けます モジュール スクリプト。

VBA：文字列を大文字と小文字で分割します。

Sub CamelCase()
'UpdatebyExtendoffice20160711
    Dim xRg As Range
    Dim xTxt As String
    Dim xCell As Range
    Dim xCount As Long
    On Error Resume Next
    If ActiveWindow.RangeSelection.Count > 1 Then
      xTxt = ActiveWindow.RangeSelection.AddressLocal
    Else
      xTxt = ActiveSheet.UsedRange.AddressLocal
    End If
LInput:
    Set xRg = Nothing
    Set xRg = Application.InputBox("Select a range:", "Kutools for Excel", xTxt, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    If xRg.Areas.Count > 1 Then
        MsgBox "It not work in multiple selection", vbInformation, "Kutools for Excel"
        GoTo LInput
    End If
    If xRg.Columns.Count > 1 Then
        MsgBox "It only work in one column", vbInformation, "Kutools for Excel"
        GoTo LInput
    End If
    On Error Resume Next
    Application.ScreenUpdating = False
    With CreateObject("vbscript.regexp")
        .Pattern = "(\S)([A-Z]+[^A-Z])"
        .Global = True
        For Each xCell In xRg
            xCount = .Execute(xCell).Count
            If xCount Then xCell.Resize(, xCount + 1) = Split(.Replace(xCell, "$1" & Chr(1) & "$2"), Chr(1))
        Next
    End With
    Application.ScreenUpdating = True
End Sub

3。 押す F5 キーを押すと、分割するテキストを選択するように促すダイアログが表示されます。 スクリーンショットを参照してください：

4。 クリック OK、および選択テキストはXNUMXつの列に分割されており、XNUMXつは小文字を含み、もうXNUMXつは大文字を含みます。

Kutools forExcelを使用した区切り文字でテキストを行/列に分割する

多くの場合、特定の文字に基づいてセルを複数の行または列に分割することができます。 Excelでは、組み込みのテキストから列への関数は、セルを列に直接変換するのに役立つだけで、行の変換では機能しません。 しかし、 Kutools for Excel –便利で便利なツール、あなたはそのを適用することができます 分割セル 区切り文字または固定幅に基づいて文字列を行または列にすばやく分割するユーティリティ。

後 無料インストール Kutools for Excel、以下のようにしてください：

1.分割するセルを選択し、をクリックします クツール > マージ＆スプリット > 分割セル。 スクリーンショットを参照してください：

2。 の中に 分割セル ダイアログで、必要な分割タイプを確認します 種類 セクションに移動し、に基づいて分割する特定の区切り文字を確認します。 分割 セクション。 スクリーンショットを参照してください：

3。 クリック Ok、ダイアログがポップアップ表示され、分割されたコンテンツを配置するセルを選択するように通知されます。 スクリーンショットを参照してください：

4.選択後、をクリックします OK、および選択したセルは、スペースに基づいて行に分割されています。 スクリーンショットを参照してください：