Warning: file_get_contents(/data/phpspider/zhask/data//catemap/0/vba/14.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
从excel中的数据透视填充日志表_Excel_Vba_Pivot Table - Fatal编程技术网

从excel中的数据透视填充日志表

从excel中的数据透视填充日志表,excel,vba,pivot-table,Excel,Vba,Pivot Table,大家好,我正在用excel上的宏记录器创建一个宏。我想让这个宏做的是从数据透视表中的一行中获取值,并将其粘贴到一个列表中,我使用该列表跟踪数据透视表值随时间的变化,就像一个条目一样 录音机给出的代码如下 Range("U19:Y19").Select Selection.Copy Range("E18:I18").Select ActiveSheet.Paste Range("U20:Y20").Select Application.CutCopyMode = False Selection.C

大家好,我正在用excel上的宏记录器创建一个宏。我想让这个宏做的是从数据透视表中的一行中获取值,并将其粘贴到一个列表中,我使用该列表跟踪数据透视表值随时间的变化,就像一个条目一样

录音机给出的代码如下

Range("U19:Y19").Select
Selection.Copy
Range("E18:I18").Select
ActiveSheet.Paste
Range("U20:Y20").Select
Application.CutCopyMode = False
Selection.Copy
Range("N18:R18").Select
ActiveSheet.Paste
正如您所看到的,这是一个简单的复制一系列单元格并将其粘贴到其他位置的过程,但是我希望每次运行此宏时,下一行上的列表都会被填充,因此如果我第一次运行它,它会将信息粘贴到E18:I18和N18:R18中,但是如果我第二次运行它,它会将信息粘贴到E19:I19和E18中N19:R19等等,每次我运行宏时,我都会从这个宏开始,我仍然在学习如何编写代码


非常感谢

请参见。好的,这将帮助我找到最后一行,然后如何粘贴信息?我将使用这一行来查找表中的最后一行。我是否应该为这段代码创建一个单独的宏,然后在上面调用它?用以下公式计算出来:范围(“U20:Y20”)。复制范围(“N515”)。结束(xlUp)。偏移量(1,0)很好!看起来不错。我没有运行下面的代码,从数据透视的另一个字段到另一个表,在同一个工作表上的所有内容都完全相同,第一个有效,第二个无效