麻辣家族討論版版 » VB 與 VB.Net » 請問 VBA Excel 單個頁面擷取資料

返回列表下一主題上一主題發帖

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

小學生 Rank: 1

帖子: 6
主題: 1
精華: 0
積分: 7
點名: 0
作業系統: windows
軟體版本: 7
閱讀權限: 10
註冊時間: 2017-3-31
最後登錄: 2017-4-4

1^# 跳轉到 » 正序看帖

字體大小: tT

發表於 2017-4-2 14:11 | 只看該作者

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

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

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

收藏

小學生 Rank: 1

帖子: 6
主題: 1
精華: 0
積分: 7
點名: 0
作業系統: windows
軟體版本: 7
閱讀權限: 10
註冊時間: 2017-3-31
最後登錄: 2017-4-4

9^#

發表於 2017-4-4 12:58 | 只看該作者

回復 8# joey0415

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

　暱稱: joey0415

中學生 Rank: 2

帖子: 361
主題: 57
精華: 0
積分: 426
點名: 0
作業系統: win7
軟體版本: 2003,2010
閱讀權限: 20
性別: 男
註冊時間: 2010-5-13
最後登錄: 2022-12-8

8^#

發表於 2017-4-4 09:23 | 只看該作者

回復 7# 溫偉翔

Sub Ex()
個數 = Cells(Rows.Count, 2).End(xlUp).Row '計算b欄長度
平均 = Application.Average(Range("b1:b" & 個數))
Stop
End Sub

複製代碼

小學生 Rank: 1

帖子: 6
主題: 1
精華: 0
積分: 7
點名: 0
作業系統: windows
軟體版本: 7
閱讀權限: 10
註冊時間: 2017-3-31
最後登錄: 2017-4-4

7^#

發表於 2017-4-4 01:01 | 只看該作者

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

回復 6# joey0415

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

VBA_select.rar (14.05 KB)

　暱稱: joey0415

中學生 Rank: 2

帖子: 361
主題: 57
精華: 0
積分: 426
點名: 0
作業系統: win7
軟體版本: 2003,2010
閱讀權限: 20
性別: 男
註冊時間: 2010-5-13
最後登錄: 2022-12-8

6^#

發表於 2017-4-3 16:10 | 只看該作者

回復 5# 溫偉翔

小學生 Rank: 1

帖子: 6
主題: 1
精華: 0
積分: 7
點名: 0
作業系統: windows
軟體版本: 7
閱讀權限: 10
註冊時間: 2017-3-31
最後登錄: 2017-4-4

5^#

發表於 2017-4-3 12:51 | 只看該作者

回復 1# 溫偉翔

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

VBA_select.rar (28.92 KB)

小學生 Rank: 1

帖子: 6
主題: 1
精華: 0
積分: 7
點名: 0
作業系統: windows
軟體版本: 7
閱讀權限: 10
註冊時間: 2017-3-31
最後登錄: 2017-4-4

4^#

發表於 2017-4-3 00:12 | 只看該作者

回復 3# joey0415

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

VBA_select.rar (28.92 KB)

　暱稱: joey0415

中學生 Rank: 2

帖子: 361
主題: 57
精華: 0
積分: 426
點名: 0
作業系統: win7
軟體版本: 2003,2010
閱讀權限: 20
性別: 男
註冊時間: 2010-5-13
最後登錄: 2022-12-8

3^#

發表於 2017-4-2 19:07 | 只看該作者

回復 1# 溫偉翔

參考參考，自行修改才會進步

Sub Ex()
Dim Rng As Range
Set Rng = Range("A1:D10") '指定的範圍
'Set Rng = Selection '滑鼠選定的範圍
Rng.CopyPicture
With ActiveSheet.ChartObjects.Add(1, 1, Rng.Width, Rng.Height) '新增圖表
.Chart.Paste '貼上圖片
.Chart.Export Filename:="e:\Test.gif" '匯出圖片
.Delete '刪除圖表
End With
End Sub

複製代碼

小學生 Rank: 1

帖子: 6
主題: 1
精華: 0
積分: 7
點名: 0
作業系統: windows
軟體版本: 7
閱讀權限: 10
註冊時間: 2017-3-31
最後登錄: 2017-4-4

2^#

發表於 2017-4-2 14:20 | 只看該作者

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

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

靜思自在 : 稻穗結得越飽滿，越會往下垂，一個人越有成就，就要越有謙沖的胸襟。

返回列表下一主題上一主題