VBA 및 목록으로 복사 붙여 넣기

Question

VBA를 처음 사용하기 때문에 다음과 같은 문제를 해결할 수있는 적절한 방법을 찾을 수 없습니다.

Excel 워크 북에 5 개의 워크 시트가 있습니다. 마지막 3 개의 워크 시트는 데이터로 가득 찬 반면 첫 번째 워크 시트는 마지막 3 개의 워크 시트 이름이있는 목록입니다. 나는 목록에서이 워크 시트 중 하나의 이름을 선택하면 비어있는 두 번째 워크 시트에 붙여 넣기됩니다.

내가 목록에 워크 시트 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