Note: The other languages of the website are Google-translated. Back to English

 다른 열의 고유 값을 기반으로 한 열의 셀을 바꾸는 방법은 무엇입니까?

두 개의 열을 포함하는 데이터 범위가 있다고 가정하면 다음 결과를 얻기 위해 한 열의 셀을 다른 열의 고유 값을 기반으로 가로 행으로 바꾸려고합니다. Excel에서이 문제를 해결할 좋은 아이디어가 있습니까?

문서 고유 값 전치 1

수식을 사용하여 고유 한 값을 기반으로 한 열의 셀 전치

VBA 코드로 고유 값을 기반으로 한 열의 셀 전치

Excel 용 Kutools를 사용하여 고유 값을 기반으로 한 열의 셀 전치


다음 배열 수식을 사용하여 고유 한 값을 추출하고 해당 데이터를 가로 행으로 전치 할 수 있습니다. 다음과 같이하십시오.

1. 다음 배열 수식을 입력하십시오. = INDEX ($ A $ 2 : $ A $ 16, MATCH (0, COUNTIF ($ D $ 1 : $ D1, $ A $ 2 : $ A $ 16), 0)) 예를 들어 빈 셀 D2에 넣고 쉬프트 + 컨트롤 + 엔터 키를 함께 사용하여 올바른 결과를 얻으려면 스크린 샷을 참조하십시오.

문서 고유 값 전치 2

주의 사항: 위의 공식에서 A2 : A16 고유 값을 나열하려는 열입니다. D1 이 수식 셀 위에있는 셀입니다.

2. 그런 다음 채우기 핸들을 셀로 끌어 모든 고유 값을 추출합니다. 스크린 샷을 참조하십시오.

문서 고유 값 전치 3

3. 그런 다음이 수식을 E2 셀에 입력합니다. =IFERROR(INDEX($B$2:$B$16, MATCH(0, COUNTIF($D2:D2,$B$2:$B$16)+IF($A$2:$A$16<>$D2, 1, 0), 0)), 0)을 누르고 쉬프트 + 컨트롤 + 엔터 결과를 얻으려면 키, 스크린 샷 참조 :

문서 고유 값 전치 4

주의 사항: 위 공식에서 : B2 : B16 전치하려는 열 데이터입니다. A2 : A16 값을 전치하려는 열입니다. D2 1 단계에서 추출한 고유 한 값을 포함합니다.

4. 그런 다음 0이 표시 될 때까지 전치 된 데이터를 나열하려는 셀의 오른쪽으로 채우기 핸들을 끕니다 (스크린 샷 참조).

문서 고유 값 전치 5

5. 그런 다음 채우기 핸들을 셀 범위까지 계속 드래그하여 다음 스크린 샷과 같이 전치 된 데이터를 가져옵니다.

문서 고유 값 전치 6


수식이 이해하기 복잡 할 수 있습니다. 여기에서 다음 VBA 코드를 실행하여 필요한 결과를 얻을 수 있습니다.

1. 누르고 ALT + F11 키를 눌러 응용 프로그램 용 Microsoft Visual Basic 창.

2. 딸깍 하는 소리 끼워 넣다 > 모듈을 클릭하고 다음 코드를 모듈 창문.

VBA 코드 : 다른 열의 고유 한 값을 기반으로 한 열의 셀 전치 :

Sub transposeunique()
'updateby Extendoffice
    Dim xLRow As Long
    Dim i As Long
    Dim xCrit As String
    Dim xCol  As New Collection
    Dim xRg As Range
    Dim xOutRg As Range
    Dim xTxt As String
    Dim xCount As Long
    Dim xVRg As Range
    On Error Resume Next
    xTxt = ActiveWindow.RangeSelection.Address
    Set xRg = Application.InputBox("please select data range(only two columns):", "Kutools for Excel", xTxt, , , , , 8)
    Set xRg = Application.Intersect(xRg, xRg.Worksheet.UsedRange)
    If xRg Is Nothing Then Exit Sub
    If (xRg.Columns.Count <> 2) Or _
       (xRg.Areas.Count > 1) Then
        MsgBox "the used range is only one area with two columns ", , "Kutools for Excel"
        Exit Sub
    End If
    Set xOutRg = Application.InputBox("please select output range(specify one cell):", "Kutools for Excel", xTxt, , , , , 8)
    If xOutRg Is Nothing Then Exit Sub
    Set xOutRg = xOutRg.Range(1)
    xLRow = xRg.Rows.Count
    For i = 2 To xLRow
        xCol.Add xRg.Cells(i, 1).Value, xRg.Cells(i, 1).Value
    Next
    Application.ScreenUpdating = False
    For i = 1 To xCol.Count
        xCrit = xCol.Item(i)
        xOutRg.Offset(i, 0) = xCrit
        xRg.AutoFilter Field:=1, Criteria1:=xCrit
        Set xVRg = xRg.Range("B2:B" & xLRow).SpecialCells(xlCellTypeVisible)
        If xVRg.Count > xCount Then xCount = xVRg.Count
        xRg.Range("B2:B" & xLRow).SpecialCells(xlCellTypeVisible).Copy
        xOutRg.Offset(i, 1).PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:=False, Transpose:=True
        Application.CutCopyMode = False
    Next
    xOutRg = xRg.Cells(1, 1)
    xOutRg.Offset(0, 1).Resize(1, xCount) = xRg.Cells(1, 2)
    xRg.Rows(1).Copy
    xOutRg.Resize(1, xCount + 1).PasteSpecial Paste:=xlPasteFormats
    xRg.AutoFilter
    Application.ScreenUpdating = True
End Sub

3. 그런 다음 F5 키를 눌러이 코드를 실행하면 사용할 데이터 범위를 선택하라는 메시지 상자가 나타납니다. 스크린 샷을 참조하십시오.

문서 고유 값 전치 7

4. 그런 다음 OK 버튼을 누르면 결과를 넣을 셀을 선택하라는 메시지가 표시되는 또 다른 프롬프트 상자가 나타납니다. 스크린 샷을 참조하십시오.

문서 고유 값 전치 8

6. 딸깍 하는 소리 OK 버튼을 클릭하고 B 열의 데이터가 A 열의 고유 한 값을 기반으로 전치되었습니다. 스크린 샷 참조 :

문서 고유 값 전치 9


당신이 있으면 Excel 용 Kutools, 결합 고급 결합 행셀 분할 유틸리티를 사용하면 수식이나 코드없이이 작업을 빠르게 완료 할 수 있습니다.

Excel 용 Kutools : 300 개 이상의 편리한 Excel 추가 기능으로 30 일 동안 제한없이 무료로 사용해 볼 수 있습니다..

설치 후 Excel 용 Kutools, 다음과 같이하십시오.

1. 사용할 데이터 범위를 선택하십시오. (원래 데이터를 유지하려면 먼저 데이터를 복사하여 다른 위치에 붙여 넣으십시오.)

2. 그런 다음 쿠툴 > 병합 및 분할 > 고급 결합 행, 스크린 샷 참조 :

3. 에서 열을 기준으로 행 결합 대화 상자에서 다음 작업을 수행하십시오.

(1.) 데이터를 전치하려는 열 이름을 클릭하고 기본 키;

(2.) 전치하려는 다른 열을 클릭하고 결합 그런 다음 하나의 구분 기호를 선택하여 공백, 쉼표, 세미콜론과 같은 결합 된 데이터를 구분합니다.

문서 고유 값 전치 11

4. 그런 다음 Ok 버튼을 클릭하면 B 열의 데이터가 A 열을 기준으로 하나의 셀에 결합되었습니다. 스크린 샷 참조 :

문서 고유 값 전치 12

5. 그런 다음 결합 된 셀을 선택하고 쿠툴 > 병합 및 분할 > 셀 분할, 스크린 샷 참조 :

6. 에서 셀 분할 대화 상자에서 열로 분할 아래 거래증명방식 옵션을 선택한 다음 결합 된 데이터를 구분하는 구분 기호를 선택합니다. 스크린 샷을 참조하십시오.

문서 고유 값 전치 14 14

7. 그런 다음 Ok 버튼을 클릭하고 튀어 나온 대화 상자에 분할 결과를 넣을 셀을 선택합니다. 스크린 샷 참조 :

문서 고유 값 전치 15

8. 딸깍 하는 소리 OK, 필요한 결과를 얻을 수 있습니다. 스크린 샷보기 :

문서 고유 값 전치 16

Excel 용 Kutools를 지금 다운로드하고 무료로 평가하십시오!


Excel 용 Kutools: 300 개 이상의 편리한 Excel 추가 기능으로 30 일 동안 제한없이 무료로 사용해 볼 수 있습니다. 지금 다운로드 및 무료 평가판!

최고의 사무 생산성 도구

Excel용 Kutools는 대부분의 문제를 해결하고 생산성을 80% 증가시킵니다.

  • 재사용: 빠르게 삽입 복잡한 공식, 차트 그리고 이전에 사용한 모든 것; 셀 암호화 암호로; 메일 링리스트 생성 이메일 보내기 ...
  • 슈퍼 포뮬러 바 (여러 줄의 텍스트와 수식을 쉽게 편집 할 수 있습니다.) 레이아웃 읽기 (많은 수의 셀을 쉽게 읽고 편집합니다.) 필터링 된 범위에 붙여 넣기...
  • 셀 / 행 / 열 병합 데이터 손실없이; 셀 내용 분할; 중복 행 / 열 결합... 중복 셀 방지; 범위 비교...
  • 중복 또는 고유 선택 행; 빈 행 선택 (모든 셀이 비어 있음); 슈퍼 찾기 및 퍼지 찾기 많은 통합 문서에서; 무작위 선택 ...
  • 정확한 사본 수식 참조를 변경하지 않고 여러 셀; 참조 자동 생성 여러 시트에; 글 머리 기호 삽입, 확인란 등 ...
  • 텍스트 추출, 텍스트 추가, 위치 별 제거, 공간 제거; 페이징 부분합을 만들고 인쇄합니다. 셀 내용과 주석 간 변환...
  • 슈퍼 필터 (다른 시트에 필터 구성표 저장 및 적용) 고급 정렬 월 / 주 / 일, 빈도 등 특수 필터 굵은 기울임 꼴로 ...
  • 통합 문서와 워크 시트 결합; 키 열을 기반으로 테이블 병합; 데이터를 여러 시트로 분할; xls, xlsx 및 PDF 일괄 변환...
  • 300개 이상의 강력한 기능. Office / Excel 2007-2021 및 365를 지원합니다. 모든 언어를 지원합니다. 기업 또는 조직에서 쉽게 배포할 수 있습니다. 전체 기능은 30일 무료 평가판입니다. 60일 환불 보장.
kte 탭 201905

Office Tab은 Office에 탭 인터페이스를 제공하여 작업을 훨씬 쉽게 만듭니다.

  • Word, Excel, PowerPoint에서 탭 편집 및 읽기 사용, Publisher, Access, Visio 및 Project.
  • 새 창이 아닌 동일한 창의 새 탭에서 여러 문서를 열고 만듭니다.
  • 생산성을 50% 높이고 매일 수백 번의 마우스 클릭을 줄입니다!
officetab 하단
코멘트 (56)
아직 평가가 없습니다. 가장 먼저 평가하세요!
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
반대 방향으로 가면 어떻게 될까요? 여러 열에서 단일 열로? 미리 감사드립니다! 팀
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
이것은 환상적이었습니다. A 행에 약 2000개의 고유한 값이 있는 Excel이 있었고 귀하의 도움 없이는 이 연습을 관리할 수 없었습니다. 많은 감사합니다.
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
첫 번째 단계 자체가 실패하면 =INDEX($A$2:$A$16, MATCH(0, COUNTIF($D$1:$D1, $A$2:$A$16), 0)) 값을 사용할 수 없음 오류가 발생합니다.
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
나는 단지 반대로 하고 싶다. 이미 최종 결과가 있고 첫 번째 단계를 달성하고 싶습니다.
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
나는 똑같은 것을 찾고있다.
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
반대 시나리오에 대한 해결책을 찾았습니까? 감사해요!
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
나도 반대로 하고 싶다. 어떤 해결책이 있습니까?
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
안녕, 얘들아,
이 기사의 예를 기반으로 반대 결과를 얻으려면 다음 VBA 코드를 적용할 수 있습니다. (참고: 전치하려는 데이터 범위를 선택할 때 헤더 행을 제외하십시오)

하위 TransposeUnique_2()
Dim xLRow, xLCount As Long
범위로 Dim xRg
Dim xOutRg As Range
Dim xObjRRg As 범위
Dim xTxt를 문자열로
Dim xCount As Long
범위로 xVRg 흐리게 하기
오류에 대한 다음 재개
xTxt = ActiveWindow.RangeSelection.Address
xRg 설정 = Application.InputBox("데이터 범위를 선택하십시오:", "Kutools for Excel", xTxt, , , , , 8)
xRg = Application.Intersect(xRg, xRg.Worksheet.UsedRange) 설정
xRg가 아무것도 없으면 Sub를 종료하십시오.
If (xRg.Rows.count < 2) 또는 _
(xRg.Areas.count > 1) 그런 다음
MsgBox "잘못된 선택", "Excel용 Kutools"
서브 종료
END IF
Set xOutRg = Application.InputBox("출력 범위를 선택하십시오(하나의 셀 지정):", "Kutools for Excel", xTxt, , , , , 8)
xOutRg가 아무것도 없으면 Sub를 종료하십시오.
Application.ScreenUpdating = False
xLCount = xRg.Columns.count
xLRow = 1 xRg.Rows.count로
xObjRRg = Range(xRg.Cells(xLRow, 2), xRg.Cells(xLRow, xLCount)).SpecialCells(xlCellTypeConstants) 설정
xObjRRg.복사
xOutRg.Offset(, 1).PasteSpecial 붙여넣기:=xlPasteAll, 연산:=xlNone, SkipBlanks:=False, 전치:=True
Application.CutCopyMode = False
Range(Cells(xOutRg.Row, xOutRg.Column), Cells(xOutRg.Row + xObjRRg.count - 1, xOutRg.Column)).Value = xRg.Cells(xLRow, 1).Value
xOutRg = xOutRg.Offset(RowOffset:=xObjRRg.count) 설정
다음
Application.ScreenUpdating = True
최종 하위
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
B 열에 고유 값이 없지만 여전히 해당 값이 필요한 경우 전치를 수행하는 방법
KTE 100
KTE 100
두 개의 서로 다른 거래를 가정
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
안녕, 디딘,

문제를 더 명확하고 자세하게 설명할 수 있습니까?
문제에 대한 예시 스크린샷을 삽입할 수 있습니다.
감사합니다!
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
안녕,
아래 요구 사항을 도와주세요.
제품 ------ 주문
KTE ------ 100KTE ------ 200KTO ------ 300KTO ------ 300
예상 출력
상품 ------ 주문 ------ 주문 ------ 주문
KTE ------ 100 ------ 200
한국관광공사 ------ 300 ------ 300







이 댓글은 사이트의 중재자에 의해 최소화되었습니다
나도 같은 것이 필요합니다. 데이터에 100을 두 번 표시하고 싶습니다.
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
그것에 대한 공식을 제안할 수 있습니까?
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
이 문제에 대한 응답/해결책을 받은 적이 있습니까? 나는 같은 것을 가지고있다.
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
이 작업을 반대로 수행하는 방법이 있습니까? 즉, 다양한 길이의 행에 있는 데이터를 두 개의 열로 정렬합니까? 참조 부착.
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
고유 값뿐만 아니라 중복 값도 (모든 값 - 고유 + 중복) 전치하고 싶습니다. 그 공식도 알려주실 수 있나요?
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
같은게 필요해
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
이 문제에 대한 응답/해결책을 받은 적이 있습니까? 나는 같은 것을 가지고있다.
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
아래 공식으로:

=IFERROR(INDEX($B$2:$B$45, MATCH(0, COUNTIF($D2:D2,$B$2:$B$45)+IF($A$2:$A$10<>$D2, 1, 0), 0)), 0)

근사 일치를 사용하여 데이터를 어떻게 전치할 수 있습니까? 예를 들어, A 열의 처음 9개 문자/숫자와 일치하는 B 열의 모든 값을 추출하고 싶습니다. 열 B에는 11개의 문자가 있고 A에는 9개만 있습니다. 감사합니다!
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
나는 이것과 정확히 반대로해야합니다. 행 ID와 연결된 열이 많고 두 열에 붙여넣고 싶습니다.
예를 들어 나는
rowid, 값, 값1, 값2, 값3, 값4, 값..225
100, 돌고래, 255, 9--, 사라, 제임슨, ....
179, 라우터, 홍수, 제이슨, 89, 코



이렇게 생겼으면 좋겠어
100, 돌고래
100, 255
100, 9--
100, 사라
100, 재메손
179, 라우터
179, 홍수
179, 제이슨
179, 89
179, 코
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
안녕하세요, 데이브
문제를 해결하려면 아래 VBA 코드를 사용하십시오. (참고: 전치하려는 데이터 범위를 선택할 때 헤더 행을 제외하십시오.)

하위 TransposeUnique_2()
Dim xLRow, xLCount As Long
범위로 Dim xRg
Dim xOutRg As Range
Dim xObjRRg As 범위
Dim xTxt를 문자열로
Dim xCount As Long
범위로 xVRg 흐리게 하기
오류에 대한 다음 재개
xTxt = ActiveWindow.RangeSelection.Address
xRg 설정 = Application.InputBox("데이터 범위를 선택하십시오:", "Kutools for Excel", xTxt, , , , , 8)
xRg = Application.Intersect(xRg, xRg.Worksheet.UsedRange) 설정
xRg가 아무것도 없으면 Sub를 종료하십시오.
If (xRg.Rows.count < 2) 또는 _
(xRg.Areas.count > 1) 그런 다음
MsgBox "잘못된 선택", "Excel용 Kutools"
서브 종료
END IF
Set xOutRg = Application.InputBox("출력 범위를 선택하십시오(하나의 셀 지정):", "Kutools for Excel", xTxt, , , , , 8)
xOutRg가 아무것도 없으면 Sub를 종료하십시오.
Application.ScreenUpdating = False
xLCount = xRg.Columns.count
xLRow = 1 xRg.Rows.count로
xObjRRg = Range(xRg.Cells(xLRow, 2), xRg.Cells(xLRow, xLCount)).SpecialCells(xlCellTypeConstants) 설정
xObjRRg.복사
xOutRg.Offset(, 1).PasteSpecial 붙여넣기:=xlPasteAll, 연산:=xlNone, SkipBlanks:=False, 전치:=True
Application.CutCopyMode = False
Range(Cells(xOutRg.Row, xOutRg.Column), Cells(xOutRg.Row + xObjRRg.count - 1, xOutRg.Column)).Value = xRg.Cells(xLRow, 1).Value
xOutRg = xOutRg.Offset(RowOffset:=xObjRRg.count) 설정
다음
Application.ScreenUpdating = True
최종 하위
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
감사합니다. 완벽하게 작동합니다. 2일을 절약했습니다! :)
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
안녕하세요 스카이양입니다.
3 열에 대한 코드를 공유하십시오. 다음은 예입니다.
다음과 같은 데이터를 원합니다. yogesh@gmail.com 커뮤니티 1 보기 전용 커뮤니티 2 보기 전용 ...... goyal@gmail.com 커뮤니티 1 보기 전용 커뮤니티 2 보기 전용.......

이 댓글은 사이트의 중재자에 의해 최소화되었습니다
안녕하세요, ygoyal님.

문제를 해결하려면 아래 코드를 적용하세요.

하위 TransposeUnique_2()

Dim xLRow, xLCount As Long

범위로 Dim xRg

Dim xOutRg As Range

Dim xObjRRg As 범위

Dim xTxt를 문자열로

Dim xCount As Long

범위로 xVRg 흐리게 하기

Dim xC, xI, xI1, xI2 정수

오류에 대한 다음 재개

xTxt = ActiveWindow.RangeSelection.Address

xRg 설정 = Application.InputBox("데이터 범위를 선택하십시오:", "Kutools for Excel", xTxt, , , , , 8)

xRg = Application.Intersect(xRg, xRg.Worksheet.UsedRange) 설정

xRg가 아무것도 없으면 Sub를 종료하십시오.

If (xRg.Rows.Count < 2) 또는 _

(xRg.Areas.Count > 1) 그런 다음

MsgBox "잘못된 선택", "Excel용 Kutools"

서브 종료

END IF

Set xOutRg = Application.InputBox("출력 범위를 선택하십시오(하나의 셀 지정):", "Kutools for Excel", xTxt, , , , , 8)

xOutRg가 아무것도 없으면 Sub를 종료하십시오.

Application.ScreenUpdating = False

xLCount = xRg.Columns.Count

xLRow = 1에서 xRg.Rows.Count까지

xObjRRg = Range(xRg.Cells(xLRow, 2), xRg.Cells(xLRow, xLCount)).SpecialCells(xlCellTypeConstants) 설정

오류에 대한 다음 재개

xC = (xObjRRg.카운트 모드 2)

xC <> 0이면

xC = Int(xObjRRg.Count / 2) + 1

다른

xC = Int(xObjRRg.Count / 2)

END IF

xI1 = 1

xI2 = 2

xI의 경우 = 1 ~ xC

범위(xObjRRg.Item(xI1), xObjRRg.Item(xI2)).복사

xOutRg.Offset(, 1).PasteSpecial 붙여넣기:=xlPasteAll, 연산:=xlNone, SkipBlanks:=False, 전치:=False

Application.CutCopyMode = False

xOutRg.Value = xRg.Cells(xLRow, 1).값

xOutRg = xOutRg.Offset(RowOffset:=1) 설정

xI1 = xI1 + (2)

xI2 = xI2 + (2)

다음

다음

Application.ScreenUpdating = True

최종 하위



시도해보십시오. 도움이 되길 바랍니다!
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
안녕하세요 형님, 코드가 반대로 작동합니다. 첨부된 요구사항 스크린샷을 참조하십시오. 사용 가능한 데이터는 행 단위이며 데이터를 열로 변환하려고 합니다.
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
안녕하세요, ygoyal님,
답장이 늦어서 죄송합니다. 아래 코드를 적용해 보시고, 시도해 보시기 바랍니다!

하위 transposeunique()

'업데이트 Extendoffice

흐리게 xLRow As Long

오랫동안 어둡게

문자열로 Dim xCrit

Dim xCol As New Collection

범위로 Dim xRg

Dim xOutRg As Range

Dim xTxt를 문자열로

Dim xCount As Long

범위로 xVRg 흐리게 하기

Dim xFRg, xSRg, xCRg As Range

오류에 대한 다음 재개

xTxt = ActiveWindow.RangeSelection.Address

xRg 설정 = Application.InputBox("데이터 범위를 선택하십시오(3열만):", "Kutools for Excel", xTxt, , , , , 8)

xRg = Application.Intersect(xRg, xRg.Worksheet.UsedRange) 설정

xRg가 아무것도 없으면 Sub를 종료하십시오.

If (xRg.Columns.Count <> 3) 또는 _

(xRg.Areas.Count > 1) 그런 다음

MsgBox "사용된 범위는 두 개의 열이 있는 하나의 영역일 뿐입니다", , "Kutools for Excel"

서브 종료

END IF

Set xOutRg = Application.InputBox("출력 범위를 선택하십시오(하나의 셀 지정):", "Kutools for Excel", xTxt, , , , , 8)

xOutRg가 아무것도 없으면 Sub를 종료하십시오.

xOutRg = xOutRg.Range(1) 설정

xLRow = xRg.Rows.Count

i = 2 xLRow에 대해

xCol.Add xRg.Cells(i, 1).Value, xRg.Cells(i, 1).Value

다음

Application.ScreenUpdating = False

Application.ScreenUpdating = False

i = 1의 경우 xCol.Count까지

xCrit = xCol.Item(i)

xOutRg.Offset(i, 0) = xCrit

xRg.AutoFilter 필드:=1, Criteria1:=xCrit

xVRg = xRg.Range("B2:B" & xLRow).SpecialCells(xlCellTypeVisible) 설정

xVRg.Count > xCount이면 xCount = xVRg.Count

xSRg = xRg.Range("B2:B" & xLRow).SpecialCells(xlCellTypeVisible) 설정

xCRg = xOutRg.Offset(i, 1) 설정

xSRg의 각 xFRg에 대해

xFRg.복사

xCRg.PasteSpecial

xRg.Range("B1").복사

xCRg.Offset(-(i), 0).PasteSpecial

xFRg.Offset(0, 1).복사

xCRg = xCRg.Offset(0, 1) 설정

xCRg.PasteSpecial

xRg.Range("c1").복사

xCRg.Offset(-(i), 0).PasteSpecial

xCRg = xCRg.Offset(0, 1) 설정

다음

Application.CutCopyMode = False

다음

xRg.Item(1).복사

xOutRg.PasteSpecial

xRg.AutoFilter

Application.ScreenUpdating = True

최종 하위
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
Hey Bro 이 코드를 사용해 보았지만 이 코드를 실행하면 Excel이 중단되고 위 코드의 출력을 볼 수 없습니다. 이 경우 어떻게 해야 하는지 제안해 주십시오.
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
안녕,
코드는 내 통합 문서에서 잘 작동합니다. 어떤 Excel 버전을 사용합니까?
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
MS Excel 2016
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
코드는 Excel 2016에서도 잘 작동합니다. 먼저 작은 범위의 데이터로 시도해 보십시오.
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
160개의 레코드에 대해 테스트했지만 여전히 중복이 있었습니다.
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
안녕 Skyyang, 이것을 좋아합니다. XNUMX개의 열에 대해 작동하게 할 수 있는 기회가 있습니까? 다시 처음 두 개를 비교기로 사용하거나 선택하기 전에 열 수를 선택하는 기능이 더 낫습니까? 나는 당신의 스크립트를 보았지만 이것을 달성하는 방법에 대한 단서가 없었습니다 ...
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
안녕 Skyyang, 이것을 좋아합니다. XNUMX개의 열에 대해 작동하게 할 수 있는 기회가 있습니까? 다시 처음 두 개를 비교기로 사용하거나 선택하기 전에 열 수를 선택하는 기능이 더 낫습니까? 나는 당신의 스크립트를 보았지만 이것을 달성하는 방법에 대한 단서가 없었습니다 ...
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
형님, 도와주세요.
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
Hello Bro, 여전히 당신의 도움을 기다리고 있습니다
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
여보세요
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
Dave와 동일하게, 나는 이것의 정반대를 수행해야 합니다. 표 2는 표 1로 전치합니다. 입력 표 2, 출력 표 1.
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
=INDEX($A$2:$A$16, MATCH(0, COUNTIF($D$1:$D1, $A$2:$A$16), 0)) 은 열의 고유한 값을 새 열로 바꾸는 데 도움이 되었습니다. 열 그러나 ... 생성 된 새 열이 오름차순으로 전치되도록 정렬 기능에 광고하는 방법이 있습니까?


감사합니다!
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
동일한 출력을 가져와야 하지만 미리 정의된 열을 선택하려면 ($A,$B)가 필요하고 $D$1의 출력 열 Position이 필요합니다.
아이디어가 있는 사람이 있다면 큰 도움이 될 것입니다!!!!
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
안녕하세요 위의 기능을 사용하여 각 행을 추가하고 한 열에 출력을 제공할 수 있습니다.
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
그래서 저는 회사에서 일하고 있습니다. 성, 이름, 순위, 섹션, 전화 번호, 주소와 같은 정보에 대한 열이 있습니다. 비슷한 수식을 사용하여 정보의 전체 행을 이름으로 열로 바꿀 수 있는 방법이 있습니까?
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
=INDEX($A$2:$A$16, MATCH(0, COUNTIF($D$1:$D1, $A$2:$A$16), 0)) 은 A 열의 고유한 값을 새 값으로 바꾸는 데 도움이 되었습니다. 열 그러나 ... 아래 주어진 바와 같이 B 열의 모든 값을 전치시키는 방법이 있습니까?

상품 주문일 상품 주문 주문 주문 주문 주문 주문 주문
KTE 100 3-3-2019 KTE 100 100 100 200 100 150 100
KTO 150 3-3-2019 KTO 150 100 200 100 150 200
KTE 100 3/4/2019 BOT 150 100 200 150 100 200
KTO 100 3/4/2019 COD 200 150 100 150
KTO 200 3년 5월 2019일
KTE 100 3년 5월 2019일
봇 150 3년 5월 2019일
봇 100 3년 6월 2019일
KTO 100 3년 6월 2019일
KTE 200 3년 6월 2019일
봇 200 3년 7월 2019일
COD 200 3년 7월 2019일
KTE 100 3년 7월 2019일
KTO 150 3년 7월 2019일
봇 150 3년 8월 2019일
KTE 150 3년 8월 2019일
COD 150 3년 8월 2019일
봇 100 3년 9월 2019일
봇 200 3년 10월 2019일
COD 100 3년 10월 2019일
KTO 200 3년 10월 2019일
COD 150 3년 11월 2019일
KTE 100 3년 11월 2019일
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
매크로가 작동하지 않았습니다. 방금 A1 셀의 내용을 복사했습니다.
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
열 A(고유 ID) - E에 데이터 세트가 있습니다. 각 행에는 ID#를 기반으로 하는 데이터가 있고 각 ID#에 대해 여러 행이 있지만 ID#당 하나의 행을 원하고 다른 모든 데이터는 열( 각 고유 ID의 수에 따라 길이는 최소 5개, 최대 25개입니다. 코드를 찾았지만 두 열에서만 작동합니다. 네 개의 열(ID 제외)을 연결한 다음 매크로를 실행한 후 구분해야 했습니다(많은 작업). 15,000개의 데이터 행의 경우 추가 시간이 소요됩니다. 작동하는 무한 열 매크로가 있습니까? 도움을 주신 모든 분들께 미리 감사드립니다!
ID 코드 ST 코드# 날짜
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
A열에 여러 개의 ID가 있고 B열에 연결된 데이터가 있는 데이터 세트가 있습니다. 위의 수식을 사용하고 고유 ID를 기반으로 B열의 셀을 행으로 바꾸도록 약간 변경했습니다. 고유 ID를 식별하는 데 사용되는 공식은 다음과 같습니다. =INDEX($A$2:$A$13409, MATCH(0, COUNTIF($D$1:$D1, $A$2:$A$13409)), 0)). 전치를 수행하는 데 사용되는 공식은 다음과 같습니다. =IFERROR(INDEX($B$2:$B$13409, MATCH(0, IF($A$2:$A$13409<>$D2, 1, 0))+COUNTIF($D2: D2,$B$2:$B$13409), 0)), "해당 사항 없음"). 둘 다 기사에 나와 있으며 약간만 변경되었습니다.

문제는 B 열의 데이터 세트에 중복이 있고 때때로 차례로 나타나며 열의 모든 값이 행에 표시되어야 한다는 것입니다.

첨부된 이미지는 제가 표에 표시하고자 하는 것입니다(이것은 작은 샘플 크기이며 실제 데이터 세트에는 13,000개 이상의 항목이 있습니다). 지금 일어나고 있는 일은 반복 값이 발생했을 때 계산되지 않는다는 것입니다.
즉, ID 9에 대한 행 11980는 이제 0 -31.79 -0.19 -0.74 N/AN/A .... 대신 표시해야 하는 경우 0 0 -31.79 -0.19 -0.74 0 0 N/AN/A 만 ​​표시합니다. ...

이 문제를 해결하고 해결할 수 있는 방법이 있습니까?

사전에 감사합니다!
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
이 문제에 대한 응답/해결책을 받은 적이 있습니까? 나는 같은 것을 가지고있다.
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
아래에 3개의 열이 있는 데이터 세트가 있습니다.



A열 B열 C열



국가1 연도1 값1

국가1 연도2 값2

국가1년3 값3,



국가2 연도1 값1

국가2년3 값3,

...........



이 3개의 열을 다음과 같이 테이블에 결합해야 합니다.

Year1 Year2 Year3 ....................... YearX



국가1 값1 값2 값3

국가2 값1 #결측값3

.....
.....
.....

CountryX Valuex ..................





내가 직면한 문제는 열 A의 일부 데이터에 대해 일부 연도에 대한 값만 가지고 있지 않다는 것입니다. (예를 들어 국가 2에는 2년에 대한 값이 누락됨)





이 문제를 해결하고 해결할 수 있는 방법이 있습니까?



사전에 감사합니다!
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
복사할 열이 2개가 아닌 1개인 경우 코드를 공유할 수 있습니까? 아래는 예입니다.
아직 코멘트가 없습니다
더보기
여러분의 의견을 남겨
게스트로 게시
×
이 게시물 평가 :
0   등장 인물
추천 위치

Follow Us

저작권 © 2009 - WWW.extendoffice.com. | 판권 소유. 에 의해 구동 ExtendOffice. | | 사이트 맵
Microsoft 및 Office 로고는 미국 및 / 또는 기타 국가에서 Microsoft Corporation의 상표 또는 등록 상표입니다.
Sectigo SSL로 보호