- Makrokomanda pridės lapą su pavadinimu „Master“ į jūsų darbo knygą ir nukopijuos langelius iš kiekvieno šio darbalapio darbaknygės lapo.
- Pirmoji makrokomanda kopijuoja įprastai, o antroji - kopijuoja reikšmes.
- Makrokomandos antrininkai naudoja toliau nurodytas funkcijas, makrokomandos neveiks be funkcijų.
Naudokite šią sh.Rows ("1: 4"). Nukopijuokite, kad nukopijuotumėte daugiau nei vieną eilutę.
Subtestas4 () Dim sh kaip darbalapis Dim DestSh Kaip darbalapis Dim paskutinis tol, kol SheetExists ("Master") = True Tada MsgBox "The sheet Master jau egzistuoja" Exit Sub End if Application.ScreenUpdating = False Set DestSh = Worksheets.Add DestSh .Name = "Meistras" Kiekvienam šiam darbaknygėje. Darbo lapai Jei sh.Name DestSh.Name Tada Jei sh.UsedRange.Count> 1 Tada Last = LastRow (DestSh) sh.Rows ("1"). Copy DestSh.Cells ( Paskutinis + 1, 1) pabaiga, jei pabaiga, jei kita programa.ScreenUpdating = Tikrosios pabaigos antrinis testas egzistuoja "Exit Sub End If Application.ScreenUpdating = False Set DestSh = Worksheets.Add DestSh.Name =" Master "Už kiekvieną sh šioje ThisWorkbook.Worksheets If sh.Name DestSh.Name Tada If sh.UsedRange.Count> 1 Tada Last = LastRow (DestSh) Su sh.Rows ("1") DestSh.Cells (Paskutinis + 1, 1) .Resize (.Rows.Count, _ .Columns.Count) .Value = .Value End End su End If End If Next Application .Sekreta nUpdating = Tikrosios pabaigos subfunkcija LastRow (sh kaip darbalapis) Dėl klaidos Tęsti Kitas LastRow = sh.Cells.Find (Kas: = "*", _ Po: = sh.Range ("A1"), _ Lookat: = xlPart, _ LookIn: = xlFormulas, _ SearchOrder: = xlByRows, _ SearchDirection: = xlPrevious, _ MatchCase: = False). Row On Error GoTo 0 End Function Funkcija Lastcol (sh As Workheet) On Error Resume Next Lastcol = sh.Cells.Find (What: = "*", _ After: = sh.Range ("A1"), _ Lookat: = xlPart, _ LookIn: = xlFormulas, _ SearchOrder: = xlByColumns, _ SearchDirection: = xlPrevious, _ MatchCase: = False ). Stulpelis apie klaidą „GoTo 0“ pabaigos funkcijos funkcijų lapas )) Pabaigos funkcija