Excel VBA如何实现UsedRange为空时跳过子过程不执行Vlookup

• 判断逻辑完全不生效：IsEmpty("myRange")传入的是字符串字面量，不是Range对象，判断结果永远为False；且空白工作表的UsedRange.Rows.Count默认返回1（对应空A1单元格），仅靠行数无法识别空表。
• 存在多处语法错误：代码中使用了中文双引号，前后工作表名拼写不一致（前为Tests_Finish，后误写为Tests_Finished），Exit Sub后多余的End If会直接触发编译报错。
• 公式写入逻辑错误：R1C1格式的公式需要赋值给单元格的FormulaR1C1属性，直接赋值给Value属性只会写入纯文本，不会自动计算。
• 行号计算有兼容问题：如果已使用区域不是从第1行开始，直接用UsedRange.Rows.Count得到的行数会算错实际最后一行的位置。

Dim yrow As Long

' 空表判断：统计已使用区域非空单元格数，为0直接退出过程
If WorksheetFunction.CountA(Tests_Finish.UsedRange) = 0 Then
    Exit Sub
End If

' 计算已使用区域最后一行的真实行号，兼容已使用区域不从第1行起始的场景
yrow = Tests_Finish.UsedRange.Row + Tests_Finish.UsedRange.Rows.Count - 1

' 写入R1C1格式Vlookup公式
Tests_Finish.Range("L2:L" & yrow).FormulaR1C1 = "=VLOOKUP(RC[-6],FinishedPivot!C1:C6,2,FALSE)"

• 空表检测用WorksheetFunction.CountA()统计已使用区域的非空单元格总数，返回0即代表整个工作表无任何有效内容，直接跳过后续所有操作，是VBA里判断工作表是否为空最稳妥的方案，不会受默认空A1单元格、隐藏行/列的干扰。
• 行号计算增加了已使用区域起始行的偏移量，避免因已使用区域起始行不是1导致的引用范围错误。
• 公式赋值统一使用英文半角引号，修正了原代码的工作表名拼写错误，通过FormulaR1C1属性写入公式保证VLOOKUP可以正常计算。

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