根据单元格值重命名工作表

Question

您能帮我提供VBA代码，以便根据每张图纸的A1中可用的调用值来重命名所有图纸吗，但只想选择第一个单词作为图纸名称

sub rename ()
    for each sht in thisworkbook.worksheets
        sht.name=sht.range("A1")
    next sht

此VBA重命名所有工作表，但我只想捕获单元格A1中的前三个单词

例如。 "A1" = "Fund GQ Jan Q1 2019"因此我需要将工作表名称命名为“ 1月GQ基金”

Answer 1

对String进行一些操作会有所帮助：

查看Left和Instr的用法

Sub rename()

    For Each sht In ThisWorkbook.Worksheets
        sht.Name = Left(sht.Range("A1"), InStr(1, sht.Range("A1"), Split(sht.Range("A1"), " ")(3)) - 2)
    Next sht

End Sub