VB复制区域到所有数字名称工作表中，中文名称工作表不能变

vfhpsssqa · 发表于 2014-8-24 17:05

本帖最后由 vfhpsssqa 于 2014-8-24 17:34 编辑

请问把621404名称工作表的区域A37：F48复制，粘贴到其他所有数字名称（不包含中文名称）工作表中，但中文名称工作表不能复制粘贴（不变）。VB代码如何实现。上附件

代.rar (19.62 KB, 下载次数: 11)
我只能做出整张工作簿所有工作表都复制粘贴，不能排除中文名称工作表。我的错误代码就不写了，请帮忙！

vfhpsssqa · 发表于 2014-8-24 20:26

请高手帮忙啊，论坛没有相似的贴子啊

zax010 · 发表于 2014-8-24 20:31

Sub zz()
Dim sh As Worksheet
For Each sh In Sheets
      If sh.Name <> "621404" And Val(Mid(sh.Name, 2, 1)) > 0 Then
         Sheets("621404").[a37:f48].Copy sh.[a1]
      End If
Next
End Sub

zax010 · 发表于 2014-8-24 20:32

>>>>>>>>>>>>>>>

代.rar (21.24 KB, 下载次数: 18)

grf1973 · 发表于 2014-8-26 10:27

3楼正解。判断条件也可以设置成：

Sub tt()
Dim CopyRng As Range, myS As Worksheet
Set CopyRng = Sheets("621404").Range("A38:F48")
For Each myS In ThisWorkbook.Sheets
If myS.Name <> "621404" And IsNumeric(myS.Name) Then CopyRng.Copy myS.[a38]
Next myS
End Sub

复制代码

Azrael_gdx6 · 发表于 2023-2-8 12:25

谢谢楼主！！

		自动登录	找回密码
密码			免费注册

[求助] VB复制区域到所有数字名称工作表中，中文名称工作表不能变