Копирайте ред или редове в лист с база данни с помощта на VBA в Microsoft Excel

Anonim
  • Примерните кодове ще се копират в лист с база данни с името Sheet2.
  • Всеки път, когато стартирате една от подгрупите, клетките ще бъдат поставени под последния ред с данни или след последната колона с данни в лист2.
  • За всеки пример има макрос, който прави нормално копиране, и един, който е само Копиране на стойностите.
  • Примерните подводници използват функциите по -долу (макросите няма да работят без функциите).
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 = Листове ("Sheet2"). Редове (Lr) sourceRange.Copy destrange End Sub Sub CopyRowValues ​​() Dim source 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"). Rows (Lr). _ Преоразмеряване (sourceRange.Rows.Count) destrange.Value = sourceRange.Value Крайна подфункция LastRow (sh като работен лист) При грешка Възобновяване Следваща LastRow = sh.Cells.Find (Какво: = "*", _ След: = sh. Range ("A1"), _ Lookat: = xlPart, _ LookIn: = xlFormulas, _ SearchOrder: = xlByRows, _ SearchDirection: = xlPrevious, _ MatchCase: = False). Грешка при включване GoTo 0 Крайна функция Функция Lastcol (sh As Работен лист) При възобновяване на грешка Следващ Lastcol = sh.Cells.Find (What: = "*", _ After: = sh.Range ("A1"), _ Lookat: = xlPart, _ LookIn: = xlFormulas, _ SearchOrder: = xlByColumns, _ SearchDirection: = xlPrevious, _ MatchCase: = False). Колона при грешка GoTo 0 End Function