如何将不确定大小的列相加并将值粘贴到另一个工作表中

Question

就像标题所说的那样，我想在某一列中选择一系列值，H，求它们，然后将结果值粘贴到另一张表（同一工作簿）的单元格中。我完成了第一部分：< / p>

    Worksheets("Resource Plan").Select
Set rng1 = ActiveSheet.Columns("H").Find(strFind, , xlValues, xlWhole)
rng1.Select
Set lastCell = ActiveSheet.Cells(ActiveSheet.Rows.Count, (8)).End(xlUp)
lastCell.Select
Set rng2 = Range(rng1, lastCell)
Set rng2 = rng2.Offset(4, 0).Resize(rng2.Rows.Count - 5, rng2.Columns.Count)
rng2.Select

所以rng2具有要求的所有正确数据。这是我被困的地方

Answer 1

最好使用For Each循环遍历选择中的每个单元格，然后使用Range()中的单元格行将值赋给变量，在退出循环后将该值赋值给您的范围想。像这样：

Dim cell as Range 
Dim summ as Long

summ = 0
For Each cell in Range("rng1:" & "rng2")
    summ = summ + Range("h" & cell.Row)
Next cell
Range("Your desired rng").value = summ