VBA代码问题：检查单元格空值并写入日期时间时逻辑异常，求排查

错误点梳理 #

• If语句嵌套结构错误：第二个判断偏移5列的If没有对应的End If，且Exit For的位置破坏了代码块的闭合逻辑，直接导致编译报错。
• 逻辑判断可能与需求背离：你需求是“检查右侧第4、5列是否为空，若不为空则写入日期时间”，但代码里用<> vbNullString（即单元格不为空时才写入）——如果实际需求是为空时写入，判断符号要改成= vbNullString。
• 冗余的单元格选中操作：Select和ActiveCell不仅拖慢代码效率，还可能因工作表切换等操作触发意外错误，直接通过Range对象操作更可靠。
• 日期格式带冗余空格：Format(Now, "dd/mm/yyyy ")末尾多了一个空格，会让单元格内容带无效空格，不符合预期格式。

修正后的代码 #

Dim LR As Long, j As Long
Dim st As String, code As String

LR = Cells(Rows.Count, "B").End(xlUp).Row
st = TextBox1.Value

If st = "" Then
    MsgBox "textbox is empty"
    Exit Sub
End If

' 倒序查找B列匹配值
For j = LR To 1 Step -1
    code = Range("B" & j).Text
    If code = st Then
        ' 直接操作Range，无需选中单元格
        ' 按需求调整判断：若要"为空时写入"用 = vbNullString，否则保留 <>
        If Range("B" & j).Offset(, 4).Value = vbNullString Then
            Range("B" & j).Offset(, 4).NumberFormat = "dd/mm/yyyy"
            Range("B" & j).Offset(, 4).Value = Date ' 写入真实日期值，而非文本
        End If
        
        If Range("B" & j).Offset(, 5).Value = vbNullString Then
            Range("B" & j).Offset(, 5).NumberFormat = "HH:MM"
            Range("B" & j).Offset(, 5).Value = Time ' 写入真实时间值，而非文本
        End If
        
        Exit For ' 若要修改所有匹配项，删除此行
    End If
Next j

额外优化说明 #

• 声明了所有变量（建议开启Option Explicit强制变量声明，避免未定义变量引发的错误）。
• 直接写入Date和Time而非格式化后的文本，同时设置单元格数字格式，确保内容是可计算的真实日期/时间值。
• 移除了不必要的Select操作，提升代码稳定性和执行效率。

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