TXT源文件數據的格式如上圖，需要将其導入到Excel處理如下圖這樣：
導入txt文件到excel當中，操作框中隻點擊下一步
紅色方框都是需要導入的數據，現在進行數據篩選，A列保留紅色方框内1或2的行。
輸入輔助列公式：=IF(Q2="","","構件編号:"&ROUNDUP(COUNTA($Q$2:Q2)/2,0))
單單篩選輔助列，剔除空白的數據
編輯排版如下：
R2單元格：=OFFSET($A3,,COLUMN(A1))，右拉
R4單元格：=OFFSET($A5,,COLUMN(A3))，右拉
選擇四行向下填充公式：
結果如下：
将公式全部轉換為數值，在原表上複制--粘貼--數值，然後執行篩選删除空白行
最後結果如下，實現了最初的目的。
【總結】這個txt數據總體來說是比較規律的，應用VBA處理也是十分方便。
但，VBA隻是最終手段，用上面的操作方式處理，也就幾分鐘的事兒。
這個問題是在某論壇上面看到的，給我的感覺就是無論什麼大事小事，
難事簡單事，上某論壇找義工就沒錯了。
完全就好像沒思考過一樣。
題外話，打鐵還需自身硬，希望大家都是牛逼閃閃的。
,
zpostcode 
Recruit 
weather 
mreligion 
Yellowpages 
sport 
constellation 
shopping 
name 
game 
directory 
literature 
Word 
tour 
furnish 
Lottery 
tftnews 
lyrics 
News 
digital 
car 
dir 
Edu 
Finance 
