Խորհուրդ. Այլ լեզուներն են Google- թարգմանված: Դուք կարող եք այցելել այն English այս հղման տարբերակը:
Մուտք
x
or
x
x
Գրանցում
x

or

Ինչպես սյունակում բջջային արժեքի վրա հիմնված տողեր կրկնօրինակել:

Օրինակ, ես ունեմ մի շարք տվյալներ, որոնք պարունակում են D սյունակում թվերի ցանկը, եւ հիմա, ուզում եմ կրկնել ամբողջ տողերի մի քանի անգամ, սյունակի D թվային արժեքների հիման վրա, ստանալ հետեւյալ արդյունքը: Excel- ում բջջային արժեքների հիման վրա ինչպես կարող եմ բազմապատկել տողերը:

1 բջիջով doc կրկնօրինակել տողերը

Կրկնօրինակել տողերը բազմակի անգամ, հիմնված բջջային արժեքների VBA կոդի հետ


arrow կապույտ աջ փուչիկ Կրկնօրինակել տողերը բազմակի անգամ, հիմնված բջջային արժեքների 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 սյունակաթուղթն է, որը ցանկանում եք կրկնօրինակել տողերի վրա հիմնված: Խնդրում ենք փոխել դրանք ձեր կարիքի համար:



Առաջարկված արտադրողականության գործիքներ

Գրասենյակի էջանշանը

ոսկի star1 Հասանելի էջանիշեր բերեք Excel- ում եւ Office- ի այլ ծրագրերում, ինչպես Chrome- ի, Firefox- ի եւ նոր Internet Explorer- ի:

Excel- ի համար Excel- ում

ոսկի star1 Զարմանալի է: Բարձրացրեք ձեր արտադրողականությունը 5 րոպեում: Անհրաժեշտ է հատուկ հմտություններ, օրական երկու ժամ տեւողությամբ:

ոսկի star1 300- ի նոր առանձնահատկությունները Excel- ում, կատարել Excel շատ հեշտ եւ հզոր:

  • Միավորել բջիջը / շարքերը / սյունակները առանց կորցնելու տվյալների:
  • Միավորել եւ միավորել բազմակի թերթիկները եւ աշխատանքային տետրերը:
  • Համեմատեք միջակայքերը, պատճենեք բազմակի ընդգրկույթներ, փոխեք տեքստային ամսաթիվը, միավորը եւ արտարժույթի փոխակերպումը:
  • Count by Colors, Paging Subtotals, Ընդլայնված Sort եւ Super Filter,
  • Լրացուցիչ Ընտրել / Ներդիր / Ջնջել / Տեքստային / Ֆորմատ / ՈՒղեցույց / Մեկնաբանություն / Աշխատանքային տետրեր / Գործիքներ գործիքներ ...

Excel ստեղնաշարի կրկնօրինակը 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 · 25 days 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 · 2 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 · 3 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 · 3 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 · 3 months ago
    Thanks! it has been a great solution for all my troubles!