VBAとリスト付きのコピー貼り付け

Question

私はVBAにはかなり新しく、以下の問題を解決する適切な方法を見つけることができません。

私は5つのワークシートを持つExcelワークブックを持っています。最後の3つのワークシートはデータでいっぱいですが、最初のワークシートは3つの最後のワークシートの名前のリストです。これらのワークシートの1つの名前をリストから選択すると、空の2番目のワークシートにコピーが貼り付けられます。

私はリスト内のワークシート4を選択し、のは言わせて、ワークシート2は4

Answer 1

は、シート1のコードモジュールにこれを貼り付け、今のワークシートのコピーペーストです。
変更これら：

1. Sheet2Name
2. Sheet1NamesListAddress
3. このNewName

   Private Sub Worksheet_SelectionChange(ByVal Target As Range) 
    
       Const Sheet2Name = "Sheet2" 
    
       Const Sheet1NamesListAddress = "A1:A10" 
    
       Const NewName = "New Name" 
    
   
    
       If Not Intersect(ActiveCell, Range(Sheet1NamesListAddress)) Is Nothing Then 
    
        Application.DisplayAlerts = False 
    
        On Error Resume Next 
    
        Sheets(Target.Text).Copy Before:=Sheets(2) 
    
        ThisWorkbook.Worksheets(Target.Text).Delete 
    
        Sheets(2).Name = NewName 
    
        Application.DisplayAlerts = False 
    
        On Error GoTo 0 
    
       End If 
    
   End Sub