录制宏时，根据单元格中的文本值选择范围

Question

我有一个csv文件，我记录了一个宏，用于在需要时操作CSV文件的数据。 宏的一部分将查找包含文本“月份索引”的单元格。 定位此单元格后，将选择一个范围（例如A9，B50）。 问题在于，“月索引”单元格可以位于A7，A8，A11等中，因此，如果单元格引用不同，则宏会提取错误的数据。 一旦找到“月指数”，我选择的范围就是一致的，因此我认为我可以以某种方式使用偏移量指令，但不确定。

当前，我的宏处理以下内容：

        Range("A1").Select     
        Cells.Find(What:="month index", After:=ActiveCell, LookIn:=xlFormulas, _    
    LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _        

MatchCase:=False, SearchFormat:=False).Activate     
        Range("A9:B9").Select     
        Range(Selection, Selection.End(xlDown)).Select     
        Selection.Cut 

• 谁能帮我解决这个问题？

Answer 1

使用Macro Recorder很好地开始执行一项任务，但是它增加了很多效率低下的额外代码。 了解如何避免选择/激活 。

您需要抓住“月份索引”出现的行，因为它是动态的并且在移动，所以您不能一直都选择相同的范围，它需要根据找到的行移动...尝试一些方法线。

Dim iRow as Integer, iMax as Integer

iRow = Cells.Find(What:="month index", After:=ActiveCell, LookIn:=xlFormulas, _    
    LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _        
    MatchCase:=False, SearchFormat:=False).Row

iMax = Cells(iRow, "A").End(XlDown).Row
Range("A" & iRow & ":B" & iMax).Cut