Innehållsförteckning
- Exempelkoderna kopieras till ett databasblad med namnet Sheet2.
- Varje gång du kör en av delarna placeras cellerna under den sista raden med data eller efter den sista kolumnen med data i blad2.
- För varje exempel finns det ett makro som gör en normal kopia och ett som bara är Kopiera värdena.
- Exemplets subs använder funktionerna nedan (makron fungerar inte utan funktionerna).
Sub CopyRow () Dim sourceRange As Range Dim destrange As Range Dim Lr As Long Lr = LastRow (Sheets ("Sheet2")) + 1 Set sourceRange = Sheets ("Sheet1"). Rows ("1: 1") Set destrange = Sheets ("Sheet2"). Rader (Lr) sourceRange.Copy destrange End Sub Sub CopyRowValues () Dim sourceRange As Range Dim destrange As Range Dim Lr As Long Lr = LastRow (Sheets ("Sheet2")) + 1 Set sourceRange = Sheets ("Sheet1"). Rader ("1: 1") Set destrange = Sheets ("Sheet2"). Rows (Lr). _ Ändra storlek (sourceRange.Rows.Count) destrange.Value = sourceRange.Value Slut Sub -funktion LastRow (sh som arbetsblad) Vid fel Återuppta Nästa LastRow = sh.Cells.Find (What: = "*", _ After: = sh. Område ("A1"), _ Lookat: = xlPart, _ LookIn: = xlFormulas, _ SearchOrder: = xlByRows, _ SearchDirection: = xlPrevious, _ MatchCase: = False) .Rad vid fel GoTo 0 Avsluta funktion Funktion Lastcol (sh As Arbetsblad) Vid fel Återuppta nästa Lastcol = sh.Cells.Find (Vad: = "*", _ Efter: = sh.Range ("A1"), _ Lookat: = xlPart, _ LookIn: = xlFormulas, _ SearchOrder: = xlByColumns, _ SearchDirection: = xlPrevious, _ MatchCase: = False) .Column On Error GoTo 0 End Function
