需要根据需求批量添加工作表名称后缀

salen0913

需求：需要找出每个单元格中黄色底面数字
然后在A,B,C,D,E组工作表名称后面加上对应数字

例如：
A组工作表中黄色底面数字是：213
那么工作表名称更改为：A组-213

附件已上传，感谢大神相助o(*￣︶￣*)o~！

ykcbf1100

附件供参考。。。

salen0913

ykcbf1100 发表于 2023-7-7 10:36
附件供参考。。。

不好意思  大神   我把代码放源表里显示的不是黄色底面的内容，是其他颜色底面的内容

fzxba

Sub test0()
  Dim wks As Worksheet, cel As Range, s As String
  Application.FindFormat.Interior.Color = vbYellow
  For Each wks In Worksheets
    With wks
      If .Index > 1 Then
        Set cel = .Cells.Find("", , , , 1, 1, False, False, True)
        If Not cel Is Nothing Then
          s = "-" & cel.Value
          If Not .Name Like "*" & s Then .Name = .Name & s
        End If
      End If
    End With
  Next
  Set cel = Nothing
  Application.FindFormat.Clear
  Beep
End Sub

fzxba

不知审到何时见附件.rar (17.44 KB, 下载次数: 7)

2023-7-7 11:32 上传

点击文件名下载附件

ykcbf1100

salen0913 发表于 2023-7-7 11:15
不好意思  大神   我把代码放源表里显示的不是黄色底面的内容，是其他颜色底面的内容

和颜色没有关系。

salen0913

fzxba 发表于 2023-7-7 11:32

这个可以用  谢谢大神

salen0913

ykcbf1100 发表于 2023-7-7 12:47
和颜色没有关系。

我的意思就是要把黄色底面的内容加在工作表名称的后缀上

cidanji

fzxba 发表于 2023-7-7 11:32

好作品值得学习，先设参数，高效准确，然后直接find