홈>2020-02-26 08:16

excel - 행/범위 위로 이동하지만 특정 행 위로 이동하지 않음

다음 하위가 있습니다 :

Sub Rowsup1()
With Selection.EntireRow
    .Cut
    .Offset(.Rows.count - 2).Insert
    .Select
End With
End Sub

선택한 행이 6 행 위로 이동하지 못하게하고 싶습니다.이 작업을 수행하는 가장 좋은 방법은 확실하지 않습니다. 도움을 주시면 감사하겠습니다.

답변 # 1
이 코드는 Selection 의 전체 행을 잘라냅니다. 한 줄 위로 삽입하십시오. 데이터가 6 행에 있으면이 작업을 중지합니다. 루프가 아니므로 원하는 것이 (예 : 버튼을 한 번 클릭하고 행이 6 행에 도달 할 때까지 계속 이동하려면) 수정이 필요합니다.
```
Sub Rowsup1()
Dim myRow As Integer
 Application.ScreenUpdating = False
   With Selection
'   find the currently selected row
    myRow = .Row
'   While myRow doesn't = 6, cut and paste the entire _
    row one row higher than its current location
    If myRow = 6 Then
      'Do nothing
    Else
      .EntireRow.Cut
      Range("A" & myRow - 1).Insert
      .Select
    End If
   End With
   With Application
    .CutCopyMode = False
    .ScreenUpdating = True
   End With
End Sub
```
If myRow <= 6 Then 로 바꾸는 것이 좋습니다 어떤 이유로 든 6 번 행을 이미 통과 한 경우에만 아무 일도 일어나지 않습니다.