Cum se copiază o foaie ascunsă în Excel?
În Excel, putem muta și copia o foaie în registrul curent sau alt registru de lucru rapid și ușor, dar ați încercat vreodată să copiați o foaie ascunsă în registrul de lucru activ? În acest articol, voi introduce un cod VBA pentru a copia o anumită foaie ascunsă în fișierul Excel activ.
Copiați o foaie de lucru ascunsă în registrul de lucru activ cu cod VBA
Copiați o foaie de lucru ascunsă în registrul de lucru activ cu cod VBA
Pentru a copia o foaie ascunsă dintr-un registru de lucru și a-i da un nume, următorul cod VBA vă poate face o favoare:
1. Țineți apăsat butonul ALT + F11 tastele pentru a deschide Microsoft Visual Basic pentru aplicații fereastră.
2. Clic Insera > Moduleși lipiți următorul cod în Module Fereastră.
Cod VBA: Copiați o foaie de lucru ascunsă în registrul de lucru activ:
Sub DupSheet()
'Updateby Extendoffice 20161109
Dim Actsheet As String
Application.ScreenUpdating = False
On Error Resume Next
ActiveWorkbook.Sheets("Sheet12").Visible = True
ActiveWorkbook.Sheets("Sheet12").Copy _
after:=ActiveWorkbook.Sheets("Sheet12")
ActNm = ActiveSheet.Name
ActiveSheet.Name = InputBox("Enter the name for the new sheet.")
Sheets(ActiveSheet.Name).Visible = True
ActiveWorkbook.Sheets("Sheet12").Visible = False
Application.ScreenUpdating = True
End Sub
notițe: În codul de mai sus, Indicatori din 12 este foaia ascunsă pe care doriți să o copiați, vă rugăm să o modificați după nevoile dvs.
3. Și apoi apăsați F5 tasta pentru a rula acest cod, va apărea o casetă de solicitare pentru a vă reaminti să specificați un nume pentru noua copie a foii de lucru ascunse, vedeți captura de ecran:
4. Apoi apasa OK butonul, iar foaia ascunsă a fost copiată odată cu noul nume din registrul de lucru activ.
Cele mai bune instrumente de productivitate de birou
Îmbunătățiți-vă abilitățile Excel cu Kutools pentru Excel și experimentați eficiența ca niciodată. Kutools pentru Excel oferă peste 300 de funcții avansate pentru a crește productivitatea și a economisi timp. Faceți clic aici pentru a obține funcția de care aveți cea mai mare nevoie...
Fila Office aduce interfața cu file în Office și vă face munca mult mai ușoară
- Activați editarea și citirea cu file în Word, Excel, PowerPoint, Publisher, Access, Visio și Project.
- Deschideți și creați mai multe documente în filele noi ale aceleiași ferestre, mai degrabă decât în ferestrele noi.
- Vă crește productivitatea cu 50% și reduce sute de clicuri de mouse pentru dvs. în fiecare zi!