excel取消表格格式

excel取消表格格式 篇一:WORD中如何去掉表格和格式 WORD中如何去掉表格和格式，删除word中的空格空行和空段 一、去掉表格和格式 为了版面的整齐，网页文档都是以表格的形式存在的，只是一般情况下表格的颜色被设为无色或表格宽度被设为0，所以我们在网页上看不到表格。另外，网页文档中换行用的都是手动换行符，还有对字体等格式的设置。如果把从网页上复制的文字直接粘贴到Word中，那么它们也都粘贴进来了，这给重新排版带来了很大的麻烦。现在同事已经把网页粘了进来，可以用下面的方法解决。 从”编辑”菜单中单击“全选”，然后单击“剪切”，再单击“选择性粘贴”。在打开的的“选择性粘贴”对话框中选择“形式”为“无格式文本”，确定。这样表格和各种格式都没了，手动换行符也变成了回车符(段落标记)。另外还可以从“文件”菜单中选择“另存为”，把文档保存为纯文本文件，再用Word打开，效果和上面的方法完全一样。 如果刚从网页上复制了文字，那么在Word中可以直接执 1 行“选择性粘贴”的步骤，这样将省事得多。 二、删除空格 网页文字中会有许多的空段和空格，在Word中排版时也需要清除。那么为什么这一步要删除空格，而不是先删除空段呢,道理是:有些看起来什么也没有的段落中可能存在空格，而有空格的段落并不是真正的空段，在Word中没法对它们批量执行删除操作。 首先，从“编辑”菜单中打开“替换”对话框(打开后暂时不要关闭，后面的操作都要在这里完成)。把光标定位到“查找内容”文本框中，按一下空格键输入一个空格(默认情况下是半角空格)，“替换为”文本框中什么都不填。单击“全部替换”，Word将删除所有的空格。你可能会说怎么我这还有许多空格呀,别急，如果这样的话，那是因为这个文档中还有另外两种空格:全角空格和制表符空格。对这两种空格，半角空格是不会把它们当一家人的，所以替换时对它们置之不理。打开中文输入法，按Shift+空格键，切换到全角状态，然后按空格键在“查找内容”框里输入一全角空格，“替换为”为空，再按“全部替换”，所有的全角空格也都删除了。再单击对话框中的“高级”按钮，然后单击“特殊字符”，选择“制表符”，在“查找内容”框中会出现“ ”(当然也可以手工输入)，“替换为”为空，再单击“全部替换”，制表符空格也都没了。这时你的文档中保 如果有连续的空段的话，一次替 2 换不完，你可以多按几次“全部替换”，直到提示找不到替换的对象为止。 ,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,下面这些为我参考的文章: 批量删除: (一)段首空格:1.选定内容。2.居中。3左对齐或者右对齐。(方法二:也可用替换来删除) (二)一般空格:1.编辑菜单。2.替换。3查找内容中键入空格，替换中什么也不键入。 (三)空段删除:1.编辑菜单。2.替换。3.高级。4.特殊字符，查找内容中选择段落标记2次，替换中选择段落标记1次。 (四)表格转换:1.全选。2.表格菜单。3.转换。4.先把所有内容转换成表格。5.再把所有内容转换成文本。 (五)超链接删除:1.全选。(可以不用，请试试)2.alt+F9。3.编辑菜单，替换，高级，特殊字符，查找内容中选择域。替换中什么都不选。 (六)超链接删除，但不删除其内容:1.全选。2.ctrl+shift+F9。 (七)只保留纯文本:可用编辑菜单中选择性粘贴，选择无格式文本选项。 (八)金山WPS中有删除段首空格，空格，空段等功能。 3 (九)删除小图标，小图形图像:编辑菜单中替换功能可以组合多种删除方式，文档中小的，大的图形，图像都可以删除。 ,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, 一般在将网页内容复制到word文档中时，会出现一些问题。解决办法: 1、清除多余的空格(点一下显示比例旁边的一个按钮即可显示，下同) 空格可以全部替换为空(去掉) 1)注意有两种空格，英文的小点和中文的方框将其复制， 2)然后编辑,查找，用Ctrl+V粘贴到查找后面 替换中的内容为空 3)“全部替换” 2、清除多余的回车键(即段落标记) 首先看一下规律，一个段落后有几个回车键以两个回车键为例， 1)编辑,查找，输入 2)点“替换”，输入 3)点“全部替换” 4 3、将人工换行符(即向下的箭头)变为段落标记 1)编辑,查找，输入，l 2)点“替换”，输入 3)点“全部替换” 4、修改段落格式 1)选中相应文字，格式,段落 2)特殊格式，首行缩进2字符 3)段前段后0行 4)设置适当的行距 5)将“如果...”前面的勾去掉 6)确定 其他的情况可结合上面的方法灵活处理。 ,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, 如何去掉WORD文档中多余的空格全选(Ctrl+A) 然后居中(Ctrl+E) 再左对齐(Ctrl+L) OK! 空格全被抖掉了! ,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,我们在使用Word打开一 5 些文档时，经常会发现许多文档因空行过多，从而使得文档很长，页数居高不下。实际上我们可以通过“空行替换”的几种方法，去除文档中多余的空行，具体操作如下: 1.在Word“编辑”菜单中打开“查找和替换”对话框，在“查找内容”中输入“ ”“替换为”中输入“ ”，然后选“全部替换”，这种方法可去掉文档中因自动换行符造成的多余空行，但还有一些空行是去不掉的，需要再用下面的其他方法。 2.对于文档中的手动换行符(“Shift+回车”)，就要用“ ”替换成“ ”(这里用的不是1，而是L字母的小写)或直接用替换对话框里的“特殊字符”，选择里面的“有手动换行符”来进行替换， 也可以去掉文档中的一些多余空行。 3.对于自动和手动换行符交替的情况，可用“ ”替换成“ ”或“ ”替换成“ 6 ”也可以去掉文档中的一些多余空行。 上述三种方法可以去除文档中的大部分空行，如果还剩有空行，不妨再用下列方法再试一试。 4.用“ ”(注意两个换行符之间有一个空格)替换成“ ”，这种方法是用来对付前面有空格的换行符。 以上是我在使用Word时个人的一些个人体验，供大家在使用时参考。 篇二:如何限制别人修改你的Excel表格格式 1、按住ctrl键，逐个选中可以修改的格，表中红色部分，黑色为禁止读者修改选项。 2、右击选择“设置单元格”---“保护”---取消“锁定”勾选。 3、右击表格的“sheet1”---“保护工作表”---“密码”。 4、需要取消锁定时，右击表格的“sheet1”---“撤销工作表保护”，输入原密码即可。 篇三:如何解除EXCEL工作表锁定 在日常工作中，大家有时会遇到过这样的情况:使用Excel编制的报表、表格、程序等，在单元格中设置了公式、函数等，为了防止其他人修改您的设置或者防止您自己无意中修改，您可能会使用Excel的工作表保护功能，但时间久了保护密码容易忘记，这该怎么办,有时您从网上下载的Excel 7 格式的小程序，您想修改，但是作者加了工作表保护密码，怎么办,您只要按照以下步骤操作，Excel工作表保护密码瞬间(稍微有点夸张)即破～ 工具/原料 ? 待破解的Excel工作表 方法/步骤 1. 1 打开您需要破解的Excel文件，如图所示: 2. 2 依次点击菜单栏上的工具---宏----录制新宏; 3. 3 输入宏名字(PS:打击积极性啊～)如:易尔拓，然后停止录制(这样得到一个空宏，为后面添加vb代码做准备); 4. 4 依次点击菜单栏上的工具---宏----宏,选易尔拓,点编辑按钮; 删除窗口中的所有字符,替换为下面的内容; Option Explicit Public Sub AllInternalPasswords() ' Breaks worksheet and workbook structure passwords. Bob McCormick ' probably originator of base code algorithm 8 modified for coverage ' of workbook structure / windows passwords and for multiple passwords ' ' Norman Harker and JE McGimpsey 27-Dec-2002 (Version 1.1) ' Modified 2003-Apr-04 by JEM: All msgs to cons tants, and ' eliminate one Exit Sub (Version 1.1.1) ' Reveals hashed passwords NOT original passwords Const DBLSPACE As String = vbNewLine & vbNewLine Const AUTHORS As String = DBLSPACE & vbNewLine & _ Adapted from Bob McCormick base code by & _ Norman Harker and JE McGimpsey Const HEADER As String = AllInternalPasswords User Message Const VERSION As String = DBLSPACE & Version 1.1.1 2003-Apr-04 Const REPBACK As String = DBLSPACE & Please report failure & _ to the microsoft.public.excel.programming newsgroup. Const ALLCLEAR As String = DBLSPACE & The 9 workbook should & _ now be free of all password protection, so make sure you: & _ DBLSPACE & SAVE IT NOW! & DBLSPACE & and also & _ DBLSPACE & BACKUP!, BACKUP!!, BACKUP!!! & _ DBLSPACE & Also, remember that the password was & _ put there for a reason. Don't stuff up crucial formulas & _ or data. & DBLSPACE & Access and use of some data & _ may be an offense. If in doubt, don't. Const MSGNOPWORDS1 As String = There were no passwords on & _ sheets, or workbook structure or windows. & AUTHORS & VERSION Const MSGNOPWORDS2 As String = There was no protection to & _ workbook structure or windows. & DBLSPACE & _ Proceeding to unprotect sheets. & AUTHORS & VERSION Const MSGTAKETIME As String = After pressing OK button this & _ 10 will take some time. & DBLSPACE & Amount of time & _ depends on how many different passwords, the & _ passwords, and your computer's specification. & DBLSPACE & _ Just be patient! Make me a coffee! & AUTHORS & VERSION Const MSGPWORDFOUND1 As String = You had a Worksheet & _ Structure or Windows Password set. & DBLSPACE & _ The password found was: & DBLSPACE & $$ & DBLSPACE & _ Note it down for potential future use in other workbooks by & _ the same person who set this password. & DBLSPACE & _ Now to check and clear other passwords. & AUTHORS & VERSION Const MSGPWORDFOUND2 As String = You had a Worksheet & _ password set. & DBLSPACE & The password found was: & _ DBLSPACE & $$ & DBLSPACE & Note it down for potential & _ future use in other workbooks by same person who & _ 11 set this password. & DBLSPACE & Now to check and clear & _ other passwords. & AUTHORS & VERSION Const MSGONLYONE As String = Only structure / windows & _ protected with the password that was just found. & _ ALLCLEAR & AUTHORS & VERSION & REPBACK Dim w1 As Worksheet, w2 As Worksheet Dim i As Integer, j As Integer, k As Integer, l As Integer Dim m As Integer, n As Integer, i1 As Integer, i2 As Integer Dim i3 As Integer, i4 As Integer, i5 As Integer, i6 As Integer Dim PWord1 As String Dim ShTag As Boolean, WinTag As Boolean Application.ScreenUpdating = False With ActiveWorkbook WinTag = .ProtectStructure Or .ProtectWindows End With ShTag = False For Each w1 In Worksheets ShTag = ShTag Or w1.ProtectContents Next w1 If Not ShTag And Not WinTag Then 12 MsgBox MSGNOPWORDS1, vbInformation, HEADER Exit Sub End If 13