常用Word,Excel技巧（自用）

前言

这是自己平时在学习中会碰到的一些Word使用技巧，不定时更新，自用保存

一、word插件删除

问题：软件安装过程中默认向Word中安装插件，这些插件用处不大，但每次打开一个文档都需要加载出来，有些浪费时间。

方法：首先点击“文件”“选项”，点击“加载项”。 然后选择要删除的插件，点击“转到”。 最后点击“删除”即可。

二、Excel表格

2.1 表格合并

问题：楼层长的工作包括合并所有楼层的文明联检表格，表头相同，但是一个个复制粘贴太麻烦，数量过多。

方法：1.首先将所有表格的xls，xlsx格式转换为csv格式：
新建文档-按Alt+F11两键，调出Visual Basic 界面，在左侧窗口中，右键选择“插入”—“模块”，将代码粘贴进去，点击运行按钮，完成数据表格式转换。（若有xls文档需求，可以在底下代码对应地方修改）
代码如下：

Sub xlsxtocsv()
Application.ScreenUpdating = False
Application.DisplayAlerts = False
t = ActiveWorkbook.Name
mypath = ActiveWorkbook.Path & "\"
myfile = Dir(mypath & "*.xlsx")
Do Until Len(myfile) = 0
If myfile <> t Then
    Workbooks.Open Filename:=mypath & myfile
    ActiveWorkbook.SaveAs Filename:=mypath & Left(myfile, InStr(myfile, ".") - 1) & ".csv", FileFormat:=xlCSV
End If
If myfile <> t Then ActiveWorkbook.Close
myfile = Dir
Loop
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub

2.使用合并.bat，双击运行（要在同一个文件夹下，则数据表合并成功）
*内部代码为：copy .csv all.csv，另存为bat后缀

---

更新：法2：
VBA法：
新建一个工作簿，打开，直接按Alt+F11两键，调出Visual Basic 界面，在左侧窗口中，右键选择“插入”—“模块”，将代码粘贴进去，点击运行按钮，完成数据表合并。
代码如下：

Sub 合并当前工作簿下的所有工作表()
On Error Resume Next
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Set st = Worksheets.Add(before:=Sheets(1))
st.Name = "合并"
For Each shet In Sheets:
If shet.Name <> "合并" Then
i = st.Range("A" & Rows.Count).End(xlUp).Row + 1
shet.UsedRange.Copy
st.Cells(i, 1).PasteSpecial Paste:=xlPasteAll
End If
Next
Application.DisplayAlerts = True
Application.ScreenUpdating = True
MsgBox "已完成"
End Sub

---

代码或者：（不清楚哪种更好，但只能xlsx或xls同种类型合并，若为混合型，建议先全部转为csv格式用第一种方法比较容易）

Sub 合并当前目录下所有工作簿()
Dim Wb As Workbook
Application.ScreenUpdating = False
MyPath = ActiveWorkbook.Path
MyName = Dir(MyPath & "\" & "*.xlsx")
AWbName = ActiveWorkbook.Name
Do While MyName <> ""
If MyName <> AWbName Then
Set Wb = Workbooks.Open(MyPath & "\" & MyName)
c = ThisWorkbook.Sheets("sheet1").UsedRange.SpecialCells(xlCellTypeLastCell).Row
If c = 1 Then   '防止合并的工作簿第一行空着
c = 0
End If
ActiveSheet.UsedRange.Copy ThisWorkbook.Sheets("sheet1").Cells(c + 1, 1)  '合并工作簿的第一个sheet名字为：sheet1
Wb.Close False
End If
MyName = Dir
 Loop
 Application.ScreenUpdating = True
 MsgBox "已完成"
End Sub

注意：
1.删除无限行的方法：
（1）下方无限行，选中第一行，按住shift+ctrl+↓能选中所有，右键删除后保存退出重开；
（2）右方无限列，选中第一列，按住shift+ctrl+→能选中所有，右键删除后保存退出重开。

2.2删除表格重复行

1.打开Excel表格，全选表格里的单元格。
2.点击菜单栏的“数据”。
3.点击“删除重复值”。
4.勾选要删除的包含重复值的列，点击“确定”。
5.点击“确定”即可。

三.文件夹部分

3.1 批量修改文件后缀

1.将需要批量修改后缀名的文件放入同一个文件夹
2.依次【选中文件】-【右击】-【属性】查看这些文件的后缀，可以看到后缀为.gif
3.在文件夹内新建文本文档，文档名称随意
4.在文档内输入ren *.gif *.jpg
5.另保存为【新建文本文档.bat】
6、点击【新建文本文档.bat】
7、文件后缀就全部改成.jpg了

其他文件类比

3.2批量修改文件名

Excel
1、准备好你的文件内容
将需要进行批量改名的文件统一放在一个文件夹里

2、将需要改名文件的文件名批量导出
“Ctrl+A”全选，按住Shift键后右击鼠，然后选择“复制到路径（A）”；

3、在excel里面处理原始文件名
新建一个excel表格，在第一列（A列）“Ctrl+V”粘贴刚才复制的原始文件名，然后把文件名前面的一致的路径名全部删掉（用“Ctrl+F”的查找替换功能替换成空值）；

4、准备好新的文件名
在第二列（B列）输入（或者整理资料过来粘贴）目标新文件名（带上文件名后缀）；

5、输入改名公式
在第三列（C列）输入公式：=“ren “&A2&” “&B2&””，需要注意，ren的后面有一个空格，"&A2&“和”&B2&“的中间也有一个空格，两端的引号”"需要闭合，所有字符输入的格式都采用英文格式；

6、将改名公式导出为改名插件
将C列中涉及到需要更名的内容“Ctrl+C”复制出来，新建一个txt文本文档，“Ctrl+V”粘贴，另存为：保存类型：所有文件( .)，文件名改为：xxx.bat，编码：ANSI，然后将其存到我们照片的文件夹中，即可生成一个windows批量处理的插件；

7、一键批量改名
在文件所在文件夹中双击运行这个插件，就ok了。