Excelシートの同じ名前のタブの名前を変更

Question

大きなワークシートのタブの名前を各ワークシートのセル値を使用して変更しようとしています。問題は、私は許可されていない同じ名前の複数のタブの名前を変更したいと思います。私は1、2などを追加しても大丈夫ですが、それをどうやって行うかはわかりません。

たとえば、3枚のセルの値がOhioの場合、タブはOhio1、Ohio2、Ohio3になります。

各シートの名前はA1の値である必要がありますが、重複する名前を考慮する必要があります。

同じ名前の会計処理せずにそれを行うためのVBAコードは次のとおりです。

Sub Worksheet_SelectionChange() 
Dim ws As Worksheet 

For Each ws In Sheets 
ws.Activate 
ActiveSheet.Name = Range("a1").Value 

Next ws 

End Sub 

Answer 1

Sub Worksheet_SelectionChange() 
Dim ws As Worksheet 
Dim i As Integer 

i = 1 

On Error GoTo fixName 

For Each ws In Me.Worksheets 

ws.name = ws.Range("A1").Value 


Next ws 


Exit Sub 
fixName: 
ws.name = ws.Range("A1").Value & i 
i = i + 1 

End Sub 

Answer 2

Sub RenameTabs() 
    Dim ws As Worksheet, wsName$, wsCount%, dict ' $ is short for " As String" and % for " As Integer" 
    Set dict = CreateObject("Scripting.Dictionary") 

    For Each ws In Sheets 
     wsName = ws.Range("A1").Value 
     wsCount = IIf(dict.Exists(wsName), dict(wsName) + 1, 1) 
     dict(wsName) = wsCount 

     If wsCount = 1 Then 
      ws.Name = wsName 
     Else 
      If wsCount = 2 Then Sheets(wsName).Name = wsName & 1 ' optional to rename the previous Ohio sheet to Ohio1 
      ws.Name = wsName & wsCount 
     End If 
    Next ws 
End Sub