通过添加列在excel工作表中插入表单数据

我有非常基本的VBA技能，希望你能帮助我。 当用户单击“添加记录”按钮时，我试图在工作表上插入用户excel表单中的值。在我的工作表中，我已经将几个单元格命名为cities，在此基础上，我想在从combo Cbocies中选择特定城市后，首先添加一个空列，然后在该列中插入三个文本框的值

    Private Sub cmdbtnSave_Click()
Dim vNewCol As Long
Worksheets("DataEntry").Range(Me.cboCities.value).EntireColumn.Offset(0, 1).Insert

   vNewCol = Worksheets("DataEntry").Cells(Columns.Count, "P").End(xlUp).Column
    ' Input the data
    If Me.cboCities.value <> "" Then
       Worksheets("DataEntry").Cells(7, vNewCol).value = Me.Indic.value
       Worksheets("DataEntry").Cells(11, vNewCol).value = Me.Option1.value
    End If

End Sub

---

谢谢你指导我

你想知道这一点吗

vNewCol=Worksheets("DataEntry").Range(Me.cboCities.value).Offset(0, 1).Column

---

你能用ActiveCell.EntireClumn替换P吗？当我用ActiveCell.EntireClumnsorry替换P时，会出现“类型不匹配”的错误，请尝试vNewCol=WorksheetsDataEntry.ActiveCell.EntireClumn，这将为你提供对当前活动单元格列的引用。这次错误不同，对象不支持该属性或方法WorksheetsDataEntry.Activate，然后vNewCol=ActiveCell.Column如何

vNewCol=Worksheets("DataEntry").Range(Me.cboCities.value).Offset(0, 1).Column