sheet(r + hdr,cn).Value = IIF(tb(r,cn) = Nothing, "", tb(r,cn))
改成
sheet(r + hdr,cn).Value = IIF(tb.rows(r)(tb.cols(cn).name) = Nothing, "", tb.rows(r)(tb.cols(cn).name))