Excel - 셀 옆의 데이터를 복사하여 아래에 붙여 넣습니다.
발행물
데이터 정렬은 아래와 같습니다.
세포 | A | B | C ------------------------------------------------- --- 1 | 안녕 | 안녕하세요 | 아침 2 | 도움말 | 제발! 3 | 고마워 | 보자 | 안녕
이 데이터를이 형식으로 만들 필요가 있어요.
세포 | A | B | C ------------------------------------------------- - 1 | 안녕 | 안녕하세요 | 아침 2 | | 아침 | ---------------------------------------------- 3 | 도움말 | 제발! ---------------------------------------------- 4 | 고마워 | 보자 | 안녕 5 | | 안녕 | ----------------------------------------------
몇 가지 조건을 고려해야한다는 것을 알고 있습니다.
C1에 데이터가 포함되어 있는지 여부를 확인하려면,
- 1) 그렇다면 데이터를 셀 B2 (상대적으로 왼쪽과 아래의 C1 셀)에 복사합니다.
그런 다음 셀 B2 아래에 계속 밑줄을 긋습니다.
- 2) 아니요 인 경우 밑줄을 긋고 다음 행으로 계속합니다.
- 3) 데이터가 포함 된 마지막 셀까지 계속
해결책
- 먼저 sheet2에 데이터를 복사하십시오.
- 그런 다음 매크로 "테스트"
Sub test () Dim j를 정수로, k를 정수 워크 시트 ( "sheet1")로 활성화 j = Range ( "A1") End (xlDown) .Row For k = j To 1 Step -1 셀 (k + 1, "B") 셀 (k + 2) "셀"(k + 1, "A", "A") EntireRow.FormulaArray = " '-----------------"Exit Sub End 셀의 경우 (k, "A") EntireRow.Insert 셀 (k + 1, "C") 셀 잘라 내기 (k + 2, "B") 셀 (k + 3, "A") EntireRow.FormulaArray = " '--------------- - "Else Cells (k, "A "). EntireRow.Insert Cells (k + 2, "a "). EntireRow.FormulaArray =" '----------------- "End If Next k End Sub Sub 작업 취소 () 시트 ("sheet1 ") Cells.Clear 워크 시트 ("sheet2 ") Cells.Copy 워크 시트 ("sheet1 ") 범위 ("A1 ") End Sub
유의 사항
이 팁에 대한 venkat1926 에게 감사드립니다.