首页 文章

在特定文本的最后一行之后插入行

提问于
浏览 次
0

我需要找到文本的最后一次发现，然后：

  • 在下面插入一行

  • 仅从列b和c复制数据

  • 保持与上面列相同的格式

Cells.Find（What：=“Multi Deck Case”，After：= ActiveCell，LookIn：= xlValues，_ LookAt：= xlPart，SearchOrder：= xlByRows，SearchDirection：= xlPrevious，_ MatchCase：= False，SearchFormat：= False） .Insert.EntireRow

这应该帮助我第一项 - 在下面插入一行，但我认为我在最后一部分做错了（Insert.EntireRow）

excel vba

2 回答

  • 2

    要查找列中的最后一个内容，请使用此代码 . 至于其他方面，你必须提供一些代码并提出一个更好的问题，但范围不是很广 .

    LastRowColb = Worksheets(1).Columns(1).Cells.Find("TEXT", SearchOrder:=xlByRows, LookIn:=xlValues, SearchDirection:=xlPrevious).Row

    将TEXT替换为您要查找的内容以获取最后一次出现的行 .

    回复于
  • 0

    在我的问题中，我没有很清楚地表达自己，但我想出了下面的正确代码：

    Cells.Find(What:="Door Cases", After:=ActiveCell, LookIn:=xlValues, _
        LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlPrevious,_
        MatchCase:=False, SearchFormat:=False).EntireRow.Select
ActiveCell.EntireRow.Insert
ActiveCell.Offset(RowOffset:=-1, ColumnOffset:=1).Activate
ActiveCell.Resize(1, 2).Copy
ActiveCell.Offset(1, 0).Select
ActiveSheet.Paste
    回复于

相关问题