­ã´£³¡ªL

1.§ä³Ì«á«DªÅ¦æ, À³¨Ï¥Î xlup(3), ¦Ó«D (1)
Set rng = Range([a5], Cells(Cells(Rows.Count, 1).End(1).Row, c))
Set rng = Range([a5], Cells(Cells(Rows.Count, 1).End(3).Row, c))

2.¿z¿ïÄæ¦ì
a = rng.Columns(3) '¿z¿ï¤å¦r¦b²Ä3Äæ
rng.AutoFilter Field:=1, Criteria1:=k(i) '³o­Ó1À³§ï¦¨3

3.¤u§@ªí¦WºÙ
ActiveSheet.Name = [C6].Value