去百度文库,查看完整内容>
内容来自用户:微力图文
篇一:word巧妙复制表格等一些简单技巧 word巧妙复制表格等一些简单技巧 a、拖动表格 1、首先切换到页面视图方式,然后将指针停留在表格的左上角上,直到表格移动控点即一个方框内有一个四向箭头出现; 2、将指针停留在表格移动控点上,直到一个黑色四向箭头出现; 3、按住ctrl键,将副本拖动到新的位置。 b、粘贴表格 当然,使用常用工具栏中的“复制”和“粘贴”命令同样可以完成表格的复制工作。不过,当你要将表格项从一个表格粘贴到另一个表格中,而且作为该表格中的行、列或嵌套表格,而不是作为文本时,你就必须用到“粘贴表格”命令了。而要使用“粘贴表格”命令,需要你先将其请出来,方法如下。 1、在“工具”菜单中,单击“自定义”命令,然后单击“命令”选项卡; 2、在“类别”框中,单击“编辑”;在“命令”框中,找到并单击“粘贴表格”(如图1),然后左键点住将其拖放到常用工具栏中的适当位置。此时,“粘贴表格”按钮出现在该工具栏中。该按钮命令也被称作“粘贴行”、“粘贴列”或“粘贴为嵌套表格”,这取决于粘贴时单击表格的位置;3、单击“关闭”按钮,关闭“自定义”对话框。 现在,你就可以使用这个“粘贴表格”命令,方便地完成表格项从一个表格到另一个表格的复制工作了。
方法一:
1、选中需要复制的对象;
2、在开始选项卡上单击复制、粘贴按钮,即可进行复制、粘贴。
方法二:
1、选中需要复制的对象;
2、单击鼠标右键,弹出快捷菜单,选择复制、粘贴命令,即可进行复制、粘贴。
方法三:
1、选中需要复制的对象;
2、按组合键 Ctrl + C 进行复制;按组合键 Ctrl + V 进行粘贴即可。
将复制这行拆分,复制后选择性粘贴:
Rows(x & ":" & n).EntireRow.Copy
Range("A1").PasteSpecial
如果是复制的单元格格式,再加上下面一句
Range("A1").PasteSpecial xlPasteFormats
另外,Rows本身就是整行引用,EntireRow在这里就是重复的,可取消,直接改为:
Rows(x & ":" & n).Copy
代码如下,注意代码的位置(详见截图)
Private Sub Worksheet_Activate()
Application.OnKey "~", "Copy4To500"
'Application.OnKey "{ENTER}", "Copy4To500" '小键盘回车键
End Sub
Private Sub Worksheet_Deactivate()
Application.OnKey "~"
'Application.OnKey "{ENTER}"
End Sub
Sub Copy4To500()
Rows("4:500").Copy Sheet2.Range("A4")
ThisWorkbook.Save
End Sub
把Sheet1!A1:E10的格式复制到Sheet2!A1:E10代码如下:
Sheets("Sheet1").Range("A1:E10").Copy
Sheets("Sheet2").Select
Selection.PasteSpecial Paste:=xlPasteFormats
把Sheet1!A1:E10复制到Sheet2!A1:E10代码如下:
Sheets("Sheet1").Range("A1:E10").Copy Sheets("Sheet2").[A1]
有不明白请追问,如有需要可发文件到gang364470141@126.com
打开WPS表格程序,切换到“开发工具”选项卡,点击“说明”按钮,此时将打开说明窗口。
WPS表格VB编辑器怎么用
此此将弹出“说明”窗口,在此根据实际需要点击“专业版”或“商业版”链接按钮,并在弹出的如图所示:
WPS表格VB编辑器怎么用
此时将打开WPS专业版程序,待下载完成后,就会发现WPS开发工具选项变成可用状态。如图所示:
WPS表格VB编辑器怎么用
点击“VB编辑器”进入VBA环境,在此就可以使用WPS更加强大的扩展功能啦。在此小编以创建自定义函数为例,讲解一下VB编辑环境的具体使用方法。
WPS表格VB编辑器怎么用
右击“WPS表格”对象,从弹出的右键菜单中选择“插入”-》“模块”项来插入一个用户模块。
WPS表格VB编辑器怎么用
在此模块编辑界面中,输入以下代码:
Function 求最大值(i As Integer, j As Integer)
If i >j Then
求最大值 = i
Else:
求最大值 = j
End If
End Function
WPS表格VB编辑器怎么用
7
最后返回WPS表格界面,输入公式“=求最大值(3,5)”,即可得输出结果“5”。
WPS表格VB编辑器怎么用