合并Excel中不同列的行

时间:2017-09-20 14:17:29

标签: excel excel-vba vba

我在excel中有一些列,我需要将它们的行合并在一起,如下例所示:

当前档案:

foreach (range(12, 78, 22) as $i => $num) {
    echo '<div style="background-color:'.($i%2 == 0 ? 'green' : 'yellow').'">'.$num.'</div>';
}

目标:

column A | column B | column C | column D | column E | column F
001001     Adam          20      001002     Adam       1.2
001001     Brian         21      001002     Brian      1.5
001001     Cameron       25      001002     Cameron    1.1
001001     Daniel        18      001002     Daniel     1.8
001001     Edward        19      001002     Edward     2.3

这可能吗?我开始学习VBA,所以我遇到了这个问题。

提前致谢!

1 个答案:

答案 0 :(得分:0)

将D:F复制到A:C以下然后对它们进行排序似乎是最简单的解决方案:

  Sub Demo
   Range("D2:F" & range("F2").end(xldown).row).copy Range("A1").End(xldown).Offset(1,0)

 Range("A1").CurrentRegion.Sort Key1:=range("b1"),Key2:=range("a1")
  End Sub

这假设D和F在底部

之前都没有空白单元格