如何在指定工作表区间内按字母顺序插入新工作表？

我们需要限定遍历范围仅在DIV - OVERVIEW和DIV - NEWS之间，同时解决字符串比较的大小写问题，确保排序逻辑准确。以下是完整实现代码：

Sub InsertCompanySheetAlphabetically()
    Dim trackingWB As Workbook
    Dim wsTemplate As Worksheet
    Dim wsOverview As Worksheet, wsNews As Worksheet
    Dim newCompanyName As String
    Dim insertIndex As Integer
    Dim i As Integer
    
    ' 绑定目标工作簿与模板表（可根据实际情况调整）
    Set trackingWB = ThisWorkbook
    Set wsTemplate = trackingWB.Sheets("Company Template")
    Set wsOverview = trackingWB.Sheets("DIV - OVERVIEW")
    Set wsNews = trackingWB.Sheets("DIV - NEWS")
    newCompanyName = CStr(Nm.Text) ' 从Master表的控件获取新公司名称
    
    ' 默认插入位置：DIV - NEWS之前
    insertIndex = wsNews.Index
    
    ' 遍历分隔表之间的所有工作表，寻找排序插入点
    For i = wsOverview.Index + 1 To wsNews.Index - 1
        ' 忽略大小写比较工作表名称与新公司名称
        If StrComp(trackingWB.Sheets(i).Name, newCompanyName, vbTextCompare) > 0 Then
            insertIndex = i
            Exit For ' 找到第一个比新名称大的表，确定插入位置
        End If
    Next i
    
    ' 复制模板表到指定位置并命名
    wsTemplate.Copy Before:=trackingWB.Sheets(insertIndex)
    trackingWB.ActiveSheet.Name = newCompanyName
End Sub

关键逻辑说明 #

1. 限定遍历区间：通过wsOverview.Index和wsNews.Index锁定目标区域，只遍历两个分隔表之间的工作表，避免误操作Master、Company Template等其他表。
2. 大小写不敏感排序：使用StrComp函数并指定vbTextCompare参数，确保"Company A"和"company a"这类大小写差异的名称能正确排序。
3. 兜底插入位置：如果新公司名称比区间内所有表的名称都大，会自动插入到DIV - NEWS之前，符合原有区域结构要求。
4. 减少ActiveSheet风险：直接通过trackingWB.ActiveSheet操作刚复制的工作表，避免因窗口激活状态异常导致的错误。

可选扩展检查 #

如果需要避免重复创建同名工作表，可在代码开头添加名称校验逻辑：

Dim tempSheet As Worksheet
' 检查名称是否已存在
On Error Resume Next
Set tempSheet = trackingWB.Sheets(newCompanyName)
On Error GoTo 0
If Not tempSheet Is Nothing Then
    MsgBox "该公司名称的工作表已存在！"
    Exit Sub
End If

内容的提问来源于stack exchange，提问作者Progolfer79