エクセルについて教えてください。

メニューの[ツール]-[マクロ]-[Visual Basic Editor]を押下して、

VBAのエディタを起動します。

プロジェクトエクスプローラからSheet1をダブルクリックして、

Sheet1をコード表示させ、次のコード記述して、保存してください。

Sheet1のA1セルに「abc-xyz」と入力すると、A1セルには、「abc」、

その右となりのB1セルには「abc-xyz」が表示されます。

ペーストしてもOKです。

その他のセルも試してみてください。

Private Sub Worksheet_Change(ByVal Target As Range)

    Dim ary() As String

    'ハイフンで区切って分割表示させる

    ary = Split(Target.Value, "-")

    Target.Value = ary(0)

    If UBound(ary) = 0 Then Exit Sub

    Target.Offset(0, 1).Value = ary(1)

End Sub

以上、参考になりますでしょうか？