>

다음 하위가 있습니다 :

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 번 행을 이미 통과 한 경우에만 아무 일도 일어나지 않습니다.

  • 이전 java - Spring Boot 20에서"hystrixstream"을 활성화하는 방법은 무엇입니까?
  • 다음 angular2 template - 양식으로 검증되지 않은 입력