Excel VBA复制表,新工作表中的粘贴值

时间:2017-05-22 16:28:49

标签: excel-vba copy-paste paste vba excel

我正在努力将输入到表中的值放在一个工作表中,并将值粘贴到后续行的不同工作表中,这样每次有人将数据输入到表中并运行宏时,将填充一个新行数据库。我正在使用的宏使用Table的格式粘贴单元格。有没有一种简单的方法可以增加下面的代码来粘贴这些值?

谢谢!

Sub copyRow()
Dim ws As Worksheet
Dim lRow As Long

Set ws = Worksheets("Table Template")
Set qs = Worksheets("Database Inputs")

lRow = qs.Cells(Rows.Count, "E").End(xlUp).Row + 1

ws.Range("D3").copy qs.Range("D" & lRow)
ws.Range("C8:I8").copy qs.Range("E" & lRow)
ws.Range("D13:I13").copy qs.Range("F" & lRow)
ws.Range("D11:I11").copy qs.Range("I" & lRow)
ws.Range("D21:I21").copy qs.Range("K" & lRow)
ws.Range("D12:I12").copy qs.Range("O" & lRow)
ws.Range("D15").copy qs.Range("BL" & lRow)
ws.Range("E15").copy qs.Range("BM" & lRow)
ws.Range("F15").copy qs.Range("BN" & lRow)
ws.Range("D17").copy qs.Range("BO" & lRow)
ws.Range("E17").copy qs.Range("BP" & lRow)
ws.Range("F17").copy qs.Range("BQ" & lRow)
ws.Range("D10").copy qs.Range("U" & lRow)
ws.Range("E10").copy qs.Range("V" & lRow)
End Sub

0 个答案:

没有答案