excel中,如何把工作表中满足条件的记录自动添加到另一工作表中

=INDEX(Sheet1!A:A,SMALL(IF((Sheet1!$D$3:$D$3000="赊销")+(Sheet1!$D$3:$D$3000="收回欠款"),ROW($3:$3000),4^8),ROW(A1)))&""

按【组合键】确认后右拖、下拉填充。

E列已经有部分数据,不便于公式向下填充,建议增加一列(F列),在F2输入公式:

=IF(E2<>"",E2,IF(D2="无代理商","不返利",IF(SUMPRODUCT((MONTH($A$2:$A$12)<=MONTH(A2)+1)*($B$2:$B$12=B2)*($D$2:$D$12=D2)*$C$2:$C$12)>SUMPRODUCT((MONTH($A$2:$A$12)<=MONTH(A2))*($B$2:$B$12=B2)*($D$2:$D$12=D2)*$C$2:$C$12),"应返利","暂不返利")))

将公式向下复制.

方法非常简单，请你一定仔细，按照下面的步骤开始神奇之旅～～～

第一步、打开你的EXCEL工作薄，最好关闭其它无关的EXCEL文件，按ALT+F11

这一步就只按一个键，就是按住ALT不放，按以下F11，然后立即放开，三秒之内完成

这个步骤成功的标志：新打开一个窗口，标题是：Microsoft Visual Basic for Application

第二步、在上面打开的VBA窗口里面，按CTRL+R

是的，就这么简单，这一步也就是一个热键

这个步骤成功的标志，在VBA窗口里面的左边出现一个小窗口，标题是“工程-VBAProject”，里面有你打开的所有工作薄、工作表

第三步、先紧张你一下，这一步没有前面两步那么简单， *** 作稍微复杂一点，请一定仔细

在工程窗口里面，双击你需要自动添加备注的工作表，一定双击，不怕多，最好多击几次，注意你击的时候，会新开一个类似记事本的窗口，窗口标题前面部分是你的EXCEL文件、工作表名称，后面部分是“（代码）”

第四步、在代码窗口粘贴以下内容（以下所有的代码行，直到第五步结束）：

Private Sub Worksheet_Change(ByVal Target As Range)

Dim s

s = Date &" " &Time &":" &Target.Value

If Not Target.Comment Is Nothing Then

s = Target.Comment.Text &Chr(10) &s

Target.ClearComments

End If

Target.AddComment s

End Sub

第五步、这个步骤其实没有什么需要做的，你现在随便去修改这个表单元格，备注立即会添加

这是个验证步骤，如果结果满意，你可以关闭EXCEL、保存所有修改，再次打开，因为太多的窗口怕引起你心烦。

说明，再次打开的时候可能会提示文件有宏，你要点允许执行，如果根本不提示，说明你的宏安全性设置得太高，需要在选项里面降低安全性到“中”

---