[發問] 請問 VBA Excel 單個頁面擷取資料

溫偉翔

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

下載 (80.45 KB)

2017-4-2 14:08

溫偉翔

大家抱歉，補充一下，就是只要A和B欄位下的紅色框起的列位的資料擷取整合在單個頁面。 謝謝~

joey0415

回復 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

複製代碼

溫偉翔

回復 3# joey0415


    前輩，幫幫忙吧，我新手，試了很久還是不行，請幫忙解惑一下。  只需要把黃色標示起來的數值，做平均而已，麻煩幫幫忙。 VBA_select.rar (28.92 KB)

SOS
下載次數: 0

2017-4-3 00:11

溫偉翔

回復 1# 溫偉翔


    前輩們，我新手，請幫忙解惑一下。  只需要把附件黃色標示起來的數值(黃色標示的數值，欄位不會變，但列數會變多或變少)，再把黃色數值統合計算起來做平均，麻煩了。 VBA_select.rar (28.92 KB)

下載次數: 1

2017-4-3 12:51

joey0415

回復 5# 溫偉翔


   

下載 (52.17 KB)

2017-4-3 16:10

溫偉翔

回復 6# joey0415


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

下載 (70.83 KB)

2017-4-4 00:56

VBA_select.rar (14.05 KB)

下載次數: 1

2017-4-4 00:53

joey0415

回復 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

複製代碼

溫偉翔

回復 8# joey0415


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