打开名称管理器，选中要删除的名称，点击删除即可Excel版本参考：20101、点击公式-名称管理器2、按住CTRL，点击要删除的名称3、点击删除，完成，查看结果
sub aa()dim i as integerfor i = 2 to 20worksheets.add.name = sheets("sheet1").cells(i, 1)nextend sub假如sheet1 a列是工作表名字
