基于范围搜索结果复制单元格值

Question

我是VB的新手，所以我相信很多人都可以轻松解决这个问题。我有许多具有相同布局的工作簿。我需要一个宏，我可以通过对话框输入值，并搜索所有工作簿和工作表的输入值。找到该值后，工作簿，工作表，单元格位置，单元格值以及该行中指定列（可以在代码中修复）中的单元格值将复制到新工作表中。

我从互联网上窃取了一些代码，除了从列中复制单元格值的最后一点之外。

我希望这是有道理的，有人可以提供帮助。

当前代码：

void *

Answer 1

'yourWantedColumn = 4 or yourWantedColumn = "H"
.Cells(LRow, 5) = rFound.EntireRow.Cells(1,yourWantedColumn).Value

Answer 2

您可以尝试抵消您的价值。

.Cells(LRow, 5) = rFound.Offset(0,[number of columns away]).value

将[列数]更改为您要查找的数据的列数，该值可以是正数或负数。