[英]Macro to insert data into next blank row or column in another sheet?
I have 5 sheets in this workbook, GP Data is the input sheet in this workbook, and the other 4 sheets requires me to copy paste data from specific cells of the GP Data Sheet and update into the next blank row of the remaining sheets. 我在该工作簿中有5张纸,GP数据是该工作簿中的输入纸,其他4张纸需要我从GP数据表的特定单元格复制粘贴数据,然后更新到其余工作表的下一个空白行中。
Column A in SheetX,Y,Z is the date which is dragged down from the previous date every time I copy the data over similarly to Row 6 in Raw Sheet. SheetX,Y,Z中的A列是每次我将数据复制到类似于Raw Sheet中的第6行时从前一个日期向下拖动的日期。
Sub Prism2ndStep()
'
' Prism2ndStep Macro
'
'
Range("P12:R14").Select
Selection.Copy
Sheets("RAW").Select
Range("DC7").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("CZ6:DB6").Select
Application.CutCopyMode = False
Selection.AutoFill Destination:=Range("CZ6:DE6"), Type:=xlFillDefault
Range("CZ6:DE6").Select
Sheets("GP Data").Select
Range("S12:S14").Select
Selection.Copy
Sheets("DX").Select
Range("B39").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=True
Sheets("GP Data").Select
Range("T12:T14").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("DY").Select
Range("B39").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=True
Sheets("GP Data").Select
Range("U12:U14").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("DZ").Select
Range("B39").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=True
Range("A38").Select
Application.CutCopyMode = False
Selection.AutoFill Destination:=Range("A38:A39"), Type:=xlFillDefault
Range("A38:A39").Select
Sheets("DY").Select
Range("A38").Select
Selection.AutoFill Destination:=Range("A38:A39"), Type:=xlFillDefault
Range("A38:A39").Select
Sheets("DX").Select
Range("A38").Select
Selection.AutoFill Destination:=Range("A38:A39"), Type:=xlFillDefault
Range("A38:A39").Select
Sheets("GP Data").Select
End Sub
Do not use : .Select, .Copy, .Paste
method 请勿使用:
.Select, .Copy, .Paste
方法
Most of the time, you can use this pattern (only 1 line) : 大多数时候,您可以使用此模式(仅1行):
Sheets("DZ").Range("A1").Value = Sheets("GP Data").Range("C1").Value
(1 cell) (1格)
Sheets("DZ").Range("B1:B4").Value = Sheets("GP Data").Range("A1:A4").Value
(multiple cells - be sure source and cible are the same size) (多个单元格-确保来源和圣经的大小相同)
声明:本站的技术帖子网页,遵循CC BY-SA 4.0协议,如果您需要转载,请注明本站网址或者原文地址。任何问题请咨询:yoyou2525@163.com.