在搜索的帮助下复制某些区域并附加到主Excel电子表格中

Question

我有一个包含200多个具有相同结构的Excel电子表格的工作簿。在这些表格上，主题的值始终在单元格C2中，而 Date 的值始终在单元格C7中，但是当涉及到 Root_cause 和解决方案它们从不同的行开始。

我需要将此信息复制到主表上并附加：

使用find函数查找单词'Root_cause'，然后在右侧选择一列并向下拖动以复制所有相关行，也许是个好主意？

代码：

from django.shortcuts import redirect

def like_post(request, blog_id):
    # rest of code
    return redirect(post.get_absolute_url()) # redirect will going to call the BlogsList and your all post will be rendered

Answer 1

这是一种使用find函数并将其限制在“ rootcause”标签正下方的单元格的解决方案。

Sub SelectActualUsedRange()

Dim FirstCell As Range, LastCell As Range

Set LastCell = Cells(Cells.Find(What:="*", SearchOrder:=xlRows, _
SearchDirection:=xlPrevious, LookIn:=xlValues).Row, _
Cells.Find(What:="*", SearchOrder:=xlByColumns, _
SearchDirection:=xlPrevious, LookIn:=xlValues).Column)

Set FirstCell = Cells(Cells.Find(What:="root_cause", After:=LastCell, SearchOrder:=xlRows, _
SearchDirection:=xlNext, LookIn:=xlValues).Row, _
Cells.Find(What:="root_cause", After:=LastCell, SearchOrder:=xlByColumns, _
SearchDirection:=xlNext, LookIn:=xlValues).Column)

Range(FirstCell.Offset(1, 0), LastCell.Offset(0, -5)).Copy

End Sub

请注意，我创建了两个工作表，一个工作表的“ rootcause”从第13行开始，另一个工作表的第25行从开始。剩下的只是选择主工作表并将“ rootcause”值粘贴到该工作表上。 这是两张纸的图像。

编辑：请注意，我只选择中间的两列，从那里一直找到“ rootcause”，直到最后一个非空单元格。