vba将符合条件的单元格所在行复制到新表

附件中: ALT+F8选中执行 ALT+F11查看代码 sheet1的A列的单元格格式是日期, 符合条件是数据指定写入sheet2, 在sheet2中写入的数据不会覆盖,而是向下顺延