Excel VBA技术求助：跨工作表数据重排（每7列换行）

首先我先把你提供的不完整代码整理出来，方便分析：

Set ws1 = Sheets("F2")
Set ws2 = Sheets("List1")
rangerow = ws1.Range("A" & Rows.Count).End(xlUp).Row
rangecol = ws1.Range("A" & Columns.Count).End(xlToLeft).Column
rangerow2 = ws2.Range("A" & Rows.Count).End(xlUp).Row
rangecol2 = ws2.Range...

从这段代码里就能发现几个明显的问题，我一步步给你拆解：

1. 源工作表列数获取错误 #

你写的ws1.Range("A" & Columns.Count).End(xlToLeft).Column是错的——Range("A" & Columns.Count)指向的是A列的第16384行（Excel的最大列数），这根本不是用来获取表头列数的位置。正确的写法应该是取第一行的最后一列，也就是：

rangecol = ws1.Cells(1, Columns.Count).End(xlToLeft).Column

2. 目标工作表起始位置初始化缺失 #

你只获取了rangerow2和rangecol2，但如果目标工作表是空的，rangerow2会是1（因为空表的End(xlUp)会定位到A1），但你没有明确初始化目标单元格的起始行和列，很容易导致数据写入位置混乱。

3. 核心重排逻辑缺失 #

你的代码只写了开头的变量定义，没有实现「每7列后切换至下一行」的核心循环逻辑，这也是代码无法运行的关键原因。

修正后的完整代码 #

我给你补全并修正了所有问题，你可以直接测试：

Sub RearrangeDataEvery7Columns()
    Dim ws1 As Worksheet, ws2 As Worksheet
    Dim sourceRow As Long, sourceCol As Long
    Dim targetRow As Long, targetCol As Long
    Dim totalRows As Long, totalCols As Long
    
    ' 定义源表和目标表
    Set ws1 = ThisWorkbook.Sheets("F2")
    Set ws2 = ThisWorkbook.Sheets("List1")
    
    ' 获取源表的总行数和总列数
    totalRows = ws1.Range("A" & ws1.Rows.Count).End(xlUp).Row
    totalCols = ws1.Cells(1, ws1.Columns.Count).End(xlToLeft).Column
    
    ' 初始化目标表的起始位置（从A1开始）
    targetRow = 1
    targetCol = 1
    
    ' 遍历源表的每一行每一列
    For sourceRow = 1 To totalRows
        For sourceCol = 1 To totalCols
            ' 将源单元格数据写入目标单元格
            ws2.Cells(targetRow, targetCol).Value = ws1.Cells(sourceRow, sourceCol).Value
            
            ' 每写7列就切换到下一行，重置列数为1
            If targetCol = 7 Then
                targetRow = targetRow + 1
                targetCol = 1
            Else
                targetCol = targetCol + 1
            End If
        Next sourceCol
    Next sourceRow
    
    MsgBox "数据重排完成！", vbInformation
End Sub

代码说明 #

• 明确指定了ThisWorkbook，避免引用其他打开的工作簿出错
• 修正了列数获取的逻辑，确保拿到源表的真实总列数
• 通过双层循环遍历源表所有数据，每写入7列就自动换行
• 加入了完成提示，方便确认执行状态

如果你的源表数据不是从第一行第一列开始的，只需要调整sourceRow和sourceCol的起始值就行~

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