マクロ行を選択するVBAコード選択した行の下のX行

Question

私はあなたの助けが必要です。

別のワークシートから更新するワークシートがあります。 基本的にはすべての月があり、同じ月のLYが消えて来月は来月もロータであるため、1か月から1か月に移動しています。 しかし、このワークシートでは、フォーマットは月ごとに28または31日に応じて固定されています。

ので、私は月の行番号入力を求めるマクロがあります。毎月のためにそれを行うために

RowSelected1 = InputBox("Enter row Jan") 
Rows(RowSelected1).Select 
Range("B" & ActiveCell.Row & ":DJ" & ActiveCell.Row).Select 

しかし、その代わりに、私は44行をカウントし、この第44回をコピーするRowSelected1（1月）から希望します上のコードと同じコードを使用します。

し、再び44をカウントし、コピー

などなど

あなたはその上で私を助けるために何がありますか？

多くのおかげでこのよう M.

Answer 1

？

Rows(RowSelected1 + 44).Select 
Range("B" & ActiveCell.Row & ":DJ" & ActiveCell.Row).Select 

Answer 2

Dim i As Integer 

RowSelected1 = InputBox("Enter row Jan") 
Rows(RowSelected1).Select 

For i = 1 to 11 
Rowselected1 = Rowselected1 + 44 
'Do whatever you want to do using Rowselected1 to refer to the row 
Next i 

別の方法としては、数ヶ月にわたるループでオフセット使用することができます。

ActiveCell.Offset(44,0).Select