用VBA怎样实现excel多表格按条件合并？

Question

情况的这样的：
图1：

图2：

合并的效果：

Answer 1

无论是编写VBA程序，或使用Excel的工具AutoExcel
以上两种方法，如果有必要，你好，我！

VBA程序如下：

子HBsheets1（）

暗淡N，I，II，K，n开始，irow作为整数暗淡irowH，：作为整数

行（4:2000）irowHz。选择

Selection.ClearContents的

N = ThisWorkbook.Sheets.Count源表数

n开始= 3'开始的每一个表的数据行

K = n开始'目标表行标记

对于i = 1到n，

irow = n开始线标志着

当表（一）。细胞（irow + 1，1）>“”“数据标签的第一端，确定源表中的行数，

irow = irow + 1

WEND

床单（I）。行（n开始“：”＆irow）。复制“复制源数据行

表（1）。激活

表（1）。细胞（K，1）。选择

Selection.PasteSpecial粘贴：= xlPasteFormulas，操作：= xlNone _

SkipBlanks的：= False时，移调：=假 K = K + irow - n开始+ 1 BR />接下来，我

表（1）。选择

床单（1）。激活

irowHz =范围（“a65535”）。结束（xlUp）。行

II = n开始+ 1

表（1）。细胞（2，1）。选择

，对于irowH = II irowHz

的细胞（irowH，1）。的价值= irowH - 3

下irowH

结束小组追问

什么意思??

Answer 2

推荐下载‘excel工具箱“
对我们菜鸟来说很实用本回答被提问者采纳

Answer 3

规律是什么？另外，请把表格上传吧。追问

请问你的邮箱是？