![](/img/trans.png)
[英]VBA: Copy values from 2 or more columns into one column with a corresponding row
[英]Copy cells from one a row in a column dependant on a value in the corresponding row in another column
我在excel 2003上有一個郵件列表,我需要根據注冊月份發送出去。
列表很大,數據經常被編輯,刪除和添加。
因此,在QI列中將月份表示為1月是5月1日,即5月5日,以此類推。然后在T列中找到電子郵件地址。
因此,每當Q列中存在數字1時,我都需要復制T列中的對應行
我每個月都要這樣做。
理想情況下,每個月我將有12個帶有宏的按鈕。
我不知道從哪里開始使用宏,將不勝感激。
這可能適用於一月份(盡管基於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
但是由於實際上僅使用過濾器,復制和粘貼,因此似乎並不需要十個宏。
聲明:本站的技術帖子網頁,遵循CC BY-SA 4.0協議,如果您需要轉載,請注明本站網址或者原文地址。任何問題請咨詢:yoyou2525@163.com.