Excel VBA编写多单元格日期处理If Else循环问题咨询

问题核心 #

现有代码所有日期读取、格式判断逻辑全部硬编码绑定H4单元格，直接在If判断中添加OR条件覆盖F4、G4时，后续strFull取值、格式转换逻辑仍然固定读取H4的值，自然会出现取值错误。同时原有代码还存在工作表引用不严谨、无空值校验的隐患。

修复方案 #

先遍历F4、G4、H4三个目标单元格，自动定位到实际存在日期输入的非空单元格作为统一处理源，后续所有取值、格式转换逻辑都基于定位到的目标单元格执行，不需要硬编码固定单元格地址。
修复后的完整代码如下：

Sub CopyDate()
    Dim ws1 As Worksheet: Set ws1 = Worksheets("Data Dump")
    Dim ws2 As Worksheet: Set ws2 = Worksheets("Daily Cumulations")
    
    Dim inputRng As Range, targetCell As Range, cell As Range
    ' 指定需要检测的三个输入单元格范围
    Set inputRng = ws1.Range("F4:H4")
    Set targetCell = Nothing
    
    ' 遍历范围找到第一个非空的输入单元格
    For Each cell In inputRng
        If Trim(cell.Value) <> "" Then
            Set targetCell = cell
            Exit For
        End If
    Next cell
    
    ' 三个单元格均无输入时直接退出
    If targetCell Is Nothing Then
        MsgBox "F4、G4、H4未检测到有效日期输入，请检查"
        Exit Sub
    End If
    
    Dim TakeDate As String
    Dim lastrow As Long
    ' 修复lastrow计算的工作表引用错误，避免跨表取值偏差
    lastrow = ws2.Range("G" & ws2.Cells.Rows.Count).End(xlUp).Row
    
    Dim strFull As String
    strFull = targetCell.Value
    
    ' 处理带"-"分隔符的日期格式
    If InStr(strFull, "-") <> 0 Then
        Dim month As String, dd As String, yyyy As String
        month = Split(strFull, "-")(0)
        month = Right(month, 2)
        dd = Split(strFull, "-")(1)
        yyyy = Split(strFull, "-")(2)
        TakeDate = month & "-" & dd & "-" & yyyy
    Else
        ' 处理"/"分隔的常规日期格式
        TakeDate = Format(CDate(strFull), "yyyy/mm/dd")
    End If
    
    ' 统一弹窗提示并写入目标表
    MsgBox "处理后日期：" & TakeDate
    ws2.Range("G" & lastrow + 1).Value = TakeDate
End Sub

关键改动点 #

• 新增自动定位输入单元格逻辑：遍历F4:H4范围找到非空单元格作为处理源，不管三个单元格哪个有输入都能正确读取，不会出现取值错位
• 修正lastrow计算逻辑，所有单元格操作明确绑定所属工作表，不需要依赖Activate激活工作表，避免上下文切换导致的取值错误
• 增加空值校验，三个单元格都为空时弹出提示后退出，避免运行时错误
• 合并重复的弹窗、写入逻辑，减少冗余代码

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