[發問] Excel 關於vlookup 產生 NA及刪除空白列問題

Chang123

先感謝G版大
    之前有爬文看到
     G版主  幫人解題( 有單之多年度迴圈以及單檔股票某年某季的迴圈 我是採用單年度某季的迴圈 )
        
       1. 多年度的程式碼因為不同公司的財務報表長度無法掌控所以沒使用這組
      
       2. 個人使用單年度某季(可以一次抓搜尋年度去年及的當年度當季報表)的迴圈使用數值跑出後
           使用合併資產負債表及合併綜合損益表表插入vlookup後產生NA的問題

1. Option Explicit
   
2. Sub Ex()
   
3. Dim URL As String, xCo_Id As String, xSyear As String, xSseason As String
   
4. xCo_Id = "[" & """股票代號""" & "," & """2485""" & "]"                     '要求輸入網頁的參數:股票代號
   
5. xSyear = "[" & """年度""" & "," & """" & Format(Date, "e") & """" & "]"    'Format(Date, "e")->中華民國的年度
   
6. xSseason = "[" & """季別""" & "," & """" & Format(Date, "q") & """" & "]"       'Format(Date, "q")->當年度的季別
   
7. URL = "URL;http://mops.twse.com.tw/server-java/t164sb01?step=1&CO_ID=" & xCo_Id & "&SYEAR=" & xSyear & "&SSEASON=" & xSseason & "&REPORT_ID=C"
   
8.     With ActiveSheet.QueryTables.Add(Connection:=URL, Destination:=Range("A1"))
   
9.         .AdjustColumnWidth = False                   '自動調整欄寬
   
10.         .WebSelectionType = xlSpecifiedTables
    
11.         .WebFormatting = xlWebFormattingNone
    
12.         .WebTables = "2,3,4"                 '資產負債表,綜合損益表,現金流量表
    
13.         .WebPreFormattedTextToColumns = True
    
14.         .WebConsecutiveDelimitersAsOne = True
    
15.         .WebSingleBlockTextImport = False
    
16.         .WebDisableDateRecognition = False
    
17.         .WebDisableRedirections = False
    
18.         .Refresh BackgroundQuery:=False
    
19.     End With
    
20. End Sub

複製代碼

(目前綜合損益表vlookup無問題)
         問題：
          (1) 請教該如何刪除僅有左側有文字但右側無數值的列 加入到程式碼當中
               

下載 (41.19 KB)

2019-2-8 19:28

               

下載 (56.11 KB)

2019-2-8 19:28

               
　　  (2)網站抓下的資料經過vlookup 合併資產負債表產生不同「格式」而搜尋變成結果產生NA
               及搜尋下因項目略有不同該如何才能使函數正常使用
               

下載 (67.93 KB)

2019-2-8 19:42

         
               

下載 (183.76 KB)

2019-2-8 19:42

               

下載 (141.75 KB)

2019-2-8 19:42

                excel.rar (55.07 KB)

下載次數: 0

2019-2-8 19:48