将单元格内容从一张纸复制并传输到另一张纸

Question

我编写的程序的伪代码如下：

1. 激活Sheet1 - 重命名＆＃39;信息＆＃39;
2. 查找包含单元格的特定单词。例如。 ＆＃34; NAME＆＃34;
3. 选择包含＆＃34; NAME＆＃34;的单元格旁边的直接单元格。 （偏移（1,0））
4. 复制单元格内容
5. 激活其他工作表 - ＆＃39;结果＆＃39;
6. 将复制的内容粘贴到单元格B2中。

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

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

我希望为多张纸重复此过程。

任何人都可以指导我实现这一目标的命令和方法吗？

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

Answer 1

你想要像

这样的东西

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

有些代码需要根据您的需求进行定制，但我并不想为您做所有您的工作。