VBA如何設置迴圈將多餘資料刪除 網誌圖文版： https://www.b88104069.com/archives/4376 綜合本書到目前為止的內容，可知利用Excel取得網頁資料並不難，麻煩的是整批量下載 的內容，於工作表上會有很多不必要的東西，例如重覆的標題行和與核心資料無關的訊息 ，所幸於整理資料表這方面，Excel剛好是專家，再搭配VBA可以達到很高效率的作業。這 一節便以歷史匯率為範例，介紹如何適當地刪除多餘的資料。 一、結合第三節利用「QueryTables.Add」取得網頁匯率的程式碼、和上一節利用「 Application.InputBox」輸入年份幣別的方法，編寫VBA程式碼如圖所示。 二、執行程式，選擇2016年的港幣(HKD)。為了方便截圖，直接取得的資料在格式上已經 先調整了欄寛，並且把日期隱藏起來，但是有兩個問題，一個是圖片綠色部份，標題欄位 的格式跑掉了，另一個是圖片黃色部份，在不同月份之間會有空行存在。 三、編寫刪除空白行的程式碼，意思是找出A欄中，儲存格特殊狀態為空白的對象物件， 然後執行刪除整行的方法。這一行程式碼為慣常用法，看起來有點複雜，但一經拆解，其 實在架構上仍然是「物件.方法」的標準VBA語法。 四、執行「DeleteRows」巨集程式，結果如圖所示，原本黃色部份的空行、包括一部份綠 色A欄為空格，整行都被刪除了，不過仍然有多餘的標題欄存在。 五、不同版本的Excel最大行數也不同，以作者2013年的Office而言，在任一工作表，按 住「Ctrl」鍵再按方向鍵「下」，直接跳到最後一行，如圖所示為「1048576」，這便是 目前Excel最大行數。如果想要針對整張工作表作整理，例如刪除含某特定內容儲存格所 在的行，首先必須先知道最大行數。 六、編寫程式如圖所示，設置以i為變數的迴圈，從「1048576」到「2」，「Step -1」表 示為遞減順序，保留第一行，是因為第一行應當為標題欄。在迴圈裡設計儲存格內容的判 斷式，滿足條件時刪除第i行（Rows(i).Delete）。 七、執行結果如同預期，成功將其他多餘的資料都刪除了，只保留匯率的部份，截圖是每 個月顯示三天，其餘隱藏，另外也手工修改了標題欄。 這一節介紹兩種方法刪除資料，其一是刪除空行，其二是刪除特定內容的整行。依照範例 程式碼，必須兩個方法的巨集都執行過，才能預期的效果。其實如果理解了刪除特定內容 的程式碼精髓，在程式設上可以很靈活，設計出一次到位的程序，擴大而言，視不同網頁 的結構狀況，以類似程式設計，都可以在下載資料的同時，把多餘不必要的內容刪除掉。 在本書後面的章節，會再針對其他網頁分享如何整理所取得的資料。 延伸閱讀： VBA如何依照所選擇年份幣別設定網址 https://www.b88104069.com/archives/4371 VBA如何批次取得網頁資料 https://www.b88104069.com/archives/4366 VBA如何取得網頁資料時自動整理格式 https://www.b88104069.com/archives/4362 -- 周末，我們繼續Excel：=>21.心得=>5.其他=>3.office 會計人的Excel小教室： https://www.facebook.com/acctexcel --

※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 183.209.120.99 ※ 文章網址: https://webptt.com/m.aspx?n=bbs/Accounting/M.1555242736.A.E51.html