Question

我的目标是从包含股票市场代码的工作表中重命名许多工作表。为此，我将代码保存在名为“更新”的工作表中。代码是从A2到A10。我已经设置了一个For循环以转到下一个活动工作表，并且随着范围值的增加，工作表将被重命名为Update WSheet中的新单元格值。

我遇到的问题是我希望Range值增加1，这将为工作表选择下一个名称。我尝试将1添加到Range值，但是没有用

Sub changeWSnames()
    Dim sheetname As Worksheet
    Dim r As Integer

    For r = 1 To 10
        ActiveWorkbook.Worksheets(r).Activate
        Set sheetname = ActiveWorkbook.ActiveSheet
        sheetname.Name = Worksheets("Update").Range("a2").Value 
    Next r

    r = r + 1
End Sub

我也需要锻炼，如何增加.Range("a2").Value，即增加1，例如变成Range("a3").Value等。

Answer 1

替换：

sheetname.Name = Worksheets("Update").Range("a2").Value

具有：

sheetname.Name = Worksheets("Update").Range("a" & (r+1)).Value

因此，在循环中，第一次使用 a2 ，下次使用 a3 ，等等。

循环将范围值增加1

1 个答案: