Cookies დაგვეხმარება სიტყვით ჩვენი მომსახურება. გამოყენებით ჩვენი მომსახურება, თქვენ ეთანხმებით, რომ ჩვენი გამოყენების cookies.
რჩევა: სხვა ენები Google- ით თარგმნილია. შეგიძლიათ ეწვიოთ English ამ ბმის ვერსია.
შესვლა
x
or
x
x
რეგისტრაცია
x

or

როგორ დავრეგისტრირდეთ სვეტების სიდიდეზე დაფუძნებული რიგები?

მაგალითად, მე მაქვს მთელი რიგი მონაცემები, რომლებიც შეიცავს სვეტების D- ში რიცხვთა სიას და ახლა მინდა, რომ მთელი რიგების დუბლიკატი რამდენჯერმე სვეტი D- ის რიცხვითი მნიშვნელობების საფუძველზე, მიიღოთ შემდეგი შედეგი. როგორ შეიძლება კოპირება რიგები რამდენჯერმე ეფუძნება საკანში ღირებულებების Excel?

doc დუბლიკატი რიგები მიერ საკანში 1

Duplicate რიგები რამდენჯერმე ეფუძნება უჯრედის ღირებულებებს VBA კოდით

რეკომენდებული პროდუქტიულობის ინსტრუმენტები Excel / Office

ოფისის ჩანართი: მოაქციეთ tabbed რედაქტირება Excel და სხვა ოფისის პროგრამული უზრუნველყოფა, ისევე, როგორც Chrome, Firefox და Safari.30 დღე შეუზღუდავი უფასო სასამართლო

Kutools ამისთვის Excel: XXX ძლიერი თვისებები მიიღოს Excel ბევრად ადვილი და გაზრდის პროდუქტიულობის დაუყოვნებლივ.60 დღე შეუზღუდავი უფასო სასამართლო


arrow ლურჯი სწორი bubble Duplicate რიგები რამდენჯერმე ეფუძნება უჯრედის ღირებულებებს VBA კოდით

უჯრედის ღირებულებებზე დაფუძნებული მთელი რიგების კოპირება და დუბლიკატი, შეიძლება დაგჭირდეთ შემდეგი VBA კოდი, გთხოვთ, გაითვალისწინოთ:

1. გეჭიროთ ALT + F11 გასაღებები გასახსნელად Microsoft Visual Basic აპლიკაციებისათვის window.

2. დაწკაპეთ ჩადეთ > მოდულებიდა ჩასვით შემდეგი კოდი მოდულები ფანჯარა.

VBA კოდი: Duplicate რიგები რამდენჯერმე ეფუძნება უჯრედის ღირებულებას:

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 გასაღები ამ კოდის გასაშვებად, მთლიანი რიგები რამდენჯერმე დუბლირებულია სვეტში D უჯრედის მნიშვნელობის მიხედვით.

შენიშვნა: ზემოთ აღნიშნულ კოდექსში, წერილში A მიუთითებს დაწყების სვეტში თქვენი მონაცემები დიაპაზონი და წერილი D არის სვეტის წერილი, რომელიც გსურთ მორგებული რიგების საფუძველზე. გთხოვთ, შეცვალოთ ისინი თქვენს საჭიროებასთან დაკავშირებით.



რეკომენდებული პროდუქტიულობის ინსტრუმენტები

ოფისის ჩანართი

ოქროს ვარსკვლავი 1 მოიტანეთ ხელსაყრელი ჩანართები Excel და სხვა საოფისე პროგრამებისთვის, ისევე როგორც Chrome, Firefox და ახალი Internet Explorer.

Kutools ამისთვის Excel

ოქროს ვარსკვლავი 1 საოცარი! გაზარდეთ თქვენი პროდუქტიულობა წუთში. არ გჭირდებათ რაიმე განსაკუთრებული უნარები, ყოველდღე ორ საათში გადარჩენა!

ოქროს ვარსკვლავი 1 300 ახალი ფუნქციები Excel, ჩადება Excel ძალიან მარტივი და ძლიერი:

  • უჯრედის / რიგების / სვეტების შერწყმა მონაცემების დაკარგვის გარეშე.
  • მრავალჯერადი ცხრილებისა და სამუშაოების კომბინირება და კონსოლიდაცია.
  • შეადარეთ საზღვრები, დააკოპირეთ მრავალჯერადი საზღვრები, გადაიყვანეთ ტექსტის თარიღის, განყოფილებისა და ვალუტის კონვერტაციის.
  • დათვლა ფერები, Paging Subtotals, გაფართოებული დალაგება და სუპერ ფილტრი,
  • სხვა არჩევა / ჩასმა / წაშლა / ტექსტი / ფორმატი / ლინკი / კომენტარი / სამუშაო წიგნები / სამუშაოები ინსტრუმენტები ...

ეკრანის კადრი Kutools for 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.
    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