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

我需要find最后的文字，然后：

1. 在下面插入一行
2. 仅从b＆c列复制数据

3. 保持与上面的列相同的格式

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

这应该帮助我的第一个项目 – 插入一行下面，但我想我在做错了最后一部分（Insert.EntireRow）

Answer 1

要find列中的最后一个东西，请使用此代码。 至于其他方面，你将不得不提供一些代码，并提出一个更好的问题，但范围并不那么广泛。

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

将TEXTreplace为您正在查找的任何内容以获取最后一次出现的行。

Answer 2

我在自己的问题上没有很好地expression自己，但是我想出了下面的正确代码：

 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