如果是删除列内容Range("A:A,B:B,D:D").ClearContent如果是彻底删除列：Range("A:A,B:B,D:D").Delete
Sub xxx()Range("A:A,B:B,D:D").DeleteEnd Sub
