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

搜尋配對輸出值

mirandachou

小學生 Rank: 1

帖子: 2
主題: 1
精華: 0
積分: 4
點名: 0
作業系統: win7
軟體版本: office 2010
閱讀權限: 10
註冊時間: 2015-10-20
最後登錄: 2015-10-21

1^# 跳轉到 » 正序看帖

打印

字體大小: tT

發表於 2015-10-20 15:10 | 只看該作者

搜尋配對輸出值

大家好!
想要請教前輩們一些問題><
最近開始學習VBA需要整理資料

如副圖
想要把資料類型整理成右側
有使用過VLookup去搜尋A行不過卻只能[A]區塊
又加上[A],[B],[C] 資料量不一樣
如果搜尋到沒有的參數會主動把值輸入為 n/a

不知道大大們有沒有什麼方法可以更便捷的把資料整理成右側
真的感幾萬分!!! {:2_38:}

mirandachou

小學生 Rank: 1

帖子: 2
主題: 1
精華: 0
積分: 4
點名: 0
作業系統: win7
軟體版本: office 2010
閱讀權限: 10
註冊時間: 2015-10-20
最後登錄: 2015-10-21

4^#

發表於 2015-10-21 12:45 | 只看該作者

　
　
只能大約註解，請自行研究，恕不再說明～～　
准提部林發表於 2015-10-20 17:01

真的非常感謝你!!
可以成功擷取出來了 :)

TOP

hcm19522

大學生 Rank: 4

帖子: 1387
主題: 4
精華: 0
積分: 1397
點名: 0
作業系統: WIN
軟體版本: 2007
閱讀權限: 50
性別: 男
註冊時間: 2015-9-11
最後登錄: 2024-11-24

熱烈參與勳章

3^#

發表於 2015-10-20 19:12 | 只看該作者

http://blog.xuite.net/hcm19522/twblog/351161948
函數參考即可

TOP

准提部林

版主 Rank: 7 Rank: 7 Rank: 7

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

2^#

發表於 2015-10-20 17:01 | 只看該作者

本帖最後由准提部林於 2015-10-20 17:06 編輯

Sub Macro3()
Dim j&, C&, Arr, Brr, X&, Y&, T$, xD
With Range([A1], [A65536].End(xlUp)(1, 2))
　　　Arr = .Value
　　　'＿範圍納入陣列
　　　C = Application.CountIf(.Columns(1), "[*]") + 1
　　　'＿計算〔項目〕個數
End With
　
ReDim Brr(UBound(Arr), C)
Set xD = CreateObject("Scripting.Dictionary")
　
For j = 1 To UBound(Arr)
　　　T = Arr(j, 1): If T = "" Then GoTo 101
　　　'儲存格值以 T 變數代之
　　　If Left(T, 1) = "[" Then X = X + 1: Brr(0, X) = T: GoTo 101
　　　'＿儲存格若為〔項目〕，向右累計欄位，並加入項目
　　　If xD(T) = 0 Then Y = Y + 1: xD(T) = Y: Brr(Y, 0) = T
　　　'＿若為〔明細〕，向下累計列位，並加入明細
　　　Brr(xD(T), X) = Val(Arr(j, 2))
　　　'＿帶入配對值
101: Next j
　
[F7].Resize(Y + 1, X + 1) = Brr
'＿填入陣列內容
[G8].Resize(Y, X).Replace "", "n/a"
'＿將〔空格〕取代為〔n/a〕
End Sub

複製代碼

　
　
只能大約註解，請自行研究，恕不再說明～～　

TOP

靜思自在 : 一個人不怕錯，就怕不改過，改過並不難。

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