在工作组的每个工作表中执行一次指定宏

是这样的意思么？

   Dim SelShts As Sheets
    Dim Sht As Worksheet
Sub 临时()
    Application.ScreenUpdating = False
    ActiveWorkbook.Names.Add Name:="位置", RefersToR1C1:="=R1C1"
    Sheets("引用表").Range("B2").Copy
    Application.Goto Reference:="位置"
    Sht.Range("B2").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
                                                                        :=False, Transpose:=False
    Application.CutCopyMode = False
    ActiveWorkbook.Names("位置").Delete
    Application.ScreenUpdating = True
End Sub
Sub Call_Macro()
    Set SelShts = ActiveWindow.SelectedSheets
    For Each Sht In SelShts
       Call 临时
    Next
End Sub

多次得到你的帮助，谢谢冰山上的来客！

代码中似乎不应该有“位置”内容，我的意图是：

选择多个工作表》执行你的代码就可以依次在这些工作表执行一下“临时”宏。

即想让代码自动识别工作组中的各表名称并分别进入执行一次指定宏。

这样？

Sub 临时()
    Application.ScreenUpdating = False
    Sheets("引用表").Range("B2").Copy
    Sht.Range("B2").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
                    :=False, Transpose:=False
    Application.CutCopyMode = False
    Application.ScreenUpdating = True
End Sub
，这个过程你可以随意修改啊。你在Sheets("引用表").Range("B2")填入内容，选择上一串表格，执行Call_Macro后，被选择成组的工作表中都应该有刚才你输入的内容的。

不知道是不是这个意思？

呵呵，你把咱的2楼的代码给省略掉了。

你可以把 冰山上的来客 按钮指定2楼的 Call_Macro 宏啊。这样就实现你说的要求了。

吶：

 结果入附件。

cmZInkhF.zip (10.42 KB, 下载次数: 150)

2007-7-6 14:20 上传

点击文件名下载附件
在工作组的每个工作表中执行一次指定宏

要分别在工作组的每个表中执行：

Sub 临时()

    Range("A1").Select
    ActiveWorkbook.Names.Add Name:="位置", RefersToR1C1:="=R1C1"
    Sheets("引用表").Select
    Range("B2").Select
    Selection.Copy
    Application.Goto Reference:="位置"
    Range("B2").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False
    ActiveWorkbook.Names("位置").Delete
End Sub

咱理解你的 临时 宏是复制 Sheets("引用表").Range("B2")单元格的内容的。

如果理解不错的话，应该没有问题了啊。

如果理解错误的话，请告知要实现什么？