質問者が納得いくつか疑問点があります。
1.シート1のどこに担当者の情報があるのでしょうか。
2.>担当者別シートは、行数が1~30行で、列数はA~N列
A~N列は3の倍数になっていません。L列かO列までのはず。
以上を考慮せず、一人の担当者だけのマクロを提示しますので、参考にして下さい。
シート1をSheet1、担当者のシートをSheet2としています。
標準モジュールに下記を。
Sub Macro()
Dim i As Long, imax As Long
Dim j As Integer, k As...
質問者が納得例えば、9行目からについては、次の位置に入れます。
これがB列の操作なら、Cells(Cells.Rows.Count, 2)、C列なら3・・・・となります。
With Sheets("受注履歴")
.Select
.Cells(Cells.Rows.Count, 1).End(xlUp).Offset(1).Select
End With
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlank...