質問: False ActiveCell.Offset(RowCount, 0).Activate Exit For End If Next c Loop Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Range("A1:G1").Select End Sub ご教授のほどよろしくお願いいたします
回答: これで良いのかな? 集計欄は最終入力セルの右隣のセルから集計します。 >集計欄はA10~I∞です 13列 行数は決まっていません A~I列では13列にならないです。 なので、A~M列としました。 Dim RngN, Rng Dim LastR, LastC '---納品書欄のレンジを代入 Set RngN = Range("N4:Z9") '---集計欄の最終入力行 LastR = Cells(10, 1).End(xlDown).Row '---集計欄にデータが何も無い時 If LastR = Rows.Count Then LastR = 10 End If '---最終入力行の最終入力列を取得 LastC = Cells(LastR, 1).End(xlToRight).Column '---集計欄にデータが何も無い時 If LastC = Columns.Count Then LastC = 0 End If '---データが最終列(M列)まで記入済みの時 If LastC = 13 Then LastC = 0 '---0列目にセット LastR = LastR + 1 '---記入行を次の行に End If For Each Rng In RngN If Rng.Value <> "" Then '---記入位置を次の列に LastC = LastC + 1 '---N列を超えるとき If 13 < LastC Then LastC = 1 '---A列にセット LastR = LastR + 1 '---記入行を次の行に End If Cells(LastR, LastC) = Rng.Value End If Next Rng