前景提要(文末提供源碼下載)

發現小伙伴們的數據結果真的好復雜，不昨天才分享過有多行表頭的數據如何匯總合并，今天就有小伙伴反饋，他的數據雖然是有多行表頭的，但是又有一些數據沒有多行表頭，那么在進行批量數據匯總的時候，應該如何操作呢？

場景模擬

碰到問題，我們首先想象，如果手工操作的話，我們會如何操作呢？

通過對比我們發現了不斷數據如何的變化，每一個Excel報表肯定都會有字段名稱的，那么我們按照這一行作為參考標準，這一行往下都是數值區域，往上都是標題區域

來試下

代碼區

按照我們前面所說的這些思路，我們首先需要確定的就是字段名稱所謂的那一行的行數，如果依然使用上節我們分享的那種方式，在第一個打開的工作博中來確定，明顯就不合適了。

因為我們不能保證每次打開的第一個Excel報表一定是多行表頭的，所以這里我們實行曲線救國，先在匯總表中將表頭復制過來，我們直接在這個匯總表中進行確定

Sub ss()Dim rng As Range, sth As Worksheet, trng As Range, arr, tsth As WorksheetSet tsth = ActiveSheetSet rng = Application.InputBox("請選擇字段名所在行