[發問] 以巨集抓取指定顏色資料

請問如何以巨集方式，按下上方【匯入】扭，即可將庫存活頁A:W欄所有的藍色字體與綠色字體的「品牌」與「庫存」
抓到A、B欄與D、E欄，例如左側，條件如下：

1. 只要抓藍字與綠字的品牌資料與庫存數，其餘顏色資料不需要。
2. 字體、粗體、大小都可能不一樣，所以希望以顏色區分即可。
3. 每天庫存資料數會有多有少，不能以每欄固定列數來抓。
例如 F:G欄的藍字庫存為F23:G42，但下次資料來源可能少一筆會變成F23:G40，但如果多一筆則變成F23:G44
4. 不用排序，所以只要將資料抓到A、B欄與D、E欄就好，從前往後、從後往前抓資料都沒差

測試檔.rar (23.81 KB)

樓主熱帖

*宅女一枚無誤*

准提部林

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 2834
主題: 10
精華: 0
積分: 2890
點名: 0
作業系統: 〔略〕
軟體版本: 〔略〕
閱讀權限: 100
性別: 男
來自: 〔略〕
註冊時間: 2013-5-13
最後登錄: 2024-11-23

2^#

發表於 2016-11-27 13:37 | 只看該作者

〔項次．品牌．數量〕的文字顏色不一致，以〔數量〕為主：

Sub 匯入()
Dim R&, xArea As Range, xR As Range, xE(1 To 2) As Range, i%, C%, N%
With Sheets("匯整")
.UsedRange.Offset(1, 0).EntireRow.Delete
Set xE(1) = .[A2]: Set xE(2) = .[D2]
End With
With Sheets("庫存").UsedRange
R = .Rows.Count - 22: If R <= 0 Then Exit Sub
Set xArea = .Rows(23).Resize(R)
End With
For i = 3 To xArea.Columns.Count Step 4
For Each xR In xArea.Columns(i).Cells
N = 0: C = xR.Font.ColorIndex
If C = 5 Then N = 1
If C = 10 Then N = 2
If xR = "" Or N = 0 Then GoTo 101
R = xR.MergeArea.Rows.Count
xR(1, 0).Resize(R, 2).Copy xE(N)
Set xE(N) = xE(N)(R + 1)
101: Next
Next i
End Sub

複製代碼

Xl0000024.rar (17.08 KB)
　
　

TOP

msmplay

中學生 Rank: 2

帖子: 218
主題: 73
精華: 0
積分: 290
點名: 0
作業系統: WIN10
軟體版本: Office2010
閱讀權限: 20
性別: 女
註冊時間: 2014-5-19
最後登錄: 2022-11-29

3^#

發表於 2016-11-27 15:32 | 只看該作者

回復 2# 准提部林

准大~~~首先非常感謝幫忙喔!!但小妹測試後發現遇到問題已發問在附檔內，可以再麻煩你幫忙看一下原因嗎??真是不好意思耶~~~

Xl0000024.rar (20.79 KB)

*宅女一枚無誤*

TOP

准提部林

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 2834
主題: 10
精華: 0
積分: 2890
點名: 0
作業系統: 〔略〕
軟體版本: 〔略〕
閱讀權限: 100
性別: 男
來自: 〔略〕
註冊時間: 2013-5-13
最後登錄: 2024-11-23

4^#

發表於 2016-11-27 16:24 | 只看該作者

回復 3# msmplay

1. 套用上公司庫存表格式，無法抓取所有綠字庫存
＿我這裡執行沒問題，是否office版本問題（我是２０００），這我無法解決
　
2. 非合併儲存格無法抓取，例如：「庫存」R37:S38非合併儲存格，R38就沒有抓到，因為「匯整」A76只抓到一個TEST
＿表格合併不規則，很難判斷，只能以〔數量〕為主，所以同一群組的數量，必須先〔合併〕

3. 是否可設定抓取資料範圍，因為只需抓取「庫存」A23:W122範圍資料，A23以上顏色資料無需抓取
＿程式已限制只匯入第２２列以下的資料

最好有其他大大用office 2010改一下程式！！我僅能做到這樣！

TOP

msmplay