作者：乔山办公网日期：
返回目录：excel表格制作
操作较为简单，示范如图（点击看大图）
这样的需求百
建议使用度vba来遍历文件
然后进问行汇总吧
http://club.excelhome.net/thread-1258425-1-1.html
这个答是本人整理的回资料，可以答参考的
VBA, 代码如zd下版
Sub tst()
Dim cel As Range
For Each cel In Range([a1], [iv1].End(xlToLeft))
If cel.Value Like "情况权*" Then
cel.Resize(3, 2).Copy
[b65536].End(xlUp).Offset(1, -1).PasteSpecial (xlPasteAll)
End If
Next
End Sub
首先，打开需要合并的工作簿。
里面有多张zhidaoSheet，在最后1张Sheet后，插入一张新Sheet
用来合并前面所有的Sheet，不妨命名为“合并”
在Excel中按下Alt+F11，打开VBE宏编辑器
或者，点击“开发工回具”，宏
录制宏，然后编辑宏。
复制粘贴下列VBA代码
Sub merge_zzllrr()
Dim s, sht, shts
Set shts = Sheets("合并")
shts.Cells.Clear
Sheets(1).Range("A1:F1").Copy shts.Range("A1:F1")
For i = 1 To Sheets.Count - 1
Set sht = Sheets(i)
sht.Range("A2:G" & sht.Columns(1).Find("*", , , , 1, 2).Row).Copy shts.Range("A" & (shts.Columns(1).Find("*", , , , 1, 2).Row + 1))
Next i
End Sub
然后按下快捷答键F5执行，即可。