تعویض دو سلول در اکسل

Question

آدام باید محتویات دو سلول را عوض کند و به این فکر می کند که آیا راهی برای انجام این کار بدون انجام یک حرکت سه مرحله ای وجود دارد.

در واقع چند راه وجود دارد که می توانید این کار را انجام دهید، بسته به اینکه این دو سلول در ارتباط با یکدیگر قرار گرفته اند. اگر دو سلول مجاور هستند، می توانید از ماوس برای انجام مبادله استفاده کنید:

اولین سلول (به عنوان مثال، سلول C3) را انتخاب کنید. سپس، همزمان با کشیدن یکی از لبه‌های سلول روی سلولی که می‌خواهید با آن تعویض کنید، کلید Shift را نگه دارید (به عنوان مثال، سلول D3). این کار کمی تمرین می‌خواهد، اما همانطور که نشانگر ماوس را در اطراف سلولی که می‌خواهید با آن جابه‌جا شوید حرکت می‌دهید، نشانگرهای «سنگین» ظاهر می‌شوند که نشان می‌دهند کجای تعویض انجام می‌شود.

در واقعیت، چیزی که اتفاق می‌افتد این است که شما محل انتقال سلول اصلی (C3) را نشان می‌دهید. از آنجایی که می‌خواهید با سلول D3 تعویض کنید، می‌خواهید کلید Shift را نگه دارید تا زمانی که نشانگر سنگین در سمت راست سلول D3 ظاهر شود. (شکل 1 را ببینید.)

شکل 1. نشانگر "heavy" نشان می دهد که سلول اصلی کجا کپی می شود.

از آنجایی که سلول اصلی به سمت راست منتقل می شود، سلول D3 به سمت چپ حرکت می کند تا جایی که سلول C3 قبلا قرار داشت را پر کند. نتیجه این است که سلول های C3 و D3 با هم عوض می شوند.

اگر نمی خواهید از ماوس و صفحه کلید با هم استفاده کنید، ممکن است این مراحل را کمی ساده تر کنید:

1. سمت راست ترین سلولی را که می خواهید تعویض کنید (در این مورد، سلول D3) انتخاب کنید.
2. Ctrl+X را فشار دهید . این سلول را به کلیپ بورد برش می دهد، و شما باید "مورچه های راهپیمایی" را در اطراف سلول D3 ببینید.
3. سمت چپ ترین سلولی را که می خواهید تعویض کنید (در این مورد، سلول C3) انتخاب کنید.
4. Ctrl++ را فشار دهید (که Ctrl به اضافه علامت مثبت است، که همان فشار دادن Shift+Ctrl+= است ).

راه سوم برای جابجایی سلول‌های مجاور، انتخاب دو سلول و سپس استفاده از قابلیت‌های مرتب‌سازی اکسل برای مرتب‌سازی تنها دو سلول انتخاب شده است. ممکن است لازم باشد با مرتب‌سازی صعودی یا نزولی بازی کنید، اما باید بتوانید در نهایت سلول‌ها را به ترتیب دلخواه دریافت کنید.

اگر سلول‌های شما مجاور یکدیگر نیستند، برای انجام تعویض باید به یک ماکرو تکیه کنید. ماکرو زیر دو سلول غیر مجاور یا دو سلول مجاور را تعویض می کند. مهم نیست

Sub SwapCells()
    Dim sHolder As String

    If Selection.Cells.Count = 2 Then
        With Selection
            sHolder = .Cells(1).Formula
            If .Areas.Count = 2 Then   Cells selected using Ctrl key
                .Areas(1).Formula = .Areas(2).Formula
                .Areas(2).Formula = sHolder
            Else                       Adjacent cells are selected
                .Cells(1).Formula = .Cells(2).Formula
                .Cells(2).Formula = sHolder
            End If
        End With
    Else
        MsgBox "Select only TWO cells to swap", vbCritical
    End If
End Sub

توجه داشته باشید که ماکرو فقط آنچه را که در سلول‌ها است عوض می‌کند، نه قالب‌بندی سلول. (رویکردهای قبلی ماوس و صفحه کلید برای استفاده با سلول‌های مجاور که قالب‌بندی تعویض شده و همچنین محتویات سلول را انجام می‌دادند.)