Vitajte na [www.pocitac.win] Pripojiť k domovskej stránke Obľúbené stránky
Otvorte list , v ktorom chcete skopírovať a vložiť bunky .
2
Kliknite na kartu " Vývojár " a potom kliknite na tlačidlo " Visual Basic " .
3
Kliknite na " Vložiť " kartu v okne " Visual Basic " a potom kliknite na tlačidlo " modul . " Otvorí sa nové okno
4
Cut a vložte nasledujúci kód do okna : .
Sub CpyPste ( )
Dim predať ako rozsah
Dim NewRow As Long Dim
Rng ako rozsah
" vypnúť obrazovku aktualizáciu
Application.ScreenUpdating = False
NewRow = 401
Set Rng = Range ( " A1 : A400 " )
Každý predávať v RNG
riadky ( Sell.Row & " : " & Sell.Row ) . Vyberte
Selection.Copy
riadky ( NewRow & " : " & NewRow ) . Vyberte
Selection.PasteSpecial Paste : = xlValues , Operation : = xlNone , SkipBlanks : = _
False , Transpozícia : = False
Application.CutCopyMode = False
NewRow = NewRow + 1
Ďalšie Sell klipart
Range ( " A1 " ) . Vyberte
Application.ScreenUpdating = true
End Sub
5
Zmeňte kód tak , aby vyhovovali vašim potrebám . Upraviť rozsah ( " A1 : A400 " ) na rozsah dát v dokumente . Napríklad , v prípade , že dáta v bunkách B1 až B10 by zmeniť rozsah do ( " B1 : B10 " ) . Budete tiež musieť určiť , kde majú byť dáta vloženie ( buniek A401 v tomto makre , ktoré sú definované " 401 " ) .
6
Stlačte " F5 " pre spustenie makra .
Copyright © počítačové znalosti Všetky práva vyhradené