excel VBAについて教えてください。■下記コードの行それぞれがどのような処理を行っているか1行ずつ教えてください。どうぞよろしくお願いいたします。Sub 自動採番()Worksheets(\u0026quot;出荷指示\u0026quot;).SelectDim r0 As Long, r1 As LongDim n As LongFor r0 = 2 To Cells(Rows.Count, \u0026quot;K\u0026quot;).End(xlUp).rowIf r0 = 2 Thenn = 1Cells(r0, \u0026quot;X\u0026quot;).Value = nElseIf Cells(r0, \u0026quot;X\u0026quot;).Value = \u0026quot;\u0026quot; ThenFor r1 = r0 - 1 To 2 Step -1If Cells(r0, \u0026quot;K\u0026quot;).Value = Cells(r1, \u0026quot;K\u0026quot;).Value ThenCells(r0, \u0026quot;X\u0026quot;).Value = Cells(r1, \u0026quot;X\u0026quot;).ValueExit ForElseIf r1 = 2 Thenn = n + 1Cells(r0, \u0026quot;X\u0026quot;).Value = nEnd IfNext r1End IfNext r0End Sub