質問: マクロ VBA日ついて教えてください、添付の画像の通りにしたいのですが ・B列のNo.とF列のNo.が一致したら連続行で表示させたいということです。
回答: 一例です。 Sub sample2() Dim myRng As Range Dim myR As Long, myC As Long Set myRng = Range("B2", Cells(Rows.Count, 2).End(xlUp)) For myR = 2 To Cells(Rows.Count, 2).End(xlUp).Row If WorksheetFunction.CountIf(myRng, Cells(myR, 6)) > 0 Then myC = WorksheetFunction.Match(Cells(myR, 6), myRng, 0) + 1 If myC <> myR + 1 Then Cells(myC, 2).Resize(1, 8).Cut Cells(myR + 1, 2).Resize(1, 8).Insert Shift:=xlDown End If End If Next myR End Sub 追加オーダーはご容赦下さい。