根据字符串的存在过滤小标题列表

Question

我正在尝试从报表中提取财务数据。我有一个Excel，它是从转换扫描获得的，其中每张纸代表财务报表中的一页。我将其转换为一个列表，其中每个小标题都是一个页面。现在，我想根据特定字符串的存在来对其进行过滤，例如“合并财务状况表”或“合并财务状况表（续）”。结果，我只想获取一个包含资产负债表的列表，然后将其水平合并。 注意：此字符串位于顶部10个单元格之内（作为标题）。

mysheets_fromexcel <- list()
mysheetlist <- excel_sheets("file.xlsx")
i=1
for (i in 1:length(mysheetlist)){
  tempdf <- read_excel("file.xlsx", sheet = mysheetlist[i])

  mysheets_fromexcel[[i]] <- tempdf 
}

mysheets_fromexcel[[11]]