作者:乔山办公网日期:
返回目录:excel表格制作
“复制文件.xlsx”里的各张表(例如表“1”)里的指定区域(例如:“C3:F7”),原原本本地复制粘贴到“粘贴文件.xlsx”里的相应的表e79fa5e98193e78988e69d83364(即表“1”)里的对应区域(即“C3:F7”),包括公式也要复制。
代码如下:粘贴的不知道Sub zhz9999()
Dim myPath$, myFile$, am As Workbook, aRow%, tRow%, i As Integer
Application.ScreenUpdating = False
Set am = Workbooks("粘贴文件.xlsx")
For k = 1 To ThisWorkbook.Sheets.Count
nm = ThisWorkbook.Sheets(k).Name
For kk = 1 To am.Sheets.Count
nm1 = am.Sheets(kk).Name
If nm = nm1 Then
ThisWorkbook.Sheets(nm).Range("C3:F7").Copy am.Sheets(nm1).Range("C3")
End If
Next
Next
Application.ScreenUpdating = True
End Sub
具体操作步骤如下:
1、首先在表格中利用鼠标,选定我们copy需要复制内容中第一行的内容。
2、然后同时按下键盘上的shift+ctrl以及向右的箭头三个键。
3、此时我们可以看到后面的内容全部呈现选定的状态。
4、在选定的区域的任何位置右击鼠标,在弹出的选项中选择“复制”。
5、此时该区域四周呈现被复制的状态,然后在新的表格内粘贴即可zhidao。
excel如何快速复制粘贴?
1,打开一张表,准备在第3行下面,复制4行。
2,选择4行,鼠标右击,从弹出的快捷zd菜单中选择【复制版】按钮。
3,复制后,选中第4行,鼠标右击,从弹出的快捷才对中选择【插入复制的单元权格】。
4,9行-12行的内容被插入到第3行下,结果如下图所示。
5,接下来,选中A3和B3单元格,拖动右下角句柄,完成单元格填充操作。
6,向下填充完毕,代码递增,名称自动补全字符3,4,5,6。