Sub DELCO()Dim i As Integeri = 0xunhuan:On Error GoTo eendCells.Find(What:="关键词").SelectSelection.EntireColumn.Deletei = i + 1GoTo xunhuaneend:MsgBox (i & "列被删除了")End Sub以上代码我测试了,可用。把关键词换成你要删除的词不要说你不知道代码要放哪儿