怎么样快速批量复制EXCEL来自表格指定行数内容?

万能的vba可以完成。以下是以前为客户的代码供参考。代码如下：
Private Sub CommandButton1_Click() '替换页眉及表格数字
Dim wdoc As New Word.Applica味律赵还tion, 当前路径, 导出文件名, 导出路径文件名, i, j
Dim Str1, Str2
Dim tarr(1 To 100, 1 To 2)
当前路径 = ThisWorkbook.Path

最后行号 = Sheets("数字替换").Range("B65536").End(xlUp).Row
判断 = 0
filepathn混板认京ame = 当前路径 & "\" & 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
.***.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.***.Save
wdoc.Quit
Set wdoc = Nothing
Sheets("首页").Select
End Sub

1.CTRL+A按一下选中数据区域，按两下选中整个表2.鼠标放在数据区任意单元格按ctrl+shift+8是选中连续区域3.鼠标放在数据区域首行按ctrl+shift+下箭头，是选中数据区域的所有行4.鼠标放在数据区域首列按ctrl+shift+右箭头，是选中数据区域的所有列5.鼠标放在数据区域左上角，拖动滚动条到最后行，按住shift同时鼠标点击最右下角单元格6.选定特定不连续区域：按CTRL、SHIFT鼠标点击选择

1.CTRL+A按一下选中数据区域，按两下选中整个表2.鼠标放在数据区任意率朝鲜构普单元格按ctrl+shift+8是选中连续区域3.鼠标放在数据区域首行按ctrl+shift+下箭头，是选中数据区域的所有行4.鼠标放在数据区域首列按ctrl+shift+右箭头，是选中数据区域的所有列5.鼠标放在数据区域左上角，拖动滚动条到最后行，按住shift同时鼠标点击最右下角单元格6.选定特定不连续区域：按CTRL、SHIFT鼠标点击选择

这个表格里有5个sheet表，我们北济卫州先以此距离，方法是一样的，首先我们现在最前面设置一个“目录”，如图所示


然后我们在“目录”的表格里设置如下的小表格，就是所谓的目录，具体如图所示


然后我们鼠标单击序360问答号1及sheet这一列，如图所示，然后我们点击插入，如下图所示：


紧接着我们在插入这一列的菜单栏里，选择“超链接”，如图所示


点击以后，会出现以下对话框，如图所示，它默认的窗口是原有文件或网页，如图所示


我们选择本文档中的位置，如图所示，它会跳出相关信息，如图所示


然后我们能看到小方框里的想信息和我们sheet里的文字是一样的，如图方框里的部分


我们在对应的位置选择对应的文字，如图所示，我们根据我们开始选择的单元格，选择相应的文字，然后点击确定，如图示


然后我们就能看到我们的目录的一行是蓝色的字体，这是链接，如图所示，


我们把另外几个也按照上述的步骤进行操作，如图所示，目录已经全部弄好，然后我们点击对应的蓝色文字，就能跳到相应的sheet表格。