کپی و چسباندن محدوده سلول های غیر پیوسته

Question

Szilvia می تواند مجموعه ای از سلول ها را ایجاد کند، به طوری که یک محدوده غیر پیوسته از سلول ها انتخاب شده باشد. اگر او سعی کند آن سلول ها را با استفاده از Ctrl+C کپی کند ، اکسل به او اطلاع می دهد که "این عمل روی چندین انتخاب کار نمی کند." Szilvia به این فکر می کند که آیا راهی برای کپی کردن یک محدوده غیر پیوسته و سپس چسباندن آن محدوده به طوری که سلول ها در همان موقعیت نسبی انتخاب اصلی باشند وجود دارد.

ظاهراً، این محدودیت که فقط به شما اجازه می دهد تا محدوده های پیوسته را کپی و جای گذاری کنید، راهی است که اکسل برای کار طراحی شده است. تنها راهی که می توانید یک محدوده غیرمرتبط را کپی و جای گذاری کنید، استفاده از یک ماکرو است که از هر سلول در یک انتخاب عبور می کند و آن را نسبت به یک آدرس هدف جای گذاری می کند. نمونه زیر است:

Sub CopyPasteCells()
    Dim sTemp As String
    Dim sTarget As String
    Dim c As Range
    Dim pasteRng As Range

    sTemp = InputBox("Target cell?")
    sTarget = Trim(sTemp)
    If sTarget > "" Then
        Set pasteRng = ActiveSheet.Range(sTarget)
        For Each c In Selection
            c.Copy
            pasteRng.Range(c.Address).PasteSpecial xlPasteValues
        Next
    End If
    Application.CutCopyMode = False
End Sub

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

باید توجه داشته باشید که ماکرو خطای بسیار کمی را بررسی می کند. به عنوان مثال، می توانید آدرس سلول هدف کاملاً جعلی را وارد کنید و ماکرو سعی می کند درخواست شما را برآورده کند. (اگر آدرس مورد نظر خیلی جعلی باشد، یک پیام خطا دریافت خواهید کرد.)