求大佬求助IF判断

huyz01234

小弟自己瞎写了个代码，但是发现只会判断湖南，不会判断北京。
求大佬看下哪里出问题了




If sh_daily_report(i, 12) = "湖南" Then

    sh_array(6, 3) = sh_array(6, 3) + sh_daily_report(i, 20)


     If Not sh_daily_report(i, 3) = "aa" And Not HUNAN.exists(sh_daily_report(i, 5)) Then

        HUNAN(sh_daily_report(i, 5)) = 1
        Else
        HUNAN(sh_daily_report(i, 5)) = HUNAN(sh_daily_report(i, 5)) + 1
        End If
        If Not HUNAN.exists(sh_daily_report(i, 6)) Then
        HUNAN(sh_daily_report(i, 6)) = 1
        Else
        HUNAN(sh_daily_report(i, 6)) = HUNAN(sh_daily_report(i, 6)) + 1
End If

'-------------------------------------------湖南
If sh_daily_report(i, 12) = "北京" And sh_daily_report(i, 2) = "HUI" Then
sh_array("f4") = sh_daily_report(i, 20) + sh_array("f4")

If Not sh_daily_report(i, 3) = "aa" And Not beijing_h.exists(sh_daily_report(i, 5)) Then

beijing_h(sh_daily_report(i, 5)) = 1
Else
beijing_h(sh_daily_report(i, 5)) = beijing_h(sh_daily_report(i, 5)) + 1
End If
If Not beijing_h.exists(sh_daily_report(i, 6)) Then
beijing_h(sh_daily_report(i, 6)) = 1
Else
beijing_h(sh_daily_report(i, 6)) = beijing_h(sh_daily_report(i, 6)) + 1
End If

蓝桥玄霜

没有附件不能测试代码。
建议上传Excel表格附件来说明问题。
一般写法是：
If ... Then
Else
Endif

huyz01234

蓝桥玄霜 发表于 2019-10-17 19:30
没有附件不能测试代码。
建议上传Excel表格附件来说明问题。
一般写法是：

大佬附件已上传帮忙看下，谢谢了

huyz01234

谢谢大佬帮助 已解决 我忘记SET SH_ARRAY了