查找地址和总和地址值

Question

我正在我的工作表中搜索以查找项目编号。找到后，我需要在地址下面选择14行并复制到另一张表格。我可以找到我的搜索地址，但我无法选择我需要的行。这是我的代码的一部分

If opcao = True Then
    For i = 1 To 200
        If ws.Cells(i + 1, 1) = valor_busca Then
            correto = ws.Cells(i + 1, 1).Address
            Debug.Print correto, correto_1
        End If
    Next
End If

Answer 1

你需要的是.EntireRow这样的东西：

ws.Cells(i + 1, 1).EntireRow.Select

如果您需要选择多行，请尝试.Range类似：

ws.Range(ws.Cells(i + 1, 1), ws.Cells(i + 14, 20)).Select

Answer 2

使用.Resize方法。所以

ws.Cells(i + 1, 1).Resize(14, 1).Copy Sheets("Sheet1").Range("A1") 'assumes straight paste。

您可以根据需要更改“工作表和范围”以进行粘贴。