別のセルの値を自動転送する方法は？

私はMS Excel 2010を使用していますが、a1セルに値や単語を入力すると、自動的にd1セルに転送され、a1セルが再び空白になります。それを行うための方法、式またはVBAコーディングを教えてください...ありがとう...

このVBAコードは動作するはずです：

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim wks As Worksheet
    Set wks = ActiveSheet
    theRow = Target.Row
    theColumn = Target.Column
    theValue = Target.Value
    If theRow = 1 Then
    If theColumn = 1 Then
        Application.EnableEvents = False
        wks.Cells(1, 4) = theValue
        Target.Clear
        Application.EnableEvents = True
    End If
    End If
End Sub

あなたはそれを置くために持っているワークシートに使用します。[ビュー]-> [マクロ]を開き、VBAProjectの下の左側の列で、左側の列のワークシートをダブルクリックし、右側の列に貼り付けます。