| 
    
     |  | 大量に同じ処理を行わなければならないのですが、 どのようにVBAを書けばよいのか分かりません。
 お手数をおかけしますが、ご教授いただけますと幸いです。
 
 Sheet1に下記のように6列(A〜F列、H〜M列)をひとまとまりとし、
 1列空けて、次の行からまた同じヘッダーのデータが入っています。
 
 
 A列 B列 C列 D列 E列 F列  G列  H列 I列 J列 K列 L列 M列 …
 ------------------------------------------------------------------------------
 日付 クラス 名前 性別 得点 順位 <空白> 日付 クラス 名前 性別 得点 順位 …
 ------------------------------------------------------------------------------
 1/5 A  ●● 女  57        1/6 C △△ 男  78
 1/9 B  □□ 男  90        1/17 A ×× 男  95
 
 
 各まとまりごとに日付(昇順)、得点(降順)でソートした後、
 順位列に日付毎の順位を入力し、オートフィルタで各日の順位が1〜3のデータを
 Sheet2に張り付けるということを、繰り返したく思います。
 また、Sheet1の列は今後増える可能性があるため、最終列を自動で取得したいです。
 
 他のサイトなども見ながら奮闘中ですが
 納期まで時間がなく困っております。お知恵をいただけますと幸いです。
 
 
 |  |