从vba Excel表添加列以粘贴日期和技能

我有几个表一个接一个地粘贴，我试图添加两个额外的列，一个用于技能名称，一个用于日期。当我运行这段代码时，会添加列，我可以看到指针指向每个单元格，但它没有指定任何值。我将感谢您对该代码的建议

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

---

已解决，日期和拆分/技能在末尾有一个冒号（：）

除非您的条件都失败，否则您不会将任何值写入单元格。解决后，日期和拆分/技能的末尾有一个冒号（：）！