Question

我正在尝试将Sheet3上单元格R15中的公式的值复制到Sheet6上特定行的特定单元格中。特定行由输入sheet3上单元格O15中的数据与sheet6特定行上的数据匹配确定。我设法用以下代码找出如何在sheet6上找到正确的行 Sheets("Sheet6").Range("C310").Value = WorksheetFunction.Match(Sheets("Sheet3").Range("O15").Value, Sheets("sheet3").Range("C1:C300"), 0)

上面的代码在单元格C310中返回正确的行号，我只是还没有弄清楚如何使用此信息将数据从单元格R15复制到沿着上面结果显示的行的单元格上上面C310中的代码。

我已经尝试过在线搜索，但是我想我可能输入了错误的问题以返回所需的答案。

有人可以指出正确的方向，以便在完成匹配过程后将信息复制到正确的单元格中。

Answer 1

只需在您发布以下内容后添加以下代码行即可：

Sheets("Sheet6").Cells(Sheets("Sheet6").Range("C310"), i) = Sheets("Sheet3").Range("R15")

，然后将i替换为所需列的相应编号。（例如5用于E列）

Answer 2

您可以这样做

[('bmw', 'x5', 1700), ('citroen', 'xsara', 1100), ('lincoln', 'navigator', 2000)]
[('lincoln', 'navigator', 2000), ('bmw', 'x5', 1700), ('citroen', 'xsara', 1100)]
[('citroen', 'xsara', 1100), ('bmw', 'x5', 1700), ('lincoln', 'navigator', 2000)]

将Sheets（“ Sheet3”）。Range（“ D”＆x）替换为所需的图纸和范围

将数据从一个工作表输入到另一工作表的特定行中的特定单元格中

2 个答案: