循环遍历列表以复制批量的相似值

时间:2011-06-30 21:33:12

标签: excel excel-vba loops vba

我正在尝试根据一列的值复制批量行。

工作表看起来像这样(按第一列排序):

A  5  blue  
A  6  yellow  
B  3  red  
B  2  blue  

循环有3个主要步骤:

  1. 复制以值开头的所有行,例如第1-2行,以“A”开头
  2. 将行粘贴到电子邮件中(我知道如何执行此操作)
  3. 移至值B,并复制以B
  4. 开头的所有行

    我不知道A列的值,因为它们每次都会改变。有没有办法可以写这个循环?

1 个答案:

答案 0 :(得分:1)

2种可能的方法:

1:不要将其视为一次复制所有“A”行,而是为每行添加一个构建字符串,然后当您为第一列创建新值时,刷新构建字符串进入电子邮件。这样就是一个带有条件检查的循环。

2:

  • 维护一个startPos。将其设为1.
  • 循环通过第一个col直到值更改。
  • 复制startRow - currentRow - 1到电子邮件。
  • 设置startPos = currentRow。
  • 重复。