טיפ: שפות אחרות הן Google-Translated. אתה יכול לבקר את English גרסה של קישור זה.
התחבר
x
or
x
x
הירשם
x

or

כיצד לשכפל שורות בהתבסס על ערך התא בעמודה?

לדוגמה, יש לי מגוון של נתונים המכיל רשימה של מספרים בעמודה D, ועכשיו, אני רוצה לשכפל את כל השורות מספר פעמים על סמך הערכים המספריים בעמודה D כדי לקבל את התוצאה הבאה. כיצד ניתן להעתיק את השורות מספר פעמים בהתבסס על ערכי התא ב- Excel?

doc שורות כפולות על ידי תא 1

שורות כפולות מספר פעמים על סמך ערכי תאים עם קוד VBA


חץ כחול בועה ימין שורות כפולות מספר פעמים על סמך ערכי תאים עם קוד VBA

כדי להעתיק ולשכפל את כל השורות מספר פעמים על סמך ערכי התא, קוד ה- VBA הבא עשוי לעזור לך, אנא בצע את הפעולות הבאות:

1. החזק את ALT + F11 מפתחות כדי לפתוח את Microsoft Visual Basic עבור יישומים חלון.

2. לחץ הַבלָעָה > מודול, והדבק את הקוד הבא מודול חַלוֹן.

קוד VBA: שורות כפולות מספר פעמים על בסיס ערך התא:

Sub CopyData()
'Updateby Extendoffice 20160922
    Dim xRow As Long
    Dim VInSertNum As Variant
    xRow = 1
    Application.ScreenUpdating = False
    Do While (Cells(xRow, "A") <> "")
        VInSertNum = Cells(xRow, "D")
        If ((VInSertNum > 1) And IsNumeric(VInSertNum)) Then
           Range(Cells(xRow, "A"), Cells(xRow, "D")).Copy
           Range(Cells(xRow + 1, "A"), Cells(xRow + VInSertNum - 1, "D")).Select
           Selection.Insert Shift:=xlDown
           xRow = xRow + VInSertNum - 1
        End If
        xRow = xRow + 1
    Loop
    Application.ScreenUpdating = False
End Sub

3. לאחר מכן לחץ על F5 המפתח להפעלת קוד זה, כל השורות כבר כפולות מספר פעמים על בסיס ערך התא בעמודה ד כפי שאתה צריך.

הערות: בקוד לעיל, את המכתב A מציין את העמודה 'התחל' של טווח הנתונים, ואת האות D הוא אות העמודה שברצונך לשכפל את השורות בהתבסס על. אנא שנה אותם לצרכים שלך.



כלי פרודוקטיביות מומלצים

הכרטיסייה 'משרד'

כוכב זהב תביא כרטיסיות שימושיות ל- Excel ולתוכנות Office אחרות, בדיוק כמו Chrome, Firefox ו- Internet Explorer החדש.

Kutools עבור Excel

כוכב זהב מדהים! הגדל את הפרודוקטיביות שלך ב- 5 דקות. לא צריך שום כישורים מיוחדים, לשמור שעתיים כל יום!

כוכב זהב 300 תכונות חדשות עבור Excel, להפוך את Excel הרבה יותר קל ורב עוצמה:

  • מיזוג תאים / שורות / עמודות מבלי לאבד נתונים.
  • שלב ולאחד מספר גיליונות וחוברות עבודה.
  • השווה טווחים, העתק טווחים מרובים, המרת טקסט עד תאריך, יחידת המרת מטבע.
  • ספירה לפי צבעים, סכימות החלפה, מתקדם מיון ו סופר מסנן,
  • עוד בחר / הוסף / מחק / טקסט / עיצוב / קישור / תגובה / חוברות עבודה / גליונות עבודה ...

צילום מסך של Kutools עבור Excel

Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    ISRA · 1 months ago
    there is any way we can add to eache repeated cell, a consecutive caracters? example
    KTE+0001

    KTE+0002
  • To post as a guest, your comment is unpublished.
    KAS · 3 months ago
    Is there a way to update the module to only duplicate new data? I'm working on an ongoing document and do not want the code to duplicate data that has been previously duplicated.
  • To post as a guest, your comment is unpublished.
    Gerardo Enrique Heras Araujo · 4 months ago
    hi, for me is no working, I want to remove letters and number duplicate is possible?
  • To post as a guest, your comment is unpublished.
    Naomi · 4 months ago
    This script seems to be exactly what I need, however, when I run it I am getting an error on the line Selection.Insert Shift:=x1Down

    Any suggestions on how I fix this?
  • To post as a guest, your comment is unpublished.
    Manuel F · 4 months ago
    Thanks! it has been a great solution for all my troubles!