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

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

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

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 არის სვეტის წერილი, რომელიც გსურთ მორგებული რიგების საფუძველზე. გთხოვთ, შეცვალოთ ისინი თქვენს საჭიროებასთან დაკავშირებით.

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

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

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

Kutools ამისთვის Excel