时间戳

首页 > 解决方案 > Excel 如何首先扫描匹配项，然后拆分部分行并在行尾创建一列？

excel - Excel 如何首先扫描匹配项，然后拆分部分行并在行尾创建一列？

问题描述

32P 32P 9/10/2019   9/13/2019                       
32P 32P 9/24/2019   9/27/2019                       
38G 38G 9/10/2019   9/13/2019                       
38G 38G 9/25/2019   9/30/2019                       
3D5 3D5 9/3/2019    9/6/2019                        
3D5 3D5 9/10/2019   9/13/2019

我想合并此表，以便没有具有相同 3 个字母分组的行，并在行的末尾创建更多列来放置数据。

是否有一个 VBA 或公式可以使结果看起来像这样？

32P 32P 9/10/2019   9/13/2019   9/24/2019   9/27/2019                                           
38G 38G 9/10/2019   9/13/2019   9/25/2019   9/30/2019                                           
3D5 3D5 9/3/2019    9/6/2019    9/10/2019   9/13/2019

标签： excelrow

解决方案

将日期向上移动后，自下而上地删除重复的行。

记得先对数据进行排序。

dim i as long
with sheet1
  for i=.cells(.rows.count, 1) to 2 step -1
    if .cells(i, 1)=.cells(i-1, 1) then
      .cells(i-1, 5).resize(1, 2) = .cells(i, 3).resize(1, 2)
      .cells(i, 3).entirerow.delete
    end if
  next i
end with

推荐阅读