Excel - 보고서 서식 지정 매크로

발행물

바라건대 내가 모든 것을 이해하는 방식으로 내가 원하는 것을 말할 수 있기를 바랍니다. 내가 실행하고 추한 방법으로 수출 고객 보고서가 있습니다.

다음과 같이 보입니다.

 주소 교외 주 (州) 우편 번호 배달 지침 전화 번호 팩스 번호 전자 메일 주소

위의 모든 정보는 A 열에 있으며 각 열 머리글에 새 열이 있도록 AF 열에 정보가있는 매크로를 만들려고합니다.

정말 기본적인 매크로를 기록 할 수 있으므로, 저를 위해 누군가를 써야 할 사람이 필요할 것입니다. 그래서 나는 단순히 미안 *을 복사하여 붙여 넣을 수 있습니다.

바라기를 이것은 누군가에게 정말 간단하고 그들은 나를 도우려고합니다. 모든 제안 / 조언을 크게 주시면 감사하겠습니다!

해결책

목표:

행을 분할하려면 셀이며 각 행을 같은 행의 새 셀로 이동하십시오.

가정 :

1. ROW 2에서 데이터 시작

2. 데이터가 A 열에 있습니다.

3. A 옆의 열은 데이터를 입력해야하는 곳입니다.

4. 데이터 셀의 각 행을 동일한 행의 새 셀로 이동해야합니다

단계 :

1. 가정을 읽으십시오.

2. 파일의 백업을 만듭니다.

3. Alt + F11을 누르고 새 모듈을 삽입합니다.

4. 코드 붙여 넣기 (단계 후)

5. 코드 실행

암호:

 Sub SpiltData () Dim lMaxRows Long Dim lRowBeanCounter Long Dim vPos As Variant Dim sHold As String Dim sTemp As Integer Dim lStartAtRow Long lStartAtRow = 1 lMaxRows = 셀 (Rows.Count, "A") End ) vPos> 0 인 경우 vPos = 0 vPos = InStr (1, sTemp, Chr (10)) vPos> 0 인 경우 sHold (xLUp) = 0이면 sLoad = iCellCounter = iCellCounter + 1 셀 (lRowBeanCounter, iCellCounter) = sHold 루프 다음 lRowBeanCounter End Sub (iCellCounter = iCellCounter = 1) sTemp = 트림 (중간 (sTemp, vPos + 1)) 그렇지 않으면 sHold = sTemp sTemp =