从列中的一行复制单元格，具体取决于另一列中相应行中的值

Question

我在excel 2003上有一个邮件列表，我需要根据注册月份发送。

列表很大，数据经常被编辑，删除和添加。

因此，在第Q栏中，我将月份作为1月份的数字是5月1日等。然后，我在T栏中有电子邮件地址。

因此，每当Q列中出现数字1时，我需要复制T列中的相应行

我需要每个月都这样做。

理想情况下，我每个月都会有12个带有宏的按钮。

我不知道从宏开始从哪里开始，我们将非常感谢任何帮助。

Answer 1

这可能适用于1月（虽然基于Excel 2007中的Macro Recorder）：

Sub MacroJan()
    ActiveSheet.Range("A:T").AutoFilter Field:=1, Criteria1:="1"
    Columns("T:T").Select
    Selection.Copy
    Sheets.Add After:=Sheets(Sheets.Count)
    Range("A1").Select
    ActiveSheet.Paste
End Sub  

但由于实际上只使用过滤器，复制和粘贴，因此似乎不需要十几个宏。