|
初めてVBAに挑戦しているのですが、Loopの中にLoopを入れたいのですがいくら探しても分かりません。どなたかお教えください。下が作成したものです。13行目の所です。幼稚な質問かもしれませんがよろしくお願いいたします。
Sub 自作()
Application.ScreenUpdating = False
Sheets("2").Select
Range("HH2").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Sheets("3").Select
Range("N39").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
Sheets("2").Select
Range("HH2").Select
※1. この部分を下の※2までいったらHH3、HH4・・・と空白がくるまでループさせたい。
Selection.Copy
Range("HE1").Select
ActiveSheet.Paste
Range("HD40").Select
Range(Selection, Selection.End(xlDown)).Select
Range(Selection, Selection.End(xlToRight)).Select
Application.CutCopyMode = False
Selection.Copy
Sheets("3").Select
Range("J40").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Dim i As Integer
i = 40
Do While Cells(i, 10) <> ""
Cells(i, 10).Select
Selection.Copy
Range("D3").Select
ActiveSheet.Paste
Cells(i, 11).Select
Range("E3").Select
ActiveSheet.Paste
Cells(i + 1, 8).Select
Selection.Copy
Cells(i + 1, 9).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
i = i + 1
Loop
Range("I41").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Range("l42").End(xlUp).Select
Selection.End(xlToRight).Offset(0, 1).Select
ActiveSheet.Paste
※2ここで※1に戻ってループしたい
Application.ScreenUpdating = True
End Sub
|
|