Warning: file_get_contents(/data/phpspider/zhask/data//catemap/0/vba/17.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_Copy Paste_Worksheet - Fatal编程技术网

Excel 找到下一个可用单元格并粘贴数据

Excel 找到下一个可用单元格并粘贴数据,excel,vba,copy-paste,worksheet,Excel,Vba,Copy Paste,Worksheet,我正在尝试更新下一个单元格中的值。 例如,在单元格“A1”中,我有一个名字。单击按钮时,A1中的值必须转到表2中的单元格“A1”。完成后,当我在表1(“A1”)中输入新值时,数据必须反映在表2中的下一个单元格中(即A2、A3、A4等) 我尝试了几乎所有YouTube视频,但仍然不起作用。请在以后的帖子中说明您尝试了什么以及为什么不起作用。 这可以帮助您: Sub CellEqCell() Dim ws1 as worksheet Dim ws2 as worksheet Set ws1

我正在尝试更新下一个单元格中的值。 例如,在单元格“A1”中,我有一个名字。单击按钮时,A1中的值必须转到表2中的单元格“A1”。完成后,当我在表1(“A1”)中输入新值时,数据必须反映在表2中的下一个单元格中(即A2、A3、A4等)


我尝试了几乎所有YouTube视频,但仍然不起作用。

请在以后的帖子中说明您尝试了什么以及为什么不起作用。 这可以帮助您:

Sub CellEqCell()

 Dim ws1 as worksheet
 Dim ws2 as worksheet
 Set ws1 = Thisworkbook.Worksheets(“Sheet1”)
 Set ws2 = Thisworkbook.Worksheets(“Sheet2”)

 Ws2.Range(“A1”).End(xlUp).Offset(1,0).Value =
 ws1.Range(“A1”).Value
 
End sub

这应该考虑到您的最后一行,并在不复制/粘贴的情况下将单元格设置为彼此相等。

Youtube不是学习如何编写代码的好地方。请在你的问题中包含你的代码。嗨,克莱文,我试过了,但它不起作用。。。我得到“应用程序定义或对象定义”错误。