在excel工作表中创建一个按钮，以添加带有用户给定标题的列

我试图创建一个按钮，在excel工作表中添加列，提交响应后，用户应获得列标题，列应添加到给定名称中。我用宏试过了

尺寸x作为变型
Dim ColumnNum%
x=InputBox（“输入要添加的列：，“什么列？”）
如果x=”“，则退出Sub
ColumnNum=x
ThisWorkbook.Sheets（“Sheet1”）.Columns（ColumnNum）。插入移位：=xlRight
此工作簿.Sheet1.列（ColumnNum-1）.复制
“上面这句话毫无意义。
我不打算费劲地拍摄，但你似乎不知道怎么拍摄
“好好收拾东西。你会注意到我改变了你复制部分的方式。
“对我来说没有意义的部分是范围部分。
ThisWorkbook.Sheets（“Sheet1”）.Columns（ColumnNum）.ClearContents

尝试使用以下代码

Dim colName As Variant
colName = InputBox("Enter Column Name", "Input Column Name")

If StrPtr(colName) = 0 Then
    MsgBox ("canceled")
ElseIf colName = vbNullString Then
    MsgBox ("didn't type anything!")
Else
Columns("D:D").Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
Range("E1").Value = colName
End If

---

这与谷歌表单无关。请删除标记。代码为

vba

，而不是

vb6

，请适当更改标记。