質問:

列Dにシート名を入力すると、エントリの行がそれぞれのシートに移動されます

回答:

このワークブックモジュールに次のコードを挿入します。

Private Sub Worksheet_Change(ByVal Target As Range)

Dim wks As Worksheet

Dim intRow As Integer

If Target.Column <> 4 Then Exit Sub

If IsEmpty(Target) Then Exit Sub

On Error Resume Next

Set wks = Worksheets(Target.Value)

If Err > 0 Or wks Is Nothing Then

MsgBox "Sheet name Not Found!"

Exit Sub

End If

On Error GoTo 0

With wks

intRow = .Cells(Rows.Count, 1).End(xlUp).Row + 1

.Range(.Cells(intRow, 1), .Cells(intRow, 3)).Value = _

Range(Cells(Target.Row, 1), Cells(Target.Row, 3)).Value

End With

Rows(Target.Row).Delete

End Sub