这是我找到的比较有效的合并代码，目前我遇到的问题是因为需要合并的工作簿中都有很多个工作表，我想合并其中特定名称的工作表，请问要修改哪出代码？怎么修改？
第1个回答 推荐于2018-03-29
Sub 打印()
Sheet1.Cells(4, 2).ClearContents
For i = 2 To Sheet2.[b65536].End(3).Row
Sheet1.Cells(4, 2) = Sheet2.Cells(i, 2).Value
Sheet1.PageSetup.PrintArea = "$A$1:$ac$21"
Sheet1.PrintOut
Next
End Sub追问
Sheet1.Cells(4, 2).ClearContents
For i = 2 To Sheet2.[b65536].End(3).Row
Sheet1.Cells(4, 2) = Sheet2.Cells(i, 2).Value
Sheet1.PageSetup.PrintArea = "$A$1:$ac$21"
Sheet1.PrintOut
Next
End Sub追问
抱歉我追加的时候好像不小心把这个图片删除了；目前我用的是查到的这个代码，可用，能在这个基础上修改吗？小白实在看着新代码头疼；我是想把所有工作簿中，名称是“渗透率”的工作表中的内容合并，要如何修改呢？
第2个回答 2018-03-28
总而言之合并一个文件夹下所有文件的所有sheet数据，逐句翻译的话有点麻烦，你有点基础就能看懂了本回答被网友采纳
