تکرار یک الگو هنگام کپی یا پر کردن سلول در اکسل

Question

تاد در حال تنظیم فهرست موجودی کتاب های مصور است و مایل است هر سلول در ستون A حاوی متن "بتمن (1940) 0" باشد که 3 بار تکرار شده است، و سپس "بتمن (1940) 1" سه بار تکرار شده، "بتمن (1940)" 2" 3 بار تکرار شده، تمام راه "بتمن (1940) 700" 3 بار تکرار شده است. این 2103 خط جداگانه است، اما تاد مطمئن نیست که چگونه الگوهایی مانند این را هنگام کپی کردن یا پر کردن سلول ها تکرار کند.

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

1. در سلول A1 موارد زیر را وارد کنید: بتمن (1940) 0
2. سلول A1 را انتخاب کنید.
3. دستگیره پر را به سمت سلول A701 به پایین بکشید. این باید یک دنباله کامل از "Batman (1940) 0" تا "Batman (1940) 700" را به شما بدهد و سلول های موجود در محدوده همچنان باید انتخاب شوند.
4. برای کپی کردن محدوده در کلیپ بورد، Ctrl+C را فشار دهید .
5. محدوده را در سلول A702 و سپس دوباره در سلول A1403 قرار دهید.
6. مرتب سازی ستون A.

کل این روند خیلی سریع پیش می رود. من با آن در حدود 45 ثانیه تمام شد. اما یک اشکال وجود دارد: پس از مرتب‌سازی، توالی سلول‌ها را بر اساس عدد انتهای متن به ترتیب عددی دریافت نمی‌کنید. اگر می‌خواهید اطمینان حاصل کنید، باید اولین کتاب کمیک خود (در سلول A1) را با نام «بتمن (1940) 000» وارد کنید. هنگامی که از سه رقم برای عدد پایانی استفاده می کنید، مرتب سازی به خوبی انجام می شود.

روش دیگری نیز وجود دارد که می توانید از آن استفاده کنید که به دسته پر نیز متکی است. این مراحل کلی را دنبال کنید:

شکل 1. کادر گفتگوی Go To Special.

1. در سلول A1 موارد زیر را وارد کنید: بتمن (1940) 0
2. در سلول A4 موارد زیر را وارد کنید: بتمن (1940) 1
3. سلول های A1:A6 را انتخاب کنید. (این بسیار مهم است.)
4. دستگیره پر را به سمت سلول A2103 به پایین بکشید. این باید یک دنباله کامل از "Batman (1940) 0" تا "Batman (1940) 700" را با دو خانه خالی بعد از هر مورد در دنباله به شما ارائه دهد و سلول های موجود در محدوده همچنان باید انتخاب شوند.
5. F5 را فشار دهید . اکسل کادر گفتگوی Go To را نمایش می دهد.
6. روی دکمه Special کلیک کنید. اکسل کادر محاوره ای Go To Special را نمایش می دهد. (شکل 1 را ببینید.)
7. مطمئن شوید که دکمه رادیویی Blanks انتخاب شده است.
8. بر روی دکمه OK کلیک کنید. اکسل انتخاب را طوری تغییر می دهد که فقط سلول های خالی در محدوده انتخاب شوند.
9. در نوار فرمول این فرمول را تایپ کنید: =A1
10. Ctrl+Enter را فشار دهید . این فرمول را در تمام سلول های خالی کپی می کند.
11. سلول های A1:A2103 را انتخاب کنید.
12. برای کپی کردن محدوده در کلیپ بورد، Ctrl+C را فشار دهید .
13. برای چسباندن مقادیر از Paste Special استفاده کنید. این فرمول ها را دوباره به مقادیر تبدیل می کند.

سومین رویکرد - که به نظر من خیلی سریع انجام می شود - استفاده از یک فرمول از ابتدا است:

1. در سلول A1 فرمول زیر را وارد کنید: "Batman (1940) "&INT((ROW()-1)/3)
2. سلول های A1:A2103 را انتخاب کنید.
3. Ctrl+D را فشار دهید . فرمول موجود در سلول A1 در بقیه محدوده انتخاب شده کپی می شود.
4. برای کپی کردن محدوده در کلیپ بورد، Ctrl+C را فشار دهید .
5. برای چسباندن مقادیر از Paste Special استفاده کنید. (این فرمول ها را دوباره به مقادیر تبدیل می کند.)

اگر شما نیاز به ایجاد دنباله هایی مانند این اغلب دارید، پس از یک رویکرد مبتنی بر کلان قدردانی خواهید کرد. زیر ساده است، قرار دادن دنباله متن مورد نظر در ستون A:

Sub ComicSequence()
    Dim sTemp As String
    Dim J As Integer
    Dim K As Integer

    sTemp = "Batman (1940) "
    For J = 0 To 700
        For K = 1 To 3
            Cells(J * 3 + K, 1).Value = sTemp & J
        Next K
    Next J
End Sub

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