在VBA中为表格列所有单元格添加字符串，是否有更优更快的方法？

直接给你整合后的高效代码，同时优化了原代码的冗余操作：

Dim dateCol As Range
Set dateCol = Range(TabellNamn & "[Date/Time]")

' 批量为所有单元格补全年份前缀
dateCol.Value = Evaluate("""20""&" & dateCol.Address)

' 统一处理格式转换与显示设置
With dateCol
    .Replace What:="/", Replacement:="-", LookAt:=xlPart, MatchCase:=False
    .TextToColumns Destination:=.Cells(1), DataType:=xlFixedWidth, FieldInfo:=Array(0, xlYMDFormat)
    .NumberFormat = "d\/m hh:mm:ss"
End With

关键优化点说明 #

• 去掉冗余的Select操作：直接通过Range对象操作，避免激活单元格，提升代码运行效率与可读性。
• 批量替代循环：用Evaluate函数一次性给所有单元格添加"20"前缀，比逐个单元格循环快得多，尤其适合数据量大的场景。
• 整合逻辑到同一代码块：将补全年份、替换分隔符、转换日期格式、设置显示样式的所有操作整合，逻辑更连贯，维护更方便。

注意事项 #

• 确保TabellNamn变量准确指向目标表格的名称。
• 目标列的原始数据需统一为YY/MM/DD hh:mm:ss格式的字符串，避免异常值导致转换失败。

内容的提问来源于stack exchange，提问作者HCE-MS