嘿，我来帮你搞定这个VBA的格式转换问题！你需要把单列数据转成每行12列，而且碰到0PBS RC就强制换行对吧？看你的代码片段没写完，我直接给你一套能正常运行的完整代码，再给你拆解下关键逻辑。

完整修正代码 #

Sub EMCnaarTaq()
    Dim Sheet1 As Worksheet
    Dim Sheet2 As Worksheet
    Dim sourceRng As Range
    Dim cell As Range
    Dim targetRow As Integer
    Dim targetCol As Integer
    
    ' 替换成你实际的工作表名称
    Set Sheet1 = ThisWorkbook.Worksheets("Sheet1") ' 存放单列数据的源表
    Set Sheet2 = ThisWorkbook.Worksheets("Sheet2") ' 输出目标表
    
    ' 自动获取源数据的完整范围（从A1到最后一个非空行）
    Set sourceRng = Sheet1.Range("A1:A" & Sheet1.Cells(Sheet1.Rows.Count, "A").End(xlUp).Row)
    
    ' 初始化输出位置的行列指针
    targetRow = 1
    targetCol = 1
    
    ' 遍历每一个源数据单元格
    For Each cell In sourceRng
        ' 优先检查是否是触发换行的特定值（Trim避免空格干扰）
        If Trim(cell.Value) = "0PBS RC" Then
            ' 写入当前值后，直接跳转到下一行开头
            Sheet2.Cells(targetRow, targetCol).Value = cell.Value
            targetRow = targetRow + 1
            targetCol = 1
        Else
            ' 正常写入当前单元格
            Sheet2.Cells(targetRow, targetCol).Value = cell.Value
            targetCol = targetCol + 1
            
            ' 当列数达到12时，自动换行到下一行开头
            If targetCol > 12 Then
                targetRow = targetRow + 1
                targetCol = 1
            End If
        End If
    Next cell
End Sub

关键逻辑说明 #

• 自动获取数据源范围：不用手动数行数，代码会自动找到A列最后一个非空单元格，避免遗漏或多余数据
• 行列指针跟踪：用targetRow和targetCol精准控制输出位置，逻辑清晰不易出错
• 优先处理特定值：碰到0PBS RC时，不管当前列数是否到12，写完就强制换行，完全匹配你的需求
• 空格容错：用Trim()处理单元格值，避免因为数据前后有空格导致匹配不到0PBS RC

注意事项 #

• 如果你的源数据不是从A1开始，修改sourceRng里的起始单元格（比如改成A2）
• 确保Sheet2已经存在，要是需要自动创建工作表的话，可以告诉我，我再给你加这段逻辑
• 测试前记得备份数据，避免误操作

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