经常使用WPS或Word的小伙伴们知道，在日常工作中，插入表格是常有的事，但是很多小伙伴习惯于用WPS表格或Excel制作表格，用Word制作表格很不熟悉，很多功能都不太会用。下面我们就来给大家讲讲如何利用WPS或Word增删表格行列。
WPS和Word表格行列的增删
首先，我们打开WPS或Word后，想要插入一个表格，需先点击插入菜单，在工具栏的左边选择表格工具，然后拖动鼠标选择行和列的个数，如图：
页面会自动出现一个表格，如果我们在编辑的过程中，需要增加一行或者一列的话，直接点击下边的+号或者右边的加号就可以了，如图：
如果想要增加多行，我们把光标放在行内，连续按Tab键即可实现快速增加多行的效果，如图：
如果想要删除多行的话，则用拖动鼠标的方式选中要删除的行，然后直接按Backspace键就可以删除了，删除多列的操作和这个基本相同哦，选中列后直接按Backspace键，如图：
如果想要删除表格中的内容，则是直接选中表格，按Delete键就可以了。小伙伴们，你学会了吗？

Sub 删表格红色行()
    
    '每个表格只能有一个红色的行，有多个只处理第一个
    Dim tb As Table, cl As Cell
    
    For Each tb In ActiveDocument.Tables
        For Each cl In tb.Range.Cells
            If cl.Range.Font.Color = 255 Then
                cl.Row.Delete
                Exit For
            End If
        Next
    Next
    
    MsgBox "处理完毕！"
End Sub


通过swagger.json转换word api文档后，发现有大量的exception行，做批量移除行操作。



 

编辑Word文档时，中间或最后总是会莫名出现空白页，而且还删不掉。今天就来详细讲解一下。
一、Delete/Backspace键删除
如果空白页处于文档的最后一页，可以直接按Delete或者Backspace直接删除。
二、Shift键删除
还有一种是很多回车键造成的空白页。可以在空白页的上一页最后一个字后面点一下，再按住Shift键选中整个空白页，再按Delete删除就可以了。
三、分页符空白页删除(常用)
有些空白页用Delete或Backspce键时，是删不掉的。这时我们就要想想，是不是插入了分页符？
此时可以这样处理： ①分页符显示-----②分页符删除，就可以把空白页删除了。
一般情况下，分页符默认是隐藏的，是不显示出来的。(之前有讲过)
第一步：分页符显示
方法一：快捷键：Ctrl+Shift+8，即可显示出分页/节符。
方法二：【文件】-【选项】-【显示】-【显示所有格式标记】
方法三：【开始】-【段落】-【显示/隐藏编辑标记】按钮，也可显示或隐藏分节符。
第二步：分页符删除
(1)删除单个分页/节符
如果分页符不多，可以直接选中分页符，然后按Delete键/Backspace键即可删除。
(2)批量删除分页/节符
如果存在大量的分页符，则可以用一键批量删除的方法。
第一步：按【Ctrl+H】键，打开查找和替换对话框，将光标放置于“查找内容”文本框中，之后点击【更多】-【特殊格式】-【手动分页符】/【分节符】/【手动换行符】等命令。
第二步： 替换内容为空，最后点击“全部替换”按钮，替换后文档中的所有分页/节符就自动消失了。
四、表格空白页删除
当文档以表格结尾时，通常会出现一个多余的空白页。实际上就是上一页插入表格，表格过大，占据下一页的空白页，而最后一个回车符挤到下一页中无法删除，就变成了一个空白页。
方法一：调整表格大小
不论是调整整个表格的大小，还是调整表格的某一行的高度，均可。
方法二：调整页边距的大小
双击标尺空白处，打开“页面设置”对话框，调整上、下、左和右页边距值即可。
或【布局】-【页边距】-【自定义页边距】，调整上、下、左和右页边距值即可。
方法三：调整回车符所在段落的行间距
只需将光标位于空白页的首行(即回车符处)，单击右键——【段落】——【行距：固定值】/【设置值：1磅】
五、缩小行距空白页删除
有时候文档多了一句或者几句话，就会占用了一页Word。如果不想多一页Word的话，可以对行距进行调整。
即当空白页只有一行且无法删除，可以调整行间距。
只需将光标位于空白页的首行，单击右键——【段落】——【行距：固定值】/【设置值：1磅】

      昨天，我回答了一个网友提问，想要对表格中填充颜色的单元格进行求和运算，他说没找到方便的办法，于是，本着无休止的探索精神，我查遍了函数公式和VBA语言，最终搞出了一个利用VBA一键自动运算的方法，今天我将详细步骤发一下：
从上图我们可以看到，这里的需求是对付款金额内的颜色填充单元格进行求和然后除以合同金额，最终实现付款进度的显示，这里无论增删行，都只需要点击按钮，就能一键运算，当然也可以下拉。
操作步骤
仅需五步
【粘贴代码】打开VBA编辑器，右键插入模块，复制代码并粘贴。
【绘制按钮】插入一个图形，设置格式，在图形上点击右键指定宏。
【加辅助列】在进度列前面插入一个辅助列，设置列宽，将颜色填充为需要统计的单元格相同的颜色。
【设置格式】给单元格设置格式为显示百分比，条件格式添加添加规则，样式为数据条显示，类型为数字，最小值0最大值1。
上述操作可以不插入按钮，直接使用VBA定义的函数公式：=getmarryyou(A1:B10,C1) 这里的“getmarryyou”为VBA中定义的函数公式名称，可以在VBA第一段代码中自行修改为任意，公式中“A1:B10”为需要按颜色求和的单元格范围（按需选择），“C1”为颜色条件的单元格（例如我对红色填充单元格求和，则需将C1填充为红色，或者将C1改为已经填充为红色的单元格），总之，举一反三！
代码如下▼
Public Function GETMARRYYOU(X As Range, Y As Range)
    For n = 1 To X.Count
        If X(n).Interior.ColorIndex = Y.Interior.ColorIndex Then GETMARRYYOU = GETMARRYYOU + X(n).Value
    Next
End Function
Sub 填入与刷新()
For i = 2 To [G65536].End(3).Row
'i=2意思为第2行起，G65536为G列，上一行为从G列第二行开始判断
     If Cells(i, 7) <> "" Then Cells(i, 9) = "=IFERROR((GETMARRYYOU(RC[1]:RC[6],RC[-1])/RC[-2]),"""")"
     'i,7意思为第7列（即G列），i,9意思为第9列（即I列），上一行意思为如果G列单元格不为空，则在I列填入公式
Next
End Sub
需要注意的是，这是根据网友需求进行设计的，如果表格数据所在行与列发生变化，则需要对代码进行相应修改，代码我添加了注释。