复制和传送单元格内容到另一个

问题描述：

伪代码的程序我写情况如下：复制和传送单元格内容到另一个

激活工作表Sheet1 - 更名为“信息”
定位包含细胞中的特定词。例如。 “NAME”
选择包含“NAME”的单元格旁边的直接单元格。（偏移（1,0））
复制单元格内容
激活另一片 - '结果'
粘贴在电池B2的复制的内容。

想法是找到一个包含变量的单元格，将单元格内容复制到其旁边并将复制的结果传送到另一个表单中。

请注意，多个变量将被定位，并且其旁边的单元格内容将被复制到同一个工作表中并被传送到另一个工作表中 - 编译结果。

我希望能够为多个工作表重复此过程。

任何人都可以请指导我与命令和方法与实现此？

非常感谢您分享更高效的方法！

记录一个宏，然后将它大量使用的'Activate' /'Select' /'ActiveXXX' /'Selection'模式替换为完全限定的范围引用（即使用'ActiveCell.Copy'使用'Worksheets（“mySheetName” ）.Range（“myCellAddres”）。复制'和类似的东西。如果你遇到困难，请在仔细阅读后回到代码和它的问题[我如何提出一个好问题？]（http://*.com/help /如何问）和[如何创建一个最小，完整和可验证的例子]（http://*.com/help/mcve） – user3598756

你知道所有的步骤，甚至你需要的功能，现在全部你需要做的就是使用一个名为“Google”的新网站，相信我，在15分钟内你会得到你需要的所有信息 –

答

你想要像

Dim FindString As String 
Dim Rng As Range 
FindString = "NAME" 
Set Rng = Worksheets("Information").Cells.Find(What:=FindString) 
If Not Rng Is Nothing Then 
    Rng.Offset(0,1).Copy Worksheets("Results").Range("B2") 
End If

一些代码的需要进行调整，以更好地满足您的需求，但我不想做所有你为你工作。

你不应该做任何工作，所以自称**不是代码编写服务**。请帮助那些通过发布实际代码而不是伪代码来展示一些工作的人ocode。它通过回答不符合现场标准的问题来降低网站的价值。 –

复制和传送单元格内容到另一个

相关推荐