홈>
다음 하위가 있습니다 :
Sub Rowsup1()
With Selection.EntireRow
.Cut
.Offset(.Rows.count - 2).Insert
.Select
End With
End Sub
선택한 행이 6 행 위로 이동하지 못하게하고 싶습니다.이 작업을 수행하는 가장 좋은 방법은 확실하지 않습니다. 도움을 주시면 감사하겠습니다.
- 답변 # 1
관련 자료
- python - Pandas의 특정 열에 대해 99 번째 백분위 수 이상의 값을 가진 모든 행을 효율적으로 제거하는 방법은 무엇입니까?
- awk - 패턴을 검색하고 매번 특정 패턴 위에 인쇄
- linux - 특정 줄 위의 변수 출력을 어떻게 sed 할 수 있습니까?
- ios - 특정 크기 이상으로 그리지 않는 draw (_ rect - cgrect)
- c++ - 링크 된 목록에서 특정 노드를 n 위치 앞으로 이동
- javascript - 에서 스타일 구성 요소 위로 전역 스타일 시트 이동
- linux - 특정 크기 (~ 1450) 이상의 TCP 메시지는"고정"됩니다
관련 질문
- excel : 선택한 셀에서 테이블 행 번호 찾기
- 양식 및 VBA를 사용하여 Excel에서 10 개 이상의 열이있는 목록 상자에 레code를 검색 및 필터링하고 표시하고 싶습니다.
- excel : 쿼리 테이블의 내용을 지울 때 쿼리 테이블이 삭제되는 것을 어떻게 방지합니까?
- excel : 직접 경로없이 서명과 이미지가있는 이메일을 보내려면 어떻게해야합니까?
- 지정된 범위에서 지정된 셀 값을 찾아 선택하는 VBA
- excel : 비교할 때 동일한 숫자와 날짜가 다른 것으로 취급 됨
- excel : VBA 매크로를 사용하여 선택한 셀 오른쪽에 하나의 셀 색상 지정
- excel : 여러 쿼리를 만들고 편집하고 이름을 지정하는 VBA
- excel : VBA : 역행렬
- excel : 여러 페이지가있는 웹 사이트에서 데이터 스크랩
이 코드는
Selection
의 전체 행을 잘라냅니다. 한 줄 위로 삽입하십시오. 데이터가 6 행에 있으면이 작업을 중지합니다. 루프가 아니므로 원하는 것이 (예 : 버튼을 한 번 클릭하고 행이 6 행에 도달 할 때까지 계속 이동하려면) 수정이 필요합니다.If myRow <= 6 Then
로 바꾸는 것이 좋습니다 어떤 이유로 든 6 번 행을 이미 통과 한 경우에만 아무 일도 일어나지 않습니다.