如何在Excel首个工作表数据满溢时将数据写入新工作表？

嘿，我来帮你捋清楚这个问题！你当前的条件判断逻辑有个关键bug：ActiveSheet.Cells.Rows.Count返回的是当前工作表的最大行数（Excel 2007及以后版本是1048576行），而不是你已经写入的数据行数。所以这个条件永远为真，自然会创建一堆空工作表，完全达不到你想要的效果。

先搞对判断已用行数的方法 #

要检查当前工作表已经写了多少行数据，推荐用下面两种方法：

• 方法1（最准确，适合数据从A列连续写入的场景）：

  Dim lastRow As Long
  lastRow = ActiveSheet.Cells(ActiveSheet.Rows.Count, "A").End(xlUp).Row
  

  这个代码会从A列最后一行往上找，找到第一个有内容的行号，就是当前已用的最后一行。
• 方法2（适合没有空行的连续数据）：

  Dim usedRowCount As Long
  usedRowCount = ActiveSheet.UsedRange.Rows.Count
  

  注意如果数据中间有空行，这个方法会把空行也算进去，可能不准确。

条件判断的正确位置 #

你不能等所有数据都写完了再判断——那时候Excel已经自动截断数据了，晚了！必须把判断逻辑嵌在数据写入的循环过程里，每写几行就检查一次，快到单表上限时就新建工作表，切换过去继续写。

给你个现成的代码示例 #

假设你用ADODB从数据库取数据，核心逻辑可以这么写：

Sub ImportLargeDBData()
    Dim conn As Object, rs As Object
    Dim currentSheet As Worksheet
    Dim lastRow As Long
    Dim maxSheetRows As Long
    Dim colIndex As Integer
    
    ' Excel单工作表最大行数（2007+版本固定是1048576）
    maxSheetRows = 1048576
    
    ' 从第一个工作表开始写
    Set currentSheet = ThisWorkbook.Worksheets(1)
    lastRow = 1 ' 假设第一行写表头，或者直接写数据
    
    ' 连接数据库（替换成你自己的连接字符串和SQL语句）
    Set conn = CreateObject("ADODB.Connection")
    Set rs = CreateObject("ADODB.Recordset")
    conn.Open "你的数据库连接字符串"
    rs.Open "SELECT * FROM 你的目标数据表", conn
    
    ' 循环写入每一行数据
    Do While Not rs.EOF
        ' 检查当前表是否快满了（留5行余量，避免边界问题）
        If lastRow >= maxSheetRows - 5 Then
            ' 新建工作表，放在最后一个表后面
            Set currentSheet = ThisWorkbook.Worksheets.Add(after:=ThisWorkbook.Worksheets(ThisWorkbook.Worksheets.Count))
            lastRow = 1 ' 新表从第一行开始写
        End If
        
        ' 写入当前行的所有字段（循环遍历所有列）
        For colIndex = 0 To rs.Fields.Count - 1
            currentSheet.Cells(lastRow, colIndex + 1).Value = rs.Fields(colIndex).Value
        Next colIndex
        
        lastRow = lastRow + 1
        rs.MoveNext
    Loop
    
    ' 收尾：关闭连接，释放资源
    rs.Close
    conn.Close
    Set rs = Nothing
    Set conn = Nothing
End Sub

关于宏里函数无法工作的问题 #

如果你的数据提取是用自定义函数实现的，大概率是这几个原因：

• 函数没有返回正确的数据集（比如应该返回Recordset，但返回了别的类型）
• 你在函数里直接操作工作表了——自定义函数应该只负责拿数据，写入工作表的逻辑要放在子过程里
• 参数传递有问题，比如函数需要的数据库连接参数没传对

把函数的逻辑和写入工作表的逻辑分开，用子过程调用函数获取数据，再按上面的分表逻辑写入，应该就能解决。

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