主题：[求助]这个VBA查找录入代码怎么写？有例子附件

要求：
        在“收案月份”列的非空单元格录入；
                                     如果"立案日期"列的日期<15日，则录入当月月份数（如2013-3-6，则录入3）；
                                     如果"立案日期"列的日期>15日，则录入下月月份数（如2013-3-16，则录入4）；
       在“案件分类”列的非空单元格录入；
                                    如果"案号"列含有字符串“初”，则录入“一审”；
                                    如果"案号"列含有字符串“终”，则录入“二审”； 

                                    如果"案号"列含有字符串“执”，则录入“非诉”；
                                    如果"案号"列含有字符串“赔”，则录入“国培”；

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:录入.table