열을 추가하여 vba 테이블의 날짜와 기술을 붙여 넣습니다. Excel

Question

여러 테이블을 차례대로 붙여 넣습니다. 스킬 이름과 날짜에 대해 두 개의 추가 열을 추가하려고합니다. 이 코드를 실행하면 열이 추가되고 포인터가 각 셀로 이동하는 것을 볼 수 있지만 값을 할당하지는 않습니다. 이 코드에 대한 귀하의 제안에 감사드립니다.

Dim date_var As String 
Dim skill_var As String 
Dim msg_var As Integer 

Sub Add_Date_Skill() 
ThisWorkbook.ActiveSheet.Range("A1").Select 
ActiveCell.EntireColumn.Insert 
ActiveCell.EntireColumn.Insert 
ThisWorkbook.ActiveSheet.Range("C2").Select 

Do While Not IsEmpty(ActiveCell.Value) 
If ActiveCell.Value = "Date" Then 
    ActiveCell.Offset(0, 1).Select 
    Let date_var = ActiveCell.Value 
    ActiveCell.Offset(0, -1).Select 

ElseIf ActiveCell.Value = "Split/Skill" Then 
    ActiveCell.Offset(0, 1).Select 
    Let skill_var = ActiveCell.Value 
    ActiveCell.Offset(0, -1).Select 

Else 
    ActiveCell.Offset(0, -2).Select 
    ActiveCell.Value = skill_var 
    ActiveCell.Offset(0, 1).Select 
    ActiveCell.Value = date_var 
    ActiveCell.Offset(0, 1).Select 
End If 

ActiveCell.Offset(1, 0).Select 
Loop 

End Sub 

Answer 1

해결 된 날짜와 스플릿/스킬 끝에 콜론 (:)이 있습니다!