vb想批量给一个工作簿中所有工作表，复制粘贴相同区域内容代码

vfhpsssqa

现有工作簿中所有工作表（有上百张工作表，格式一样的）已经有内容的了，现在想复制粘贴把sheet1里的区域A37：F48到其他工作表里面（有个单元格有公式），因为格式是一样的，想用vb代码批量添加。请高手帮忙实现！！！
谢谢4楼的公式，修改后有“运行时错误424，要求对象”的问题我自己已解决。

张三李四

Sub 隐藏行()
    Application.ScreenUpdating = False
    For Each myS In ThisWorkbook.Sheets
    myS.Rows("49:65536").EntireRow.Hidden = True
    Next myS
    Application.ScreenUpdating = True
End Sub

vfhpsssqa

张三李四 发表于 2014-8-22 14:52
Sub 隐藏行()
    Application.ScreenUpdating = False
    For Each myS In ThisWorkbook.Sheets

______________________________________

grf1973

1. Sub tt()
   
2.     Dim CopyRng As Range, myS As Worksheet
   
3.     Set CopyRng = Sheet1.Range("A14:C25")
   
4.     For Each myS In ThisWorkbook.Sheets
   
5.         If myS.Index > 1 Then CopyRng.Copy myS.[a14]
   
6.     Next myS
   
7. End Sub
   

复制代码

grf1973

请看附件。这么简单的问题怎么会没人做？

vfhpsssqa

grf1973 发表于 2014-8-23 20:52
请看附件。这么简单的问题怎么会没人做？

谢谢你热心帮忙，修改后有“运行时错误424，要求对象”的问题我自己已解决，非常感谢！！

vfhpsssqa

贴子沉得太厉害，新贴地址http://club.excelhome.net/thread-1147653-1-1.html有个问题，只想复制粘贴到数字名称的工作表，不粘贴到中文名称的工作表

Azrael_gdx6

谢谢楼主！！