如何批量复制excel表格

1.EXcel 表格怎么快速批量复制粘贴的方式

1、选中你要复制到的单位格，如果我们要复制李星到A4单位格，那么就要选中A4单位格。

2、按下ctrl+D，你就会看到上面的单位格被复制到下面了。

3、如果你要复制多个单位格，你可以选中多个单位格如图所示。按下ctrl+d，就可以将上面所有的单位格数据复制。

4、按下ctrl+r，快速复制左侧的单位格，抖客教程网，你会看到这个结果。

5、这是复制之后的结果。

万能的vba可以完成。

以下是以前为客户的代码供参考。代码如下： Private Sub CommandButton1_Click（) '替换页眉及表格数字 Dim wdoc As New Word.Application， 当前路径， 导出文件名， 导出路径文件名， i, j Dim Str1, Str2 Dim tarr(1 To 100, 1 To 2) 当前路径 = ThisWorkbook.Path 最后行号 = Sheets（"数字替换"）.Range("B65536").End(xlUp).Row 判定 = 0 filepathname = 当前路径 & "\" & Tfile If Dir(filepathname) = "" Then '文件不存在 FileCopy 当前路径 & "\" & Sfile， 当前路径 & "\" & Tfile End If Sheets（"数字替换"）.Select For i = KShh To 最后行号 tarr(i - KShh + 1, 1) = Sheets（"数字替换"）.Cells(i, 1) tarr(i - KShh + 1, 2) = Sheets（"数字替换"）.Cells(i, 2) Next i j = i - KShh '记录需替换数字个数 导出路径文件名 = 当前路径 & "\" & Tfile Dim SS As String Dim mySection Dim myTable Dim headText As String '页眉表格内数字 Dim myCell '页眉表格内单位 Dim myFont '页眉表格内单位名目 With wdoc .Documents.Open 导出路径文件名 .Visible = True For Each mySection In wdoc.ActiveDocument.Sections For k = 1 To mySection.Headers.Count Set MYRANGE = mySection.Headers(k).Range '替换页眉中的内容 For Each myTable In MYRANGE.Tables For Each myCell In myTable.Range.Cells headText = myCell.Range.Text For i = 1 To j '查找需替换的数字并替换 If InStr(headText, tarr(i, 1)) > 0 Then '查找到有要替换的字符串 SS = Mid(headText, 1, InStr(headText, tarr(i, 1)) - 1) & tarr(i, 2) myCell.Range.Text = SS End If Next i Next myCell Next myTable Next k Next mySection '替换表格内数字 'Set myTable = Null For Each myTable In wdoc.ActiveDocument.Tables For Each myCell In myTable.Range.Cells headText = myCell.Range.Text For i = 1 To j '查找需替换的数字并替换 If InStr(headText, tarr(i, 1)) > 0 Then '查找到有要替换的字符串 myCell.Range.Text = tarr(i, 2) End If Next i Next myCell Next myTable End With wdoc.Documents.Save wdoc.Quit Set wdoc = Nothing Sheets（"首页"）.Select End Sub。

“复制文件.xlsx”里的各张表（比方表“1”）里的指定区域（比方：“C3:F7”），原原本当地复制粘贴到“粘贴文件.xlsx”里的相应的表（即表“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.Countnm1 = am.Sheets(kk).Name