如何修改代码实现按指定列内容为Excel每行创建新工作表

嗨，别担心，这个调整其实超简单！通常实现“按行创建新工作表”的VBA代码里，会有一行专门提取用来命名工作表的单元格值——这就是你需要修改的核心位置。

假设你的现有代码是类似下面的常见结构：

Sub CreateSheetsFromRows()
    Dim wsSource As Worksheet
    Dim newWs As Worksheet
    Dim lastRow As Long
    Dim i As Long
    Dim wsName As String
    
    Set wsSource = ActiveSheet
    lastRow = wsSource.Cells(wsSource.Rows.Count, "A").End(xlUp).Row
    
    For i = 2 To lastRow ' 假设第1行是表头，从第2行开始处理数据
        ' 这里就是提取工作表名称的关键行！
        wsName = wsSource.Cells(i, 1).Value ' 数字1代表第1列（A列）
        Set newWs = ThisWorkbook.Sheets.Add(After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count))
        newWs.Name = wsName
    Next i
End Sub

你只需要修改提取工作表名称的那一行：

• 把代码里的1改成你想要用的列号就行。比如想用第3列（C列），就改成wsSource.Cells(i, 3).Value；如果想用第5列（E列），就改成wsSource.Cells(i, 5).Value。

另外给你两个实用小提醒：

• 要确保目标列的内容没有工作表名称禁止的字符：/ \ : * ? " < > |，如果有这些字符代码会报错，可以加个简单的替换处理，比如：

  wsName = Replace(Replace(wsSource.Cells(i, 3).Value, "/", "-"), "\", "-")
  

• 如果你的表头不是第1行，记得调整For i = 2 To lastRow里的起始行号，比如表头在第3行，就改成For i = 4 To lastRow。

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