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

时间:2017-10-26 17:31:04

标签: excel vba

我需要找到文本的最后一次发现,然后:

  1. 下面插入一行
  2. 仅从列b&列中复制数据ç
  3. 保持与上面列相同的格式

    Cells.Find(What:=“Multi Deck Case”,After:= ActiveCell,LookIn:= xlValues,_     LookAt:= xlPart,SearchOrder:= xlByRows,SearchDirection:= xlPrevious,_     MatchCase:= False,SearchFormat:= False).Insert.EntireRow

  4. 这应该有助于我第一项 - 在下面插入一行,但我认为我在最后一部分做错了(Insert.EntireRow)

2 个答案:

答案 0 :(得分:2)

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

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

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

答案 1 :(得分:0)

我在问题中没有表达清楚,但我在下面找到了正确的代码:

 public static void main (String [] args){
    int number = 0;
    int i = 1;
    int largest = 0;
    int largest2 = 0;
    System.out.println("Enter a series of positive integers (-1 to stop): ");
    Scanner sc = new Scanner(System.in);
    while (number >= 0) {
       System.out.print("Enter number #" + i++ + ": ");
       number = sc.nextInt();
    }
    number = sc.nextInt();
    largest2 = number;

    for (int i1 = 2; i1 < number; i1++) {
       number = sc.nextInt();
       if (number > largest) {
          largest = number;
       }
       if (largest2 > number) {
          argest2 = number;
       }
    }
    sc.close();
    System.out.println("The largest number entered is:" + largest);
    System.out.println("The second largest number entered is : " + largest);
  }
}