多工作表数据提取VBA代码异常：日文命名工作表无法运行

第一步：修复IsToBeCopied函数的语法与逻辑错误 #

你的函数存在括号不匹配、逻辑冗余等语法问题，这是导致代码失效的核心原因，和工作表名称语言无关。修正后的代码如下：

Function IsToBeCopied(Data As Variant, srcRow As Long) As Boolean
    ' 条件1：第1列有值且第5列不等于"1"
    If Not IsEmpty(Data(srcRow, 1)) And CStr(Data(srcRow, 5)) <> "1" Then
        IsToBeCopied = True
    ' 条件2：第2列有值且第5列不等于"1"
    ElseIf Not IsEmpty(Data(srcRow, 2)) And CStr(Data(srcRow, 5)) <> "1" Then
        IsToBeCopied = True
    ' 条件3：第4列有值、第5列不等于"1"，且日期条件满足
    ElseIf Not IsEmpty(Data(srcRow, 4)) And CStr(Data(srcRow, 5)) <> "1" Then
        ' 先验证第14列是有效日期
        If IsDate(Data(srcRow, 14)) Then
            Dim startDate As Date, endDate As Date
            endDate = Data(srcRow, 14)
            ' 第13列无值时，默认用最早日期匹配"第14列≤今日"逻辑
            startDate = IIf(IsDate(Data(srcRow, 13)), Data(srcRow, 13), DateSerial(1900, 1, 1))
            If (startDate <= Date And endDate >= Date) Or (endDate <= Date) Then
                IsToBeCopied = True
            End If
        End If
    ' 条件4：第3列有值、第5列不等于"1"且第13列无值
    ElseIf Not IsEmpty(Data(srcRow, 3)) And CStr(Data(srcRow, 5)) <> "1" And IsEmpty(Data(srcRow, 13)) Then
        IsToBeCopied = True
    End If
End Function

关键修正点： #

• 补全IsEmpty函数的括号：原代码错误地将逻辑判断包含在IsEmpty参数内，正确写法是Not IsEmpty(Data(srcRow, 1)) And ...
• 移除冗余逻辑：删除无意义的(Not IsEmpty(Data(srcRow,4)) or IsEmpty(Data(srcRow,4)))判断
• 增加日期类型验证：用IsDate确保第13、14列是有效日期，避免日文系统日期格式导致的比较错误
• 优化日期判断逻辑：处理第13列无值的情况，默认用1900年1月1日作为起始日期

第二步：确保日文工作表的正确引用 #

如果修正代码后仍无效，检查工作表引用方式：

• 直接用名称引用时，确保名称完全匹配（包括全角/半角、日文假名的正确写法），比如Sheets("データ")
• 若名称引用存在编码问题，改用索引引用，比如Sheets(4)（假设"データ"是第4个工作表）
• 确认VBA编辑器字体支持日文显示：打开VBA编辑器→工具→选项→编辑器格式，选择支持日文的字体

第三步：调试验证 #

在遍历工作表的代码中加入调试语句，确认日文工作表的数据是否被正确读取：

' 在遍历工作表的循环内添加
Debug.Print "当前工作表：" & ws.Name
Debug.Print "测试行数据：" & ws.Cells(srcRow, 1).Value & " | " & ws.Cells(srcRow, 5).Value

打开VBA编辑器的立即窗口（Ctrl+G）查看输出，确认数据读取正常

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