遍历工作簿写入工作表名至列（无跳行）的VBA代码问题

问题根源 #

你的代码跳行核心问题是共用一个rowCounter处理两列+计数逻辑混乱：

1. 每次遍历工作表都强制rowCounter +=1，不管当前表是否需要写入，导致计数完全脱离实际需要填充的行位置。
2. 处理I列时的While循环会无意义地累加rowCounter，直接打乱K列的写入位置，造成跳行。
3. 变量名大小写不一致（datasheet/dataSheet），虽然VBA不区分，但容易引发逻辑混淆。

修正方案 #

给I列和K列分别设置独立的行计数器，确保每次写入都从当前列的下一个空行开始：

Dim rowI As Integer, rowK As Integer
Dim datasheet As Worksheet

Set datasheet = ThisWorkbook.Worksheets("Data")

' 清空I、K列原有内容
datasheet.Range("I:I, K:K").ClearContents

' 初始化两列的起始行（从第1行开始）
rowI = 1
rowK = 1

' 遍历所有工作表
For Each ws In ThisWorkbook.Worksheets
    ' 处理以"MAP"结尾的工作表，写入K列
    If Right$(ws.Name, 3) = "MAP" Then
        datasheet.Cells(rowK, "K").Value = ws.Name
        rowK = rowK + 1 ' K列计数器自增
    End If
    
    ' 处理含连字符且不以"MAP"结尾的工作表，写入I列
    If InStr(1, ws.Name, "-", vbTextCompare) > 0 And Right$(ws.Name, 3) <> "MAP" Then
        datasheet.Cells(rowI, "I").Value = ws.Name
        rowI = rowI + 1 ' I列计数器自增
    End If
    
    ' 处理工作表隐藏逻辑（原代码保留）
    If Not IsError(Application.Match(ws.Name, sheetNamesToHide, 0)) Then
        ws.Visible = xlSheetHidden
    End If
Next ws

额外优化说明 #

如果担心后续手动在列中插入内容导致起始行混乱，可以改用动态定位最后非空行的方式，每次写入前自动获取当前列的下一个空行：

' 写入K列时动态找最后行
rowK = datasheet.Cells(datasheet.Rows.Count, "K").End(xlUp).Row + 1
' 写入I列时动态找最后行
rowI = datasheet.Cells(datasheet.Rows.Count, "I").End(xlUp).Row + 1

这种方式即使列中已有内容，也能自动从下一个空行开始写入，更灵活。

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