کوکیز ہماری خدمات فراہم کرنے میں ہماری مدد کرتی ہے. ہماری خدمات کو استعمال کرتے ہوئے، آپ کو کوکیز کے استعمال سے اتفاق کرتے ہیں.
ٹپ: دوسری زبانیں Google-Translated ہیں. آپ ملاحظہ کر سکتے ہیں English اس لنک کا ورژن.
لاگ ان کریں
x
or
x
x
رجسٹر
x

or

ایک کالم میں سیل کی قیمت پر مبنی قطاروں کی نقل کیسے کریں؟

مثال کے طور پر، میرے پاس متعدد اعداد و شمار ہیں جن میں کالم D میں نمبروں کی ایک فہرست شامل ہے، اور اب میں مندرجہ بالا نتائج حاصل کرنے کے لئے میں مکمل قطار کو کالم ڈی ڈی میں عددی اقدار کی بنیاد پر کئی بار نقل کرنا چاہتا ہوں. میں ایکسل کے سیل اقدار کی بنیاد پر قطعوں کو کئی دفعہ کاپی کیسے کرسک سکتا ہوں؟

سیل 1 کی طرف سے ڈوکیٹ کی قطاریں

VBA کوڈ کے ساتھ سیل اقدار پر مبنی قطار قطعے کئی دفعہ


تیر نیلے رنگ بلبلا VBA کوڈ کے ساتھ سیل اقدار پر مبنی قطار قطعے کئی دفعہ

سیل کی قیمتوں پر مبنی پوری قطاروں کو ایک سے زیادہ بار کاپی کرنے اور نقل کرنے کے لئے، مندرجہ ذیل VBA کوڈ آپ کی مدد کرسکتا ہے، برائے مہربانی ایسا کریں:

1. نیچے رکھو ALT + F11 کلیدوں کو کھولنے کے لئے مائیکروسافٹ بصری بنیادی کے لئے درخواستیں کھڑکی.

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 کالم کا خط ہے جس پر آپ کی بنیاد پر قطاروں کو نقل کرنا ہے. برائے مہربانی انہیں اپنی ضرورت میں تبدیل کریں.



سفارش کردہ پروڈکٹیوٹی ٹولز

آفس ٹیب

سونے کی ستارہ ایکس این ایم ایکس ایکس کروم، فائر فاکس اور نئے انٹرنیٹ ایکسپلورر کی طرح، ایکسل اور دیگر دفتری سافٹ ویئر میں آسان ٹیبز لائیں.

ایکسل کے لئے Kutools

سونے کی ستارہ ایکس این ایم ایکس ایکس حیرت انگیز! 5 منٹ میں اپنی پیداوری میں اضافہ کریں. کسی بھی خاص مہارت کی ضرورت نہیں، ہر روز دو گھنٹوں کو بچاؤ!

سونے کی ستارہ ایکس این ایم ایکس ایکس 300 ایکسل کے لئے نئی خصوصیات، ایکسل آسان اور طاقتور بنائیں:

  • ڈیٹا کھونے کے بغیر سیل / قطار / کالم ضم
  • ایک سے زیادہ شیٹ اور ورک بک بک کو یکجا اور مضبوط.
  • رینجز کا موازنہ کریں، ایک سے زیادہ رینج کاپی کریں، متن میں تاریخ، یونٹ اور کرنسی تبادلوں میں تبدیل کریں.
  • رنگوں کی طرف سے شمار، پیجنگ Subtotals، اعلی درجے کی ترتیب اور سپر فلٹر،
  • مزید منتخب کریں / داخل / حذف / متن / شکل / لنک / تبصرہ / ورک بک بک / ورکشاپ شیٹ ...

ایکسل کے لئے کوٹول کی سکرین شاٹ

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.
    KAS · 1 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 · 2 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 · 2 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 · 2 months ago
    Thanks! it has been a great solution for all my troubles!
  • To post as a guest, your comment is unpublished.
    Leah · 3 months ago
    Hello, this worked great. However, I have a report with 1000 entries and the code stopped duplicating around entry 480. Is there something that I can add so that it completes the action on the entire report?
    • To post as a guest, your comment is unpublished.
      skyyang · 3 months ago
      Hello, Leah,
      I have tested the code in 2000 rows, and it works well.
      Could you send your worksheet to me for testing the code?
      My email address is skyyang@extendoffice.com
      Look forward to your reply!
      • To post as a guest, your comment is unpublished.
        Leah · 3 months ago
        Hello! I got it to work. It was an error on my side, the report had a few blank rows that were hidden that were causing the script to stop looping. It worked for my report with 8,000 rows! Thank youQ