Question

我想在所有打开的工作簿中搜索特定的工作表（说“FebData”），前提是所有工作簿的名称完全取决于用户（它可以是任何东西）。说实话，谷歌搜索并付出一些努力好吧，我得到了这个代码。

`$seq.mat <- matrix(NA, nrow=20, ncol=2)
 colnames(seq.mat) <- c("SampleID","Sequence")
 set.seed(123)
 for (i in 1:nrow(seq.mat)) {
 seq.mat[i,1] <- paste0("Sample_", i)
 seq.mat[i,2] <- paste(sample(c("C","G","A","T"), size=1000, replace = 
 TRUE), collapse="")
 }
 seq.mat <- cbind(seq.mat, RNASeq=NA, Seq.Count=NA)`

最后我想添加一个我不知道如何编写代码的功能，如果有两个相同名称的工作表（来自用户的输入）只是弹出一个msgbox“复制工作表”找到”。

Answer 1

这将遍历工作簿，然后循环遍历每个工作表

    Sub LoopBks()

    Dim wb As Workbook, sh As Worksheet

    For Each wb In Application.Workbooks
        If wb.Name <> ActiveWorkbook.Name Then
            For Each sh In wb.Sheets
                If sh.Name = "FebData" Then
                    MsgBox "Sheets found in..." & wb.Name
                End If
            Next sh
        End If
    Next wb

End Sub

请参阅特定表格

1 个答案: