VBA代码跳过For循环、日期格式未生效及逗号转小数点失效问题咨询

1. 逗号替换循环未执行的原因 #

你计算LastCol的逻辑存在偏差：LastCol = Cells(1, Columns.Count).End(xlToLeft).Column 是基于第1行的最后一列有效数据统计总列数，但你明确说明待替换逗号的内容都在每一列的第3行，如果第1行没有任何表头数据，xlToLeft会直接返回A列的列号（即1）。此时循环边界为j = 3 To 1，VBA默认步长为1，循环起始值大于终止值时会直接跳过循环体，不会执行任何替换逻辑。

2. 日期格式不生效的原因 #

A列中类似1/12/2020 9:00:00 am的内容是文本格式存储的伪日期，并非Excel可识别的日期序列号。仅修改NumberFormat无法对文本类内容生效，必须先将文本转换为真正的日期值，格式设置才能正常应用。
另外你提到仅第3行每列存在需要替换的逗号，原代码的双层循环逻辑（遍历第3行到最后一行、第3列到最后一列）和实际需求不匹配，会产生大量无效运算。

Sub checkformat()
    Dim ws As Worksheet
    ' 绑定指定工作表，避免活动工作表切换导致的引用混乱
    Set ws = ThisWorkbook.Worksheets("RawData")
    Dim LastCol As Long, LastRow As Long
    ' 基于第3行的有效数据计算总列数，匹配实际数据存储位置
    LastCol = ws.Cells(3, ws.Columns.Count).End(xlToLeft).Column
    ' 基于A列的有效数据计算最后一行行号
    LastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
    
    ' ----------------------
    ' 处理A列日期格式
    ' ----------------------
    Dim i As Long
    For i = 3 To LastRow
        ' 先把文本类日期转换为真正的日期值，再应用格式
        If IsDate(ws.Cells(i, "A").Value) Then
            ws.Cells(i, "A").Value = CDate(ws.Cells(i, "A").Value)
            ws.Cells(i, "A").NumberFormat = "dd/mm/yyyy hh:mm:ss am/pm"
        End If
    Next i
    
    ' ----------------------
    ' 处理每一列第3行的逗号替换
    ' ----------------------
    Dim j As Long, originalText As String
    For j = 1 To LastCol
        originalText = ws.Cells(3, j).Value
        If InStr(originalText, ",") > 0 Then
            ws.Cells(3, j).Value = Replace(originalText, ",", ".")
        End If
    Next j
End Sub

• 所有单元格引用明确绑定RawData工作表，避免无关联表默认引用的错误
• 删除不必要的Select操作，提升运行效率
• 总列数统计改基于第3行计算，从根源解决循环直接跳过的问题
• 日期处理环节先通过CDate函数把文本转换为真正的日期值，再设置格式，确保格式正常生效
• 替换逻辑调整为仅遍历第3行的所有列，完全匹配你提到的“待替换内容仅在每一列第三行”的场景，无多余运算

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