저는 스프레드 시트를 사용하여 프로젝트에서 추적 할 중요한 정보를 마스터 복사본으로 사용하고 있습니다. 메인 시트에는 메모 용 테이블과 여러 개의 열로 구분 된 연락처 용 테이블과 새 메모 또는 새 연락처를 삽입하는 일부 VB 코드가 있습니다. 그러나 새 노트를 삽입 할 때 테이블 상단에 나타나고 기존의 모든 노트를 한 행 아래로 옮기고 싶습니다. 특정 행 집합에 행을 추가하여 동일한 행이 있지만 다른 테이블의 셀에 보관되는 다른 데이터가 이동되지 않도록 할 수 있습니까?특정 열 집합에 행 삽입
메모 테이블의 모든 셀을 Range 개체로 선택하고 한 행 아래로 이동하는 VBA 매크로를 코딩해야합니다.
정확한 코드는 모르겠지만 "매크로 기록"기능을 사용하고 수동으로 수행하는 것이 좋습니다. Excel 시트에서 두 셀을 선택하고 마우스 오른쪽 버튼을 클릭 한 다음 "삽입"을 클릭하십시오. . 그런 다음 행을 아래로 이동할지 묻습니다. 코드가 무엇인지 새로 기록 된 매크로에서 볼 수 있으며 특정 목적에 맞게 조정할 수 있습니다. 행운을 빕니다!
기본 예 : D2 : 현재 A2에있는 세포 위의 세포의 1 행을 삽입 할 것을 가정
Dim rng As Range
Set rng = Worksheets("Sheet1").Range("A2:D2")
rng.Insert Shift:=xlDown
....
글쎄, 거기있다 : 정확한 코드 :) – thomaspaulb
나는이 코드를 오늘 구현하려고 시도 하겠지만, 내 첫 질문에서 언급 한 점을 잊어 버렸다. 표. 예를 들어, notes 테이블 위의 한 테이블에는 병합되지 않은 셀이 여러 개 있지만 notes 테이블의 동일한 셀은 병합됩니다. 거기에 문제가 있을까요? –
글쎄, 병합 된 영역의 중간에 셀을 삽입하려고하면 삽입 된 셀이 병합 될 수 있습니다. 그리고 행 2가 셀을 병합하고 그 위에 행을 삽입하면 삽입 된 행이 마술처럼 병합되지 않습니다. 따라서 기본적으로 실제 시트를 사용하여 테스트하고 결과가 무엇인지 확인해야합니다. –