您的浏览器不支持javascript，不能使用此页面的全部功能。
请换用其他浏览器或者开启对javascript的支持。
一投行哥哥的Excel操作大全，太牛B了~~
快捷键之在工作表中移动和滚动向上、下、左或右移动单元格箭头键 移动到当前数据区域的边缘：CTRL+ 箭头键 移动到行首：HOME 移动到工作表的开头：CTRL+HOME 移动到工作表的最后一个单元格。：CTRL+END 向下移动一屏：PAGE DOWN 向上移动一屏：PAGE UP 向右移动一屏：ALT+PAGE DOWN 向左移动一屏：ALT+PAGE UP 移动到工作簿中下一个工作表：CTRL+PAGE DOWN 移动到工作簿中前一个工作表：CTRL+PAGE UP 移动到下一工作簿或窗口：CTRL+F6 或 CTRL+TAB 移动到前一工作簿或窗口：CTRL+SHIFT+F6 移动到已拆分工作簿中的下一个窗格：F6 移动到被拆分的工作簿中的上一个窗格：SHIFT+F6 滚动并显示活动单元格：CTRL+BACKSPACE 显示“定位”对话框：F5 显示“查找”对话框：SHIFT+F5 重复上一次“查找”操作：SHIFT+F4 在保护工作表中的非锁定单元格之间移动：TAB 2&Excel快捷键之处于END模式时在工作表中移动 打开或关闭 END 模式：END 在一行或列内以数据块为单位移动：END, 箭头键 移动到工作表的最后一个单元格.：END, HOME 在当前行中向右移动到最后一个非空白单元格。：END, ENTER 3&Excel快捷键之处于“滚动锁定”模式时在工作表中移动 打开或关闭滚动锁定：SCROLL LOCK 移动到窗口中左上角处的单元格：HOME 移动到窗口中右下角处的单元格：END 向上或向下滚动一行：上箭头键或下箭头键 向左或向右滚动一列：左箭头键或右箭头键 4&Excel快捷键之用于预览和打印文档 显示“打印”对话框：CTRL+P 在打印预览中时： 当放大显示时，在文档中移动：箭头键 当缩小显示时，在文档中每次滚动一页：PAGE UP 当缩小显示时，滚动到第一页：CTRL+上箭头键 当缩小显示时，滚动到最后一页：CTRL+下箭头键 5&Excel快捷键之用于工作表、图表和宏 插入新工作表：SHIFT+F11 创建使用当前区域的图表：F11 或 ALT+F1 显示“宏”对话框：ALT+F8 显示“Visual Basic 编辑器”：ALT+F11 插入 Microsoft Excel 4.0 宏工作表：CTRL+F11 移动到工作簿中的下一个工作表：CTRL+PAGE DOWN 移动到工作簿中的上一个工作表：CTRL+PAGE UP 选择工作簿中当前和下一个工作表：SHIFT+CTRL+PAGE DOWN 选择当前工作簿或上一个工作簿：SHIFT+CTRL+PAGE UP 6&Excel快捷键之选择图表工作表 选择工作簿中的下一张工作表：CTRL+PAGE DOWN 选择工作簿中的上一个工作表：CTRL+PAGE UP，END, SHIFT+ENTER 7&Excel快捷键之用于在工作表中输入数据 完成单元格输入并在选定区域中下移：ENTER 在单元格中折行：ALT+ENTER 用当前输入项填充选定的单元格区域：CTRL+ENTER 完成单元格输入并在选定区域中上移：SHIFT+ENTER 完成单元格输入并在选定区域中右移：TAB 完成单元格输入并在选定区域中左移：SHIFT+TAB 取消单元格输入：ESC 删除插入点左边的字符，或删除选定区域：BACKSPACE 删除插入点右边的字符，或删除选定区域：DELETE 删除插入点到行末的文本：CTRL+DELETE 向上下左右移动一个字符：箭头键 移到行首：HOME 重复最后一次操作：F4 或 CTRL+Y 编辑单元格批注：SHIFT+F2 由行或列标志创建名称：CTRL+SHIFT+F3 向下填充：CTRL+D 向右填充：CTRL+R 定义名称：CTRL+F3 8&Excel快捷键之设置数据格式 显示“样式”对话框：ALT+' （撇号） 显示“单元格格式”对话框：CTRL+1 应用“常规”数字格式：CTRL+SHIFT+~ 应用带两个小数位的“贷币”格式：CTRL+SHIFT+$ 应用不带小数位的“百分比”格式：CTRL+SHIFT+% 应用带两个小数位的“科学记数”数字格式：CTRL+SHIFT+^ 应用年月日“日期”格式：CTRL+SHIFT+# 应用小时和分钟“时间”格式，并标明上午或下午：CTRL+SHIFT+@ 应用具有千位分隔符且负数用负号 (-) 表示：CTRL+SHIFT+! 应用外边框：CTRL+SHIFT+& 删除外边框：CTRL+SHIFT+_ 应用或取消字体加粗格式：CTRL+B 应用或取消字体倾斜格式：CTRL+I 应用或取消下划线格式：CTRL+U 应用或取消删除线格式：CTRL+5 隐藏行：CTRL+9 取消隐藏行：CTRL+SHIFT+( 左括号 隐藏列：CTRL+0（零） 取消隐藏列：CTRL+SHIFT+)右括号 9&Excel快捷键之编辑数据 编辑活动单元格并将插入点放置到线条末尾：F2 取消单元格或编辑栏中的输入项：ESC 编辑活动单元格并清除其中原有的内容：BACKSPACE 将定义的名称粘贴到公式中：F3 完成单元格输入：ENTER 将公式作为数组公式输入：CTRL+SHIFT+ENTER 在公式中键入函数名之后，显示公式选项板：CTRL+A 在公式中键入函数名后为该函数插入变量名和括号：CTRL+SHIFT+A 显示“拼写检查”对话框。：F7 键 10&Excel快捷键之插入、删除和复制选中区域 复制选定区域：CTRL+C 剪切选定区域：CTRL+X 粘贴选定区域：CTRL+V 清除选定区域的内容：DELETE 删除选定区域：CTRL+ 连字符 撤消最后一次操作：CTRL+Z 插入空白单元格：CTRL+SHIFT+ 加号 11&Excel快捷键之在选中区域内移动 在选定区域内由上往下移动：ENTER 在选定区域内由下往上移动：SHIFT+ENTER 在选定区域内由左往右移动：TAB 在选定区域内由右往左移动：SHIFT+TAB 按顺时针方向移动到选定区域的下一个角：CTRL+PERIOD 右移到非相邻的选定区域：CTRL+ALT+右箭头键 左移到非相邻的选定区域：CTRL+ALT+左箭头键 12&Excel快捷键之选择单元格、列或行 选定当前单元格周围的区域：CTRL+SHIFT+*（星号） 将选定区域扩展一个单元格宽度：SHIFT+ 箭头键 选定区域扩展到单元格同行同列的最后非空单元格：CTRL+SHIFT+ 箭头键 将选定区域扩展到行首：SHIFT+HOME 将选定区域扩展到工作表的开始：CTRL+SHIFT+HOME 将选定区域扩展到工作表的最后一个使用的单元格：CTRL+SHIFT+END 选定整列：CTRL+SPACEBAR 选定整行：SHIFT+SPACEBAR 选定整个工作表：CTRL+A 如果选定了多个单元格则只选定其中的单元格：SHIFT+BACKSPACE 将选定区域向下扩展一屏：SHIFT+PAGE DOWN 将选定区域向上扩展一屏：SHIFT+PAGE UP 选定了一个对象，选定工作表上的所有对象：CTRL+SHIFT+SPACEBAR 在隐藏对象、显示对象与对象占位符之间切换：CTRL+6 显示或隐藏“常用”工具栏：CTRL+7 使用箭头键启动扩展选中区域的功能：F8 将其他区域中的单元格添加到选中区域中：SHIFT+F8 将选定区域扩展到窗口左上角的单元格：SCROLLLOCK, SHIFT+HOME 将选定区域扩展到窗口右下角的单元格：SCROLLLOCK, SHIFT+END 13&Excel快捷键之处于End模式时展开选中区域 打开或关闭 END 模式：END 将选定区域扩展到单元格同列同行的最后非空单元格：END, SHIFT+ 箭头键 将选定区域扩展到工作表上包含数据的最后一个单元格：END, SHIFT+HOME 将选定区域扩展到当前行中的最后一个单元格：END, SHIFT+ENTER 14&Excel快捷键之选择含有特殊字符单元格 选中活动单元格周围的当前区域：CTRL+SHIFT+*（星号） 选中当前数组，此数组是活动单元格所属的数组：CTRL+/ 选定所有带批注的单元格：CTRL+SHIFT+O (字母 O) 选择行中不与该行内活动单元格的值相匹配的单元格：CTRL+\ 选中列中不与该列内活动单元格的值相匹配的单元格：CTRL+SHIFT+| 选定当前选定区域中公式的直接引用单元格：CTRL+[ （左方括号） 选定当前选定区域中公式直接或间接引用的所有单元格：CTRL+SHIFT+{ 左大括号 只选定直接引用当前单元格的公式所在的单元格：CTRL+] （右方括号） 选定所有带有公式的单元格，这些公式直接或间接引用当前单元格：CTRL+SHIFT+}右大括号 下一篇：
又看了一遍。。
我決定默默背下來！
mark，得慢慢学
马克。。。
帅~~~~excel用的少，先存着。
要留记号，以后有用
先存着 再看看
留着，很有用
看来得存着慢慢看，每次有时间的时候都下决心要学，但是就是坚持不下来啊，用的时候就真真切切的意识到书到用时方恨少
要记得真多
太好了 mark留下
推荐这篇日记的豆列
(谁家的二姑娘)excel 宏 单元格区域每次下移两行_百度知道
excel 宏 单元格区域每次下移两行
SelectEnd Sub请问怎么让上面的单元格区域每次下移两行即A21; Double background color'A23&quot:K22变为A24Sub Macro1()&#39.ThemeColor = xlThemeColorDark1).Select
With S); Macro1 Macro&#39.Interior
.TintAndShade = 0
:K21&'').Pattern = xlNone
：K23A22.TintAndShade = -0.PatternTintAndShade = 0
Range(&A21;A22.Interior
With Selection:K22&quot:K21变为A23.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.PatternTintAndShade = 0
Range(&quot
提问者采纳
&i .ThemeColor = xlThemeColorDark1
.PatternColorIndex = xlAutomatic
:&quot.Select
With SK&A&quot.Pattern = xlSolid&i).PatternTintAndShade = 0
End Withnext没测试.Select
With SA&quot.Pattern = xlNone&i);&i.526
.TintAndShade = 0
.PatternTintAndShade = 0
End Withi=i+1
Range(&quot:&quot.TintAndShade = -0;K&quot.Interior
for i=21 to 800 step 2
Range(&quot.Interior
提问者评价
其他类似问题
单元格区域的相关知识
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁查看: 5335|回复: 5|
在线时间0 小时经验41 威望0 性别男最后登录注册时间阅读权限20UID12060积分41帖子精华0分享0
EH初级, 积分 41, 距离下一级还需 309 积分
积分排行3000+帖子精华0微积分0
在此向各位高手请教，帮忙解决一个难题：如WORD文档中有多个表格，而在最后一个表格中, 从第一个单元格开始的连续若干格中，各有一张图片；而在次行的单元格中则有相对应的图片内容描述。
现在的问题是：当有时想在某处（第一张之后，最后一张图片之前）插入一张新的图片及其对应的描述时，需对欲插入点之后的每一对图片和描述进行多次“复制/粘贴”操作来进行移位，相应地，如果要删除某一张时，需要把其后的全部向前移动。如果图片张数多时（60多张）工作量非常大。
请问有无何种快速的方法可行（例如通过VBA或者宏）？注： 此表格列数固定为3列, 有图片的单元格须连续，而行数根据图片数不定。附情请参见所附WORD文档。
请各位高手不吝赐教，谢谢！
(185.4 KB, 下载次数: 10)
18:06 上传
下载次数: 10
[求助]如何把Word 单元格中的内容批量移位
[此贴子已经被作者于 18:13:12编辑过]
猜你喜欢看
在线时间311 小时经验3660 威望18 性别男最后登录注册时间阅读权限95UID10904积分5260帖子精华1分享0
积分排行180帖子精华1微积分0
只将字和其对应的图片同时拖黑，再拖到目的地不行吗？
同时多选中几组也是可以移动嘀。
[此贴子已经被作者于 20:32:41编辑过]
凡是低层次的重复劳动，都可能有一种能自动处理的方法与之对应...
在线时间6 小时经验390 威望0 性别男最后登录注册时间阅读权限30UID214696积分390帖子精华0分享0
EH中级, 积分 390, 距离下一级还需 710 积分
积分排行2982帖子精华0微积分0
vba如何实现呢？版主有办法吗？
在线时间901 小时经验15009 威望29 性别男最后登录注册时间阅读权限100UID12381积分21109帖子精华22分享0
积分排行12帖子精华22微积分0
以下是引用菊石泽露在 22:31:15的发言：vba如何实现呢？版主有办法吗？请参考：我提示一下，用WORD特有的方法，即将图片链接到文件，这是一个域，将域读取到数组，再赋值到单元格即可。
在线时间4626 小时经验2848 威望0 性别男最后登录注册时间阅读权限70UID94680积分3198帖子精华1分享0
EH铁杆, 积分 3198, 距离下一级还需 2 积分
积分排行305帖子精华1微积分0
不会处理图片对象，只用移动单元格的方法试学着做了一个前移图片的宏，好像可以执行，至于运行速度等就无力考究了，请各位赐教。Sub movepics()'请首先将光标置于第一个需要前移图片的（空白）单元格。On Error GoTo exit_1Application.ScreenUpdating = FalseDim n As Integer, Rownum As Integer, Colnum As ByteNP:& With Selection&&&&&&& '判断光标是否在表格中&&&&&&& If .Information(wdWithInTable) Then&&&&&&&&&&& '要求插入点所在表格为3列且大于3行，并只选中一个单元格&&&&&&&&&&& If .Tables(1).Rows.Count & 3 _&&&&&&&&&&& And .Tables(1).Columns.Count = 3 And .Cells.Count = 1 Then&&&&&&&&&&&&&&& Rownum = .Information(wdEndOfRangeRowNumber)&&&&&&&&&&&&&&& Colnum = .Information(wdEndOfRangeColumnNumber)&&&&&&&&&&&&&&& '判断插入点是否在表格最后两行，此处可能有误。&&&&&&&&&&&&&&& If Rownum + 1 &= .Tables(1).Rows.Count And Colnum = 3 Then&&&&&&&&&&&&&&&&&&& Application.ScreenUpdating = True&&&&&&&&&&&&&&&&&&& MsgBox "已到表格末尾，共移动了" & n & "次。", vbOKOnly&&&&&&&&&&&&&&&&&&& Exit Sub&&&&&&&&&&&&&&& End If&&&&&&&&&&&&&&& '判断插入点是否处于表格第3列&&&&&&&&&&&&&&& If Colnum Mod 3 && 0 Then&&&&&&&&&&&&&&&&&&& .MoveRight unit:=wdCell, Count:=1&&&&&&&&&&&&&&&&&&& .MoveDown unit:=wdLine, Count:=1, Extend:=wdExtend&&&&&&&&&&&&&&&&&&& .Cut&&&&&&&&&&&&&&&&&&& .MoveLeft unit:=wdCell, Count:=1&&&&&&&&&&&&&&&&&&& .MoveDown unit:=wdLine, Count:=1, Extend:=wdExtend&&&&&&&&&&&&&&&&&&& .Paste&&&&&&&&&&&&&&&&&&& .MoveRight unit:=wdCell, Count:=2&&&&&&&&&&&&&&& Else&&&&&&&&&&&&&&&&&&& .MoveDown unit:=wdLine, Count:=2&&&&&&&&&&&&&&&&&&& .MoveLeft unit:=wdCell, Count:=2&&&&&&&&&&&&&&&&&&& .MoveDown unit:=wdLine, Count:=1, Extend:=wdExtend&&&&&&&&&&&&&&&&&&& .Cut&&&&&&&&&&&&&&&&&&& .MoveUp unit:=wdLine, Count:=2&&&&&&&&&&&&&&&&&&& .MoveRight unit:=wdCell, Count:=2&&&&&&&&&&&&&&&&&&& .MoveDown unit:=wdLine, Count:=1, Extend:=wdExtend&&&&&&&&&&&&&&&&&&& .Paste&&&&&&&&&&&&&&&&&&& .MoveDown unit:=wdLine, Count:=1&&&&&&&&&&&&&&&&&&& .MoveLeft unit:=wdCell, Count:=2&&&&&&&&&&&&&&& End If&&&&&&&&&&&&&&& n = n + 1&&&&&&&&&&&&&&& GoTo NP&&&&&&&&&&& End If&&&&&&& End If&&& End Withexit_1: MsgBox "插入点或格式有误！", vbCriticalEnd Sub
我的操作环境：Windows XP + Microsoft Office 2003
在线时间4626 小时经验2848 威望0 性别男最后登录注册时间阅读权限70UID94680积分3198帖子精华1分享0
EH铁杆, 积分 3198, 距离下一级还需 2 积分
积分排行305帖子精华1微积分0
也尝试用range对象练习做了一个，请各位指点Sub movepics2()'请先将插入点置于第一个需要前移图片的（空白）单元格。On Error goto exit_1Application.ScreenUpdating = FalseDim n As Integer, Rownum As Integer, Colnum As Byte, myrange As Range&&& '如果插入点位于表格内，且表格大于3行，则将该表格中插入点及其后的所有单元格设置为处理区域&&& With Selection&&&&&&& If .Information(wdWithInTable) Then&&&&&&&&&&& If .Tables(1).Rows.Count & 3 And .Cells.Count = 1 Then&&&&&&&&&&&&&&& Rownum = .Information(wdEndOfRangeRowNumber)&&&&&&&&&&&&&&& Colnum = .Information(wdEndOfRangeColumnNumber)&&&&&&&&&&&&&&& .MoveRight unit:=wdCharacter, Count:=.Tables(1).Columns.Count _&&&&&&&&&&&&&&&&&&& - Colnum + 1, Extend:=wdExtend&&&&&&&&&&&&&&& .MoveDown unit:=wdLine, Count:=.Tables(1).Rows.Count _&&&&&&&&&&&&&&&&&&& - Rownum, Extend:=wdExtend&&&&&&&&&&& End If&&&&&&& End If&&&&&&& Set myrange = .Range&&& End With&&& With myrange&&& '在单数行的单元格中循环处理&&& For i = 1 To .Cells.Count&&&&&&& If .Cells(i).RowIndex Mod 2 = 1 Then&&&&&&&&&&& '如果单元格位于最右列&&&&&&&&&&& If .Cells(i).ColumnIndex = .Tables(1).Columns.Count And _&&&&&&&&&&&&&&& .Cells(i).RowIndex + 1 & .Tables(1).Rows.Count Then&&&&&&&&&&&&&&& '前移图片&&&&&&&&&&&&&&& With myrange.Cells(i + .Tables(1).Columns.Count + 1).Range&&&&&&&&&&&&&&&&&&& .Select&&&&&&&&&&&&&&&&&&& .Cut&&&&&&&&&&&&&&& End With&&&&&&&&&&&&&&& .Cells(i).Range.Paste&&&&&&&&&&&&&&& '前移图片说明文字&&&&&&&&&&&&&&& With myrange.Cells(i + .Tables(1).Columns.Count * 2 + 1).Range&&&&&&&&&&&&&&&&&&& .Select&&&&&&&&&&&&&&&&&&& .Cut&&&&&&&&&&&&&&& End With&&&&&&&&&&&&&&& .Cells(i + .Tables(1).Columns.Count).Range.Paste&&&&&&&&&&& '如果到达最后一个单元格（表格最后一行应完整）&&&&&&&&&&& ElseIf .Cells(i).RowIndex + 1 &= .Tables(1).Rows.Count _&&&&&&&&&&& And .Cells(i).ColumnIndex = 3 Then&&&&&&&&&&&&&&& Application.ScreenUpdating = True&&&&&&&&&&&&&&& MsgBox "已到表格末尾，共前移了" & n & "次。"&&&&&&&&&&&&&&& Exit Sub&&&&&&&&&&& '其他情况下&&&&&&&&&&& Else&&&&&&&&&&&&&&& '前移图片&&&&&&&&&&&&&&& With myrange.Cells(i + 1).Range&&&&&&&&&&&&&&&&&&& .Select&&&&&&&&&&&&&&&&&&& .Cut&&&&&&&&&&&&&&& End With&&&&&&&&&&&&&&& .Cells(i).Range.Paste&&&&&&&&&&&&&&& '前移说明文字&&&&&&&&&&&&&&& With myrange.Cells(i + .Tables(1).Columns.Count + 1).Range&&&&&&&&&&&&&&&&&&& .Select&&&&&&&&&&&&&&&&&&& .Cut&&&&&&&&&&&&&&& End With&&&&&&&&&&&&&&& .Cells(i + .Tables(1).Columns.Count).Range.Paste&&&&&&&&&&& End If&&&&&&&&&&& n = n + 1&&&&&&& End If&&& Next i&&& End Withexit_1: Application.ScreenUpdating = True&&&&&&& MsgBox "操作或格式有误！", vbCriticalEnd Sub
我的操作环境：Windows XP + Microsoft Office 2003
积分≥4700即可申请
优秀会员奖章No.1
关注我们，与您相约微信公众平台！
Copyright 1999 - 2017 Excel Home. All Rights Reserved.本论坛言论纯属发表者个人意见，任何违反国家相关法律的言论，本站将协助国家相关部门追究发言者责任！
Powered by
本站特聘法律顾问：徐怀玉律师 李志群律师 &&excel中的快捷键_百度文库
两大类热门资源免费畅读
续费一年阅读会员，立省24元！
评价文档：
喜欢此文档的还喜欢
excel中的快捷键
e​x​c​e​l​中​的​快​捷​键
阅读已结束，如果下载本文需要使用
想免费下载本文？
把文档贴到Blog、BBS或个人站等：
普通尺寸(450*500pix)
较大尺寸(630*500pix)
你可能喜欢！诚心请教（宏VBA）指定列的单元格每次下移一行，如何实现？_excel吧_百度贴吧
&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&签到排名：今日本吧第个签到，本吧因你更精彩，明天继续来努力！
本吧签到人数：0成为超级会员，使用一键签到本月漏签0次！成为超级会员，赠送8张补签卡连续签到：天&&累计签到：天超级会员单次开通12个月以上，赠送连续签到卡3张
关注：63,370贴子：
！诚心请教（宏VBA）指定列的单元格每次下移一行，如何实现？收藏
Range("A1").Select
Selection.Find(What:="美女", After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, MatchByte:=False, SearchFormat:=False).Activate
Range("B1").Select
ActiveCell.FormulaR1C1 = "非常漂亮"End Sub上面只是A1单元格的处理宏代码。请教如下：如果A1单元格有“美女”二字，则在B1单元格显示“非常漂亮”。如果没有“美女”二字，B1单元格不处理。然后再处理A2单元格，A2单元格有“美女”二字，则在B2单元格显示“非常漂亮”。再处理A3单元格，直到A10单元格停止。要想实现这个功能，不知如何添加代码。试了很多方法都不成功。所以百度请教！希望高手指教一二。
用手机写的：for i=1 to 10 if cells(i,1)=“美女” then cells(i,2)=“非常漂亮” endif next
range("A1").selectdo while len(selection)&0if instr(1,selection,"MN")&0 then selection.offset(0,1)="FCPL"selection.offset(1,0).selectloop
Sub My()Dim Rng As RangeDim FirstAddress$Set Rng = [A:A].Find(What:="美女", after:=[A65536])If Not Rng Is Nothing ThenFirstAddress = Rng.AddressDoSet Rng = [A:A].FindNext(Rng)Rng.Offset(0, 1) = "非常漂亮"Loop While Not Rng Is Nothing And Rng.Address && FirstAddressEnd IfEnd Sub
谢谢3楼的补充办法。3楼原办法当中间有空单元格，就会停止。补充办法可以跳过空白单元格，不会停止。而且指定行数有效。非常感谢。
登录百度帐号推荐应用
为兴趣而生，贴吧更懂你。或