Попълнете следващия празен ред в работния лист - Съвети на Excel

PK пита:

Имам работен лист, където въвеждам някои стойности. След щракване върху бутон на макрос искам стойностите или изчислените резултати да бъдат добавени към различен лист или файл.

Добър въпрос. Да предположим, че стойностите са в клетки C10 и E12 на Sheet1 и искате да бъдат добавени към следващия ред в Sheet2.

Истинският трик тук е кодът за намиране на следващия ред на Sheet2. Започвайки от последния ред в Sheet2 (A65536) и след това използвайки .End (xlup) ще намерите последния ред с данни в колона А. Добавянето на 1 към този ред ще ви насочи към следващия ред за данни на Sheet2 Използвайте този код:

Sub CopyThem() NextRow = Worksheets("Sheet2").Range("A65536").End(xlUp).Row + 1 Worksheets("Sheet2").Cells(NextRow, 1).Resize(1, 2).Value = Array( _ Worksheets("Sheet1").Range("C10").value, _ Worksheets("Sheet1").Range("E12").value) End Sub