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

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"，所以我需要工作表名称为“ Fund GQ Jan”

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