根据相同的值插入一行

zy19880405

求大神帮忙一下 根据表格左边的样子 想做成右边的那样的效果
根据B列搜索相同的值 在最后一个值的下面插入一行  然后插入一行上色  我表格那个蓝色的代表的是插入一行然后上色的。。 可能B列中会有空白单元格

zy19880405

补充一下 主要的就是H列那个上色的那部分自动输入

zy19880405

有大神帮忙一下嘛！！！急~~~~~~~~~~~~

不知道为什么

zy19880405 发表于 2018-6-22 16:17
有大神帮忙一下嘛！！！急~~~~~~~~~~~~

简单，用下面的代码

Sub CRKH()
    Dim x As Integer
    For x = 2 To 1000
        If Cells(x, 9) = "" Then Exit Sub
        If Cells(x, 9) <> Cells(x + 1, 9) Then
            Rows(x + 1).Insert
            x = x + 1
        End If
    Next x
End Sub

不知道为什么

zy19880405 发表于 2018-6-22 16:17
有大神帮忙一下嘛！！！急~~~~~~~~~~~~

刚上传了代码在审核，图片先给你参考

yylucke

不知道为什么 发表于 2018-6-22 16:29
简单，用下面的代码

Sub CRKH()

老兄，完成了插入空行，没有写数据哦

zy19880405

不知道为什么 发表于 2018-6-22 16:29
简单，用下面的代码

Sub CRKH()

不是这样的 你的代码我执行了一下 就只会在空白的那一行下面又加了一行。。

zy19880405

不知道为什么 发表于 2018-6-22 16:31
刚上传了代码在审核，图片先给你参考

可能B列中会有空白单元格的。。

不知道为什么

zy19880405 发表于 2018-6-22 16:42
可能B列中会有空白单元格的。。

呵呵，看错题意了，实际你可以根据代码修改下

yylucke

思路：
1、先对原始数据区排序
2、然后按照“不知道为什么”兄弟的办法插入行
3、同时再加一个循环，找最小值和最大值
4、将结果组合写入插入空行
问题是你的原始数据区有空行，我嫌麻烦，就没弄了。