这个，应该要做个辅助区域吧，，比如： sub aa() dim i if mod(range("A"&i),3)=0 and mod(range("A"&i),7)=0 then [B1]="yes" else [B1]="no" end ifend sub 这个A列是没有用的，，只是为了返回B列的值。你参考一下。
