VBA代码来清除格式化并将纯文本数据保留在Excel中的选定列中

我需要创build一个button来添加到Excel（2010目前），将删除该列中的所有格式，只是保持纯文本。 我们目前的解决scheme是将数据复制到记事本中以去除格式，然后从记事本中将其复制回来。 这个工作，但不雅，如果我可以创build一个button来做到这一点在Excel本身就更容易了。 我已经看到了一些解决scheme，但没有一个似乎处理随机select的列。 帮帮我！

Answer 1

Range.ClearFormats方法在这里似乎很合适。

With Worksheets("Sheet1") .Columns(1).ClearFormats 'clear formatting from column A End With 'for a manually selected group of cells Selection.ClearFormats 'clear formatting from the cells currently selected 

通过主菜单►编辑►清除►清除格式（ Alt + H + E + F ），可以在function区上使用清除格式命令。 您可以轻松地将该命令添加到QAT，而不是创build一个主要复制命令并将其分配给自定义button的macros。

Answer 2

Excel在“主页”选项卡上已经有一个button：

只需select整个列，然后单击清除格式

Answer 3

只要加上Jeeped的回答：

使用这个代码，你将清除整个列的格式（select一个随机单元格，运行这个代码，整个列格式已被清除）

 Sub ClearColumn() i = ActiveCell.Column ActiveSheet.Columns(i).ClearFormats End Sub