求汇总指令单，有合并单元格，要求合并的单元格不汇总，详见附件要求.

279821564 · 发表于 2014-9-18 17:46

各位大神，请看我发的贴子，中间我不知道怎么表达！
请各位大神看看，帮加段代码进去，点查看代码，进去看注释.
谢谢了.

生产指令汇总.zip (45.26 KB, 下载次数: 18)

shuyee · 发表于 2014-9-20 19:47

你按钮与代码名称对不上。下面是写内容的代码。保存的事，你自己加吧。
Private Sub CommandButton1_Click()
Dim t As Integer, tmpR As Range, i As Integer, xx As Variant
t = Sheet1.[D65536].End(xlUp).Row
Set tmpR = Range("A3").CurrentRegion.Offset(5, 0)
i = tmpR.Rows.Count - 5 - 2
Sheet1.Cells(t + 1, 2).Resize(i, tmpR.Columns.Count) = tmpR.Value
Set tmpR = Sheet1.Cells(t + 1, 4).Resize(i, 1)
Set tmpR = tmpR.SpecialCells(xlCellTypeBlanks)
tmpR.EntireRow.Delete
End Sub

279821564 · 发表于 2014-9-22 09:39

shuyee 发表于 2014-9-20 19:47
你按钮与代码名称对不上。下面是写内容的代码。保存的事，你自己加吧。
Private Sub CommandButton1_Click ...

灰常感谢，赞一个.
我还有一个难题，请帮我也看下.

重复值查找并返回.rar (19.08 KB, 下载次数: 10)
具体要求在附件内，我写的代码，不能实现要求.

shuyee · 发表于 2014-9-22 21:06

只改动一个字就行了，就是countif的结果，应该是>0。如果>1，就要重复2次了。

279821564 · 发表于 2014-9-23 00:14

shuyee 发表于 2014-9-22 21:06
只改动一个字就行了，就是countif的结果，应该是>0。如果>1，就要重复2次了。

一语惊醒梦中人啊，
受教了.

279821564 · 发表于 2014-9-25 00:06

279821564 发表于 2014-9-23 00:14
一语惊醒梦中人啊，
受教了.

版主，我又来麻烦你了，帮我看下附件！
要求：表1的单元格中满足条件后汇总到表2，表2不能产生空行.
我现在代码能汇总，但中间有空行.
详见附件，谢了！

有条件执行跨工作表汇总，内容不产生空行..rar (19.58 KB, 下载次数: 6)

shuyee · 发表于 2014-10-7 10:10

你自己先试试吧。
建制一个高级筛选的宏，它可以满足你的要求。

		自动登录	找回密码
密码			免费注册