Board logo

標題: [發問] 請問 VBA Excel 單個頁面擷取資料 [打印本頁]
作者: 溫偉翔    時間: 2017-4-2 14:11     標題: 請問 VBA Excel 單個頁面擷取資料

本帖最後由 溫偉翔 於 2017-4-2 14:12 編輯

請問如何在VBA Excel 單個頁面擷取資料。
需要擷取下圖示內的紅色框起的內容，其他內容都需要刪除掉。
圖示內紅色標示資料，單個頁面下面還有幾百個，每個行數都會不同，1~25行都有可能，隨機的。
只要是紅色框起的這種資料行數，請幫忙協助提供程式碼，看可否用VBA自動整合擷取到單個資料頁面，非常感謝。
[attach]26930[/attach]
作者: 溫偉翔    時間: 2017-4-2 14:20

本帖最後由 溫偉翔 於 2017-4-2 14:21 編輯

大家抱歉，補充一下，就是只要A和B欄位下的紅色框起的列位的資料擷取整合在單個頁面。 謝謝~
作者: joey0415    時間: 2017-4-2 19:07

回復 1# 溫偉翔

參考參考，自行修改才會進步
  1.     Sub Ex()
  2.         Dim Rng As Range
  3.         Set Rng = Range("A1:D10") '指定的範圍
  4.         'Set Rng = Selection      '滑鼠選定的範圍
  5.         Rng.CopyPicture
  6.         With ActiveSheet.ChartObjects.Add(1, 1, Rng.Width, Rng.Height)  '新增 圖表
  7.             .Chart.Paste                                           '貼上 圖片
  8.             .Chart.Export Filename:="e:\Test.gif"                  '匯出 圖片
  9.             .Delete                                                '刪除 圖表
  10.         End With
  11.     End Sub
複製代碼
作者: 溫偉翔    時間: 2017-4-3 00:12

回復 3# joey0415


    前輩，幫幫忙吧，我新手，試了很久還是不行，請幫忙解惑一下。  只需要把黃色標示起來的數值，做平均而已，麻煩幫幫忙。[attach]26940[/attach]
作者: 溫偉翔    時間: 2017-4-3 12:51

回復 1# 溫偉翔


    前輩們，我新手，請幫忙解惑一下。  只需要把附件黃色標示起來的數值(黃色標示的數值，欄位不會變，但列數會變多或變少)，再把黃色數值統合計算起來做平均，麻煩了。[attach]26947[/attach]
作者: joey0415    時間: 2017-4-3 16:10

回復 5# 溫偉翔


    [attach]26950[/attach]
作者: 溫偉翔    時間: 2017-4-4 01:01

本帖最後由 溫偉翔 於 2017-4-4 01:03 編輯

回復 6# joey0415


    hi Joey 前輩，sorry , 我敘述錯誤，我是想讓黃色標示的地方(本來的資料黃色資料會分散在很多段落，本身沒有連接)，都放置在一欄內，然後計算其整欄平均數值和計數有多少列。麻煩您幫忙指導，謝謝。
[attach]26953[/attach]
[attach]26952[/attach][attach]26952[/attach]
作者: joey0415    時間: 2017-4-4 09:23

回復 7# 溫偉翔
  1.     Sub Ex()
  2.         個數 = Cells(Rows.Count, 2).End(xlUp).Row '計算b欄長度
  3.         
  4.         平均 = Application.Average(Range("b1:b" & 個數))
  5.         Stop
  6.     End Sub
複製代碼
作者: 溫偉翔    時間: 2017-4-4 12:58

回復 8# joey0415


    謝謝指導喔，我研究一下。



歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)