マクロで複数条件に一致した対象を別シートに当てはめる。

ExcelVBAの質問です。
Sheet１に次のデータがある時、班が1で役員IDが空白ならSheet２のすでに作られている表のA4に抽出して貼り付ける。さらに班が２で役員IDが空白ならSheet２のB4に貼り付ける事を～F4まで繰り返し表に当てはめるで
ママチャリ様からのご指摘でちゃんと出来ました。が同じA列の15行目に貼り付けるにはどうしたらよろしいでしょうか？すみませんが教えて頂けますか？たびたびすみません。宜しくお願いします。
Sub test()
Dim i As Long, j As Long, k As Long
Dim ws As Worksheet
Set ws = Worksheets(2)
j = 4
k = 4
For i = 1 To Cells(Rows.Count, 1).End(xlUp).Row
If Cells(i, 3) = "1" And Cells(i, 5) = "" Then
j = j + 1
ws.Cells(j, 1) = Cells(i, 4)
End If
If Cells(i, 3) = "2" And Cells(i, 5) = "" Then
k = k + 1
ws.Cells(k, 2) = Cells(i, 4)
End If
Next i
End Sub

質問者からの補足コメント

• 

  ママチャリ様こちらこそ有難うございました。質問の仕方が下手ですみません。
  Sheet２の表のA列～F列の4行目までは貼り付けました、さらに同じ表（Sheet2)の下段でA列の１５行目に他の班１０班を貼り付けたいのですが、J=4はA列4行目になっていますよね、同じA列の15行目に
  他の班を貼り付けたい。-を使ったりして試してみましたが、ずれてしまってうまくA列1５行目に貼り付けできません。宜しくお願いします。

    補足日時：2016/02/03 15:29

No.1 回答者： ママチャリ 回答日時： 2016/02/02 22:45

先日はべストアンサーありがとうございました。

ママチャリです。
今回もお役に立てればと思ったのですが、質問の意味がわかりません。
A列の15行目に貼り付けるのは、何が同じだからなのでしょうか？

No.2 ベストアンサー 回答者： ママチャリ 回答日時： 2016/02/03 21:00

J=4ですが、＋１してから代入しているので、正確にはA列5行目ですね。

ご質問に書かれているコードを拡張するならば、10班用の変数、および、
判定等のIF文を追加することになると思います。とりあえず、10班用の
変数Lを追加したコードを下記に書いてみました。
しかし…10班もあるのですね？もしかして、もっと多いのでしょうか？
このままだと班の数だけ変数やIF文を追加しなければならないので、
冗長なプログラムになってしまいますね～

同じような変数（今回の場合はJ,K,Lなど）をたくさん使う時は、配列に
すると便利ですよ。頑張って勉強してみてください。

Sub test()
Dim i As Long, j As Long, k As Long, L As Long
Dim ws As Worksheet
Set ws = Worksheets(2)
j = 4
k = 4
L = 14
For i = 1 To Cells(Rows.Count, 1).End(xlUp).Row
If Cells(i, 3) = "1" And Cells(i, 5) = "" Then
j = j + 1
ws.Cells(j, 1) = Cells(i, 4)
End If
If Cells(i, 3) = "2" And Cells(i, 5) = "" Then
k = k + 1
ws.Cells(k, 2) = Cells(i, 4)
End If
If Cells(i, 3) = "10" And Cells(i, 5) = "" Then
L = L + 1
ws.Cells(L, 1) = Cells(i, 4)
End If
Next i
End Sub

この回答へのお礼

なるほどです。よく理解できました。ママチャリ様本当に有難うございました。配列も頑張って勉強します。

お礼日時：2016/02/05 08:36