Kaip nukopijuoti iš vieno darbalapio ir įklijuoti į kitą naudojant VBA

„Visual Basic for Applications“ (VBA) yra idealus būdas pritaikyti „Excel 2010“ pagal jūsų poreikius. Jei nuolat atliekate tas pačias užduotis, pvz., kopijuojate duomenis programoje „Excel“, galite priversti VBA atlikti užduotį už jus. Užuot kopijavę duomenis iš vieno darbalapio rankiniu būdu ir įklijuodami į kitą, parašykite VBA makrokomandą ir galite paspausti mygtuką, kad iškart atliktumėte kopijavimą ir įklijavimą.

1 žingsnis

Spustelėkite skirtuką „Kūrėjas“, tada spustelėkite „Visual Basic“, kad atidarytumėte „Visual Basic“ rengyklę (VBE), su kuria galite sukurti VBA.

Dienos vaizdo įrašas

2 žingsnis

Spustelėkite „Įterpti“, tada spustelėkite „Modulis“, kad atidarytumėte tuščią modulio langą.

3 veiksmas

Iškirpkite ir įklijuokite šį kodą į modulio langą:

Sub Copy_Data() programa. ScreenUpdating = klaidingi darbalapiai ("1 lapas"). Diapazonas ("A1:A10"). Vertė = Darbalapiai ("Sheet2"). Diapazonas ("B1: B10"). Vertės taikymas. ScreenUpdating = True End Sub

4 veiksmas

Pritaikykite kodą pagal savo poreikius; kaip parašyta, kodas nukopijuoja 1 darbalapio langelių A1–A10 duomenis į 2 darbalapio langelius B1–B10. Pavyzdžiui, jei norite nukopijuoti duomenis iš 4 lapo langelių C1–C100 į 5 lapo langelius D1–D100, perrašykite trečią kodo eilutę, kad būtų perskaityta:

Darbalapiai("Sheet4").Range("C1:C100").Value = Worksheets("Sheet5").Range("D1:D100").Vertė

5 veiksmas

Paspauskite „F5“, kad paleistumėte rutiną.

Patarimas

Paspauskite „Alt“ ir „F11“ klavišus kartu, kad perjungtumėte darbalapį ir kodą.