Excel에서 셀 내용을 바꾸시겠습니까?

Microsoft Excel에서 두 셀의 내용을 바꾸는 쉬운 방법이 있습니까?

쉽게 말해서, 임시 셀에 복사하거나 VBA 스크립트 등을 작성하지 않고 키보드 단축키 또는 메뉴 항목을 의미합니다. 즉, 두 개의 셀을 선택하고 메뉴 항목을 클릭하거나 내용을 바꿀 키 조합을 누르는 방법을 찾고 있습니다. 확실히, 이것을 할 수있는 방법이 있어야합니까?

보낸 사람 : http://www.extendoffice.com/documents/excel/860-excel-swap-contents-of-two-cells.html

때로는 두 개의 인접한 셀을 교체해야합니다. 우리는 수동으로 쉽게 할 수 있습니다. 다음 스크린 샷을보고 셀 A4와 B4를 바꾸고 싶습니다. 다음과 같이하십시오.

1. 바꾸려는 셀을 선택하십시오. 이 예에서는 A4 셀을 선택하십시오.

2. Shift 키를 누르고 커서를 오른쪽 경계에 놓습니다.

3. 그런 다음 커서를 B4 셀의 오른쪽 경계로 끕니다.

4. “工”이 표시되면 마우스를 놓습니다.

5. 그리고 두 개의 셀 내용이 바뀌 었습니다.

이 방법을 사용하면 인접한 두 행 또는 열을 바꿀 수도 있습니다.

인접한 동일한 크기의 사각형 범위의 특정 경우 에 대해이 질문에 설명 된 방법 을 비슷한 질문 에 사용할 수 있습니다 .

1. 오른쪽 또는 아래쪽 범위를 선택하십시오
2. Ctrl+를 누르십시오X
3. 인접 범위 (즉, 바로 위 또는 왼쪽)를 선택하십시오.
4. Ctrl+를 누릅니다 +( +보통 =키 위에 있으므로 Ctrl+ Shift+로 변환 됨 =)

동일한 절차를 사용하여 인접한 모든 행 또는 열을 바꿀 수 있습니다.

쉽게 말해서, 임시 셀에 복사하거나 VBA 스크립트 등을 작성 하지 않고도 키보드 단축키 또는 메뉴 항목을 의미합니다 . 두 개의 셀을 선택하고 메뉴 항목을 클릭하거나 내용을 바꿀 키 조합을 누르는 방법을 찾고 있습니다.

왜이 제한을 적용합니까? 매크로를 만들면이 작업이 간단 해집니다. 내가 아는 한 다른 방법으로는 할 수 없습니다. 매크로를 버튼이나 핫키에 할당 할 수 있습니다.

Sub Swap()     
    If Selection.Count <> 2 Then     
         MsgBox "Select 2 cells (only) to swap."     
         Exit Sub     
    End If     
    Set trange = Selection     
    If trange.Areas.Count = 2 Then     
         temp = trange.Areas(2)     
         trange.Areas(2) = trange.Areas(1)     
         trange.Areas(1) = temp     
    Else     
         temp = trange(1)     
         trange(1) = trange(2)     
         trange(2) = temp     
    End If     
End Sub     

아니요. 직접 매크로를 작성하지 않고 Excel에서 두 셀의 내용을 바꿀 방법이 없습니다.

편집 : 이제 최신 버전의 Excel에서 셀 내용을 쉽게 바꿀 수있는 것처럼 들리 므로이 답변은 최신 정보가 아닐 수 있습니다.

교체 할 첫 번째 셀 세트를 선택하고 ctrl+를 누르십시오 x.

바꾸려는 셀 옆에서 셀을 선택하고 ctrl+를 누르십시오 +.

클립 보드에 최대 25 개의 항목을 붙여 넣을 수 있으므로 ctr + tab 또는 cmd + tab mac을 사용하여 쉽게 교체 할 수 있습니다.

• 바꾸려는 맨 아래 셀을 선택하십시오.
• Ctrl+를 누르고 X바꾸려는 셀로 이동하십시오.
• Ctrl+ Shift+를 누릅니다=

스왑이 실행됩니다

이 게시물을 읽었지만 실제로 전체 범위를 바꾸려면 매크로가 필요했습니다. 또한 색상을 바꿔야했습니다. 원래 게시 된 매크로를 약간 수정하면 누군가에게 유용 할 수 있습니다.

Sub Swap()

    If Selection.Areas.Count <> 2 Then
         MsgBox "Select 2 cell ranges (only) to swap."
         Exit Sub
    End If


    If Selection.Areas(1).Count <> Selection.Areas(2).Count Then
         MsgBox "The two areas must be of equal size"
         Exit Sub
    End If

    'With this for loop we run through each cell 1 by 1
    For i = 1 To Selection.Areas(1).Count
        'Swapping values
        temp = Selection.Areas(1)(i)
        Selection.Areas(1)(i) = Selection.Areas(2)(i)
        Selection.Areas(2)(i) = temp

        'Swapping color
        tempColor = Selection.Areas(1)(i).DisplayFormat.Interior.Color
        Selection.Areas(1)(i).Interior.Color = Selection.Areas(2)(i).DisplayFormat.Interior.Color
        Selection.Areas(2)(i).Interior.Color = tempColor
    Next i

End Sub