[英]How to copy and paste values into next empty row in table on the same Worksheet
我在同一工作表上有2個表格。 第一種允許用戶輸入合同工時/開始日期來確定其年假權利。 這是一個公式,數字在單元格I20,J20和K20中。
當用戶單擊命令按鈕時,這些數字將被復制到同一工作表上的“運行總計”表單中,復制到單元格P17,Q17和R17中。 如果用戶隨后在第一個表格上更改了合同規定的小時數並再次單擊命令按鈕,則新的數字將被復制到單元格P18,Q18和R18中。 該步驟可以重復多次(用於復制數據的最后一行是P22,Q22,R22)。
此“運行總計”表單的最后一行具有一個公式,用於求和該表單上的總數。
我是VBA的新手,但是設法創建了以下代碼,將這些圖復制到P17,Q17和R17中-但是我不確定如何將下一個圖放入下面的行中。 我認為這應該是一件簡單的事情,但是我為此付出了一些努力。 任何幫助,將不勝感激。
Sub CopyRange()
'Value Paste Cells
Worksheets("Calculator").Activate
Range("P15").End(xlDown).Offset(1, 0).Select
ActiveCell.Value = Range("I20")
ActiveCell.Offset(0, 1).Value = Range("J20")
ActiveCell.Offset(0, 2).Value = Range("K20")
Range("P23").End(xlUp).Offset(1, 0).Select
End Sub
最初,單擊命令按鈕后,我將“運行總計”表中顯示的數字復制到P17,Q17和R17中。 然后顯示活動單元格為P18。 如果然后我更改第一個表單上的數字,然后再次單擊命令按鈕-則什么也沒有發生。
如果不看圖紙,很難確切知道End(xlUp)
或End(xlDown)
放置位置,但這應該可以幫助您入門。 根據需要進行調整。
With Worksheets("Calculator")
.Range("P23").End(xlUp).Offset(1, 0).Resize(1,3).value = .Range("I20:K20").Value
End With
聲明:本站的技術帖子網頁,遵循CC BY-SA 4.0協議,如果您需要轉載,請注明本站網址或者原文地址。任何問題請咨詢:yoyou2525@163.com.