可以复制整个工作表，然后删除公式、数值部分，代码为：ActiveSheet.Copy '复制当前工作表到新建工作簿ActiveSheet.Cells.SpecialCells(xlCellTypeConstants, 21).ClearContents '清除非文本单元格
