左移一个字符：←（Left,左箭头键）
右移一个字符：→（Right,右箭头键）
左移一个单词：Ctrl+←
右移一个单词：Ctrl+→
移至行首：Home
移至行尾：End
上移一行：↑（Up，上箭头键）
下移一行：↓（Down，下箭头键）
上移一段：Ctrl+↑
下移一段：Ctrl+↓
上移一屏（滚动）：PageUp
下移一屏（滚动）：PageDown
移至文档开头：Ctrl+Home
移至文档结尾：Ctrl+End
选定文字或图形选定整篇文档：Ctrl+A
选定不连续文字：Ctrl+鼠标拖动
选定连续文字：鼠标拖动或者Shift+单击首尾处选定到左侧的一个字符：Shift+←
选定到右侧的一个字符：Shift+→
选定到上一个单词开始：Ctrl+Shift+←
选定到下一个单词结尾：Ctrl+Shift+→
选定到行首：Shift+Home
选定到行尾：Shift+End
选定到上一行：Shift+↑
选定到下一行：Shift+↓
选定到段首：Ctrl+Shift+↑
选定到段尾：Ctrl+Shift+↓
选定到文档开始处：Ctrl+Shift+Home
选定到文档结尾处：Ctrl+Shift+End
用于菜单栏、右键菜单、选项卡和对话框的快捷键激活菜单栏：Alt或者F10 选择选项：Alt+字母（选项后面的下划线字母）
取消命令并关闭选项卡或者对话框：Esc
执行默认按钮(一般为“确定”)：Enter
切换至下一张选项卡：Ctrl+Tab
切换至上一张选项卡：Ctrl+Shift+T ab
移至下一选项或选项组：T ab
移至上一选项或选项组：Shift+T ab
执行所选按钮的指定操作：Space
选中列表时打开所选列表：Alt+↓
选中列表时关闭所选列表：Esc
设置字符格式和段落格式复制格式：Ctrl+Shift+C
粘贴格式：Ctrl+Shift+V
切换字母大小写：Shift+F3
改变字号（打开“字体”下拉框）：Ctrl+Shift+P
改变字符格式（"格式"菜单中的"字体"命令）：Ctrl+D 打开“样式和格式”：Ctrl+Shift+O
应用加粗格式：Ctrl+B
应用下划线格式：Ctrl+U
应用倾斜格式：Ctrl+I
增大字号：Ctrl+]或者Ctrl+Shift+>(句号)
减小字号：Ctrl+[或者Ctrl+Shift+<（逗号
应用下标格式（自动间距）：Ctrl+=（等号）
应用上标格式（自动间距）：Ctrl+Shift++（加号）居中对齐：Ctrl+E
两端对齐：Ctrl+J
左对齐：Ctrl+L
右对齐：Ctrl+R
分散对齐：Ctrl+Shift+Ｊ
用于编辑排版的快捷键复制：Ctrl+C
剪切：Ctrl+X
粘贴：Ctrl+V
撤消上一步操作：Ctrl+Z
恢复上一步操作：Ctrl+Y
删除左侧的一个字符：Backspace
删除左侧的一个单词：Ctrl+Backspace
删除右侧的一个字符：Delete
删除右侧的一个单词：Ctrl+Delete（可能与输入法热键冲突）
激活插入状态：Insert
插入域：Ctrl+F9
插入换行符：Shift+Enter
插入分页符：Ctrl+Enter
插入超链接：Ctrl+Ｋ
插入书签：Ctrl+Shift+F5
插入图片：Alt+I+P+F
增加缩进量：Shift+Alt+→
减少缩进量：Shift+Alt+←
用于处理文档的快捷键创建新文档：Ctrl+N或者Alt+F+N（对应New）打开文档：Ctrl+O或者Alt+F+O(对应Open)
关闭文档：Ctrl+W或者Alt+W+C
保存当前文档：Ctrl+S或者Alt+F+S（对应Save）
文档另存为：F12或者Alt+F+A（对应Save As）
打印文档：Ctrl+Ｐ或者Alt+F+Ｐ（对应Print）
查找文字、格式和特殊项：Ctrl+F
替换文字、特殊格式和特殊项：Ctrl+H
定位至页、节或者书签：Ctrl+G
打开或关闭标记修订功能：Ctrl+Shift+E
插入批注：Alt+I+M
切换到页面视图：Alt+V+L
切换到大纲视图：Alt+V+O或者Ctrl+Alt+O
提升样式和格式的级别：Ctrl+Alt+→
提升样式和格式的级别：Ctrl+Alt+←
将样式和格式恢复到“正文”级别：Cthrl+Shit+N
统计文档字数：Alt+T+W或者Cthrl+Shit+G
用于WPS窗口的快捷键最小化WPS窗口：Alt+Space+N（Space为空格键）最大化WPS窗口：Alt+Space+Ｘ或者Ctrl+F10
还原WPS窗口：Alt+Space+Ｒ
关闭ＷPS窗口：Alt+F4/Alt+Space+C或者Alt+F+X
切换标签（文档）：Ctrl+Tab或者Ctrl+Shift+T ab
关闭标签（文档）：Ctrl+W/Ctrl+F4或者Alt+W+C
并排比较两个文档：Alt+W+B
打开任务窗格：Ctrl+F1
打开在线素材：Ctrl+3
打开首页：Alt+V+E
打开帮助：F1或者Alt+H+H
Sub 合并当前目录下所有工作簿的全部工作表()
Dim mypath, myname, awbname
Dim wb As Workbook, wbn As String
Dim g As Long
Dim num As Long
Dim box As String
Application.ScreenUpdating = False
mypath = ActiveWorkbook.Path
myname = Dir(mypath & "\" & "*.xls")
awbname = https://www.doczj.com/doc/8812961077.html,
num = 0
Do While myname <> ""
If myname <> awbname Then
Set wb = Workbooks.Open(mypath & "\" & myname)
num = num + 1
With Workbooks(1).ActiveSheet
.Cells(.Range("a65536").End(xlUp).Row + 2, 1) = Left(myname, Len(myname) - 4)
For g = 1 To Sheets.Count
wb.Sheets(g).UsedRange.Copy .Cells(.Range("a65536").End(xlUp).Row + 1, 1)
Next
wbn = wbn & Chr(13) & https://www.doczj.com/doc/8812961077.html,
wb.Close False
End With
End If
myname = Dir
Loop
Range("a1").Select
Application.ScreenUpdating = True
MsgBox "共合并了" & num & "个工作薄下的全部工作表。如下：" & Chr(13) & wbn, vbInformation, "提示"
End Sub
Sub 合并当前工作簿下的所有工作表()
Application.ScreenUpdating = False
For j = 1 To Sheets.Count
If Sheets(j).Name <> https://www.doczj.com/doc/8812961077.html, Then
X = Range("A65536").End(xlUp).Row + 1
Sheets(j).UsedRange.Copy Cells(X, 1)
End If
Next
Range("B1").Select
Application.ScreenUpdating = True
MsgBox "当前工作簿下的全部工作表已经合并完毕！", vbInformation, "提示" End Sub
将多个表格合并到一个表格中形成多个sheet工作簿
Sub Find()
Application.ScreenUpdating = False
Dim MyDir As String
MyDir = ThisWorkbook.Path & "\"
ChDrive Left(MyDir, 1) 'find all the excel files
ChDir MyDir
Match = Dir$("")
Do
If Not LCase(Match) = LCase(https://www.doczj.com/doc/8812961077.html,) Then Workbooks.Open Match, 0 'open
ActiveSheet.Copy Before:=ThisWorkbook.Sheets(1) 'copy sheet Windows(Match).Activate
ActiveWindow.Close
End If
Match = Dir$
Loop Until Len(Match) = 0
Application.ScreenUpdating = True
End Sub