应该是这句代码有错
If Tables(huxijiName).Rows(k)(i) = 1 And Tables(huxijiName).Rows(k)(j) = 1 Then
改成
If Tables(huxijiName).Rows(k)(i) = "1" And Tables(huxijiName).Rows(k)(j) = "1" Then