Warning: file_get_contents(/data/phpspider/zhask/data//catemap/0/vba/16.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181

Warning: file_get_contents(/data/phpspider/zhask/data//catemap/1/visual-studio-2008/2.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
Vba 合并重复的列数据而不丢失Excel中其余行中的值_Vba_Excel_Merge_Duplicates - Fatal编程技术网

Vba 合并重复的列数据而不丢失Excel中其余行中的值

Vba 合并重复的列数据而不丢失Excel中其余行中的值,vba,excel,merge,duplicates,Vba,Excel,Merge,Duplicates,我试图找到一种方法来合并数据第一列中的重复值,而不丢失其余行中的唯一值 e、 g.目前我的数据如下: 我希望它看起来像这样: 实际上,您只需要关注第一列。第二个与此无关。 下面是一些伪代码,如果您将其转换为VBA,它们将起作用: FOR EACH CELL IN COLUMN NUMBER IF CELL = OFFSET(PREVIOUS CELL) AND CELL.COLUMN > 1 THEN CELL.TEXT = "" END IF NEXT

我试图找到一种方法来合并数据第一列中的重复值,而不丢失其余行中的唯一值

e、 g.目前我的数据如下:

我希望它看起来像这样:


实际上,您只需要关注第一列。第二个与此无关。 下面是一些伪代码,如果您将其转换为VBA,它们将起作用:

FOR EACH CELL IN COLUMN NUMBER
    IF CELL = OFFSET(PREVIOUS CELL) AND CELL.COLUMN > 1 THEN
        CELL.TEXT = ""
    END IF
NEXT CELL

FOR EACH CELL IN COLUMN NUMBER
    IF CELL = "" THEN 
        ENLARGE THE RANGE
    ELSE
        MERGE THE RANGE
    END IF
NEXT CELL

IF RANGE <> NOTHING THEN
     MERGE THE RANGE
END IF
列编号中每个单元格的

如果CELL=OFFSET(上一个CELL)且CELL.COLUMN>1,则
CELL.TEXT=“”
如果结束
下一个细胞
对于列编号中的每个单元格
如果CELL=”“,则
扩大范围
其他的
合并范围
如果结束
下一个细胞
如果没有,那么
合并范围
如果结束

有关使用条件格式的方法,请参见此处:@ScottCraner Gordon的回答很好。我得把它放在工具箱里。在这种情况下,LucyG可以简单地将字体颜色设置为白色。我知道您在做什么,但请小心,我看到伪代码答案被否决了,否决率很高。@ScottCraner,没有什么能获得超过5票的否决票。:)