返回列表 上一主題 發帖

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

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

先感謝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) 請教該如何刪除僅有左側有文字但右側無數值的列 加入到程式碼當中
               
AL表原始跑出之資料.png
2019-2-8 19:28

               
AL表刪除B欄空白之列.png
2019-2-8 19:28

               
    (2)網站抓下的資料經過vlookup 合併資產負債表產生不同「格式」而搜尋變成結果產生NA
               及搜尋下因項目略有不同該如何才能使函數正常使用
               
ALC表出現NA.png
2019-2-8 19:42
         
               
資產表不同處101-106Q4+107Q3.png
2019-2-8 19:42

               
負債表同項目搜出顯示NA.png
2019-2-8 19:42

                excel.rar (55.07 KB)

        靜思自在 : 小事不做、大事難成。
返回列表 上一主題