excel - Excelドキュメントの各列の特殊文字の後のすべてを削除し、2つの単語を1つのセルから2つの別々のセルに分割する方法は?

Question

1列のExcelドキュメントがあります。次のようになります。

 car /VIj+
 car, cars /VIj-
 home, homes /VKjsah+
 homeless, homeless /VKjsbh+
.
.
.

そして、各列のシンボル / を含む / の後のすべてを削除する必要があります。次に、2 つの単語を含むセルを別々のセルに分割し、単語の間にある symbol を削除する必要があります。誰か助けてくれませんか？

Answer 1

データが単一の列にあり、データ列のすぐ隣に空の列があると仮定します。その場合、データを含む選択した範囲に対してこのコードを実行できます。

Sub Solution()
    Dim tmpArr
    Dim Cell As Range
    For Each Cell In Selection.Cells
        tmpArr = Split(Split(Cell, "/")(0), ",")
        Cell.Resize(1, 1 + UBound(tmpArr)) = tmpArr
    Next
End Sub

次の図は、マクロの結果を示しています。