Question

后面的IF语句不运行，直接跳过，是怎么回事

Application.ScreenUpdating = False '取消提示
Application.DisplayAlerts = False '取消警告
For j = 7 To 200 '范围4-200行
If Cells(j, "b") = "." Then End
If Cells(j, "b") = "" Then Range(Cells(j, "b"), Cells(j - 1, "b")).MergeCells = True '如果j 行c列范围内发现为空那么
'在j 行c列范围内，沿C列往上合并
Next j
Sheets("负荷计算书").Select '
For u = 7 To 200 '范围4-200行
If Cells(u, "c") = "." Then End
If Cells(u, "c") = "" Then Range(Cells(u, "c"), Cells(u - 1, "c")).MergeCells = True '如果j 行c列范围内发现为空那么
'在j 行c列范围内，沿C列往上合并
Next u

Answer 1

cells 是一个自定义function么？如果是的话可以将对比写入里面！比如

if cells(u,"c",".") then end

function cells (Obj1,Obj2,Obj3) as boolean
'运行后直接在这里判断，然后返回true 或false