某表（2） 数据替换到 某表 能优化下代码吗

边缘码农

Sub 数据替换3()
   
    Dim I As Long, J As Long
    Dim NewName As String
    Dim Cz As String
    '删除工作表名称中的空格
    For I = 1 To ThisWorkbook.Sheets.Count
        ' 按照工作簿中工作表的数量进行循环
        Sheets(I).Name = Trim(Replace(Sheets(I).Name, " ", ""))
    Next
    For I = 1 To ThisWorkbook.Sheets.Count
        ' 按照工作簿中工作表的数量进行循环
        Cz = "否"
        If InStr(Sheets(I).Name, "(2)") > 0 Then
            ' 如果工作表名称中含有“（2）”
            NewName = Trim(Replace(Sheets(I).Name, "(2)", ""))
            For J = 1 To ThisWorkbook.Sheets.Count
                If Sheets(J).Name = NewName Then
                    ' 如果NewName这个工作表存在
                    Sheets(NewName).Activate
                    Range("A1").CurrentRegion.Select
                    Selection.Clear
                    Sheets(I).Activate
                    Range("A1").CurrentRegion.Select
                    Selection.Copy
                    Sheets(NewName).Activate
                    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlPasteSpecialOperationNone, SkipBlanks:=False, Transpose:=False
                    Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlPasteSpecialOperationNone, SkipBlanks:=False, Transpose:=False
                    Cz = "是"
                End If
            Next
            If Cz <> "是" Then
                MsgBox "工作簿中不存在名称为  " & NewName & "   的工作表，请检查。"
                End
            End If
        End If
    Next
    MsgBox "OK!"
End Sub


改了一下，去掉了那个函数。

再回首-沉默

边缘码农 发表于 2024-7-1 15:45
我这边运行正常。把你现在的附件传上来我看一下。

卧槽，大佬刚要上传就可以，研究了一会，原来是代码放在其他工作簿运行就不可以，得把代码放到要运行的工作簿才行

这样要怎么修改代码呀

再回首-沉默

边缘码农 发表于 2024-7-1 15:56
我的环境和你的环境肯定是不一样的。

是研究了下，vba在其他工作簿就不能运行，这个要咋修改呀，大佬

再回首-沉默

再回首-沉默 发表于 2024-7-1 16:17
是研究了下，vba在其他工作簿就不能运行，这个要咋修改呀，大佬

我是习惯把所有vba都整理到一个工作簿上面去，然后打开其他工作簿运行汇总vba的工作簿

边缘码农

我发了个修改后的代码，还在审核中吧。

再回首-沉默

边缘码农 发表于 2024-7-1 16:23
我发了个修改后的代码，还在审核中吧。

好的，谢谢大佬的耐心解决

边缘码农

再回首-沉默 发表于 2024-7-1 16:21
我是习惯把所有vba都整理到一个工作簿上面去，然后打开其他工作簿运行汇总vba的工作簿

打开   vba代码汇总表 (2)  这个文件，在这个文件中运行这个文件中的代码，一切正常。

边缘码农

我大约明白你是怎么操作的了。我再试试。

再回首-沉默

边缘码农 发表于 2024-7-1 16:28
我大约明白你是怎么操作的了。我再试试。

嗯嗯呢，看来我还是有待提高表达能力，哈哈哈

打开   vba代码汇总表 (2)  这个文件，在这个文件中运行这个文件中的代码，一切正常。
打开   表3 这个文件，在这个文件中运行vba代码汇总表 (2)  这个文件的代码，不正常

边缘码农

再回首-沉默 发表于 2024-7-1 16:32
嗯嗯呢，看来我还是有待提高表达能力，哈哈哈

打开   vba代码汇总表 (2)  这个文件，在这个文件中运行 ...

是的，因为这样：


判断文件名是否存在的函数，是在vba代码汇总表 (2) 这个文件中找表3 这个文件的工作表。