VBA - 基于具有无效工作表字符的范围创建新工作表

问题描述

我正在尝试找出一种方法来遍历可变数据行并根据单元格创建工作表名称。我遇到的问题是每个单元格都有以下两个问题：

1. 他们有无效的 '/' 字符，我想用空格 ' ' 替换它们 即 5000111/01/18 - 理想情况下，这将更改为工作表标签“01 18 SICS”
2. 会有具有相同单元格引用的重复单元格，而我只想要一张工作表

这是我到目前为止的代码

Sub Format()

    Dim lastRow As Long
    Dim sheetName As String
    Dim workbookCount As Long
    Dim ws As Worksheet
    Dim match As Boolean

    'Turn off Screen updating
    Application.ScreenUpdating = False
    
    'Rename Sheet1 as AR
    Worksheets("Sheet1").Name = "AR"
    
    lastRow = Sheets("AR").Range("A2").End(xlDown).Row

    For i = 2 To lastRow
    match = False
    sheetName = Sheets("AR").Cells(i,1).Text

    For Each ws In ActiveWorkbook.Worksheets
        If ws.Name = sheetName Then
            match = True
        End If
    Next

    If match = False Then
        Worksheets.Add(After:=Worksheets(Worksheets.Count)).Name = sheetName
    End If

    Next i

    'Turn on Screen Updating
    Application.ScreenUpdating = True
    
End Sub

当我到达代码的最后一位时出现错误。Name =sheetName 因为它包含“/”无效字符。

解决方法

暂无找到可以解决该程序问题的有效方法，小编努力寻找整理中！

如果你已经找到好的解决方法，欢迎将解决方案带上本链接一起发送给小编。

小编邮箱:dio#foxmail.com (将#修改为@）