VBA代码忽略Excel单元格0值及末尾行异常问题求助

问题概述 #

需要将Excel工作表Order Sheet中A列（产品编码）和C列（数量）数据导出为TXT文件，要求：

• C列值≥0（包含0值，无论0是直接输入还是公式计算得出）时导出对应行
• 当前代码存在两个问题：
  1. 公式计算出的0值行被忽略
  2. TXT文件末尾出现多余的0,0行，未在有效数据行停止

原代码问题分析 #

1. 忽略0值行：原代码中Not (wsOrder.Cells(i, 3).Text Like "=*")条件直接排除了所有公式单元格，而很多0值是通过公式生成的，导致这些行无法导出。
2. 多余行问题：仅通过C列判断最后有效行，若A列数据行更少，循环会包含无产品编码的行；同时Write和WriteLine的配合可能在边界行产生异常输出。

修改后的代码 #

Private Sub Export_Stocktake_Data()
    On Error Resume Next

    Application.ScreenUpdating = False

    Dim i As Long
    Dim lastRow As Long
    Dim wsOrder As Worksheet
    Dim outputFile As Object
    Dim qtyValue As Variant

    Set wsOrder = ThisWorkbook.Worksheets("Order Sheet")
    
    ' 取A、C列中最大的最后有效行，避免单一列判断遗漏
    lastRow = Application.Max(wsOrder.Cells(wsOrder.Rows.Count, 1).End(xlUp).Row, _
                              wsOrder.Cells(wsOrder.Rows.Count, 3).End(xlUp).Row)
    ' 确保循环起始行不小于3（原代码起始行）
    If lastRow < 3 Then lastRow = 3

    ' 自动创建目标目录（若不存在）
    If Not CreateObject("Scripting.FileSystemObject").FolderExists("C:\Stocktake") Then
        CreateObject("Scripting.FileSystemObject").CreateFolder "C:\Stocktake"
    End If

    Set outputFile = CreateObject("Scripting.FileSystemObject").CreateTextFile("C:\Stocktake\Stocktake " & Format(Now(), "DD-MM-YYYY") & ".txt")

    For i = 3 To lastRow
        qtyValue = wsOrder.Cells(i, 3).Value ' 直接取单元格计算结果，兼容公式
        
        ' 核心判断：A列非空，C列是数字且≥0
        If Len(Trim(wsOrder.Cells(i, 1).Value)) > 0 And IsNumeric(qtyValue) And qtyValue >= 0 Then
            outputFile.WriteLine wsOrder.Cells(i, 1).Value & "," & qtyValue
        End If
    Next i

    outputFile.Close

    Application.ScreenUpdating = True
    ActiveWorkbook.Save
    ThisWorkbook.Worksheets("IQ Import Sheet").Cells(1, 1).Select

    On Error GoTo 0
End Sub

关键修改说明 #

• 兼容公式生成的0值：不再过滤公式单元格，直接取Value属性获取计算结果，确保公式生成的0值能被正常导出。
• 精准控制循环范围：同时参考A列和C列的最后有效行，避免循环包含无产品编码的空行，从根源解决末尾多余行问题。
• 优化写入逻辑：用WriteLine一次性写入整行数据，避免分步写入可能出现的格式异常。
• 增加容错机制：自动检查并创建目标目录，防止因目录不存在导致导出失败。

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