[發問] 在同一列同時比對兩欄資料方法

帖子: 18
主題: 3
精華: 0
積分: 26
點名: 0
作業系統: WIN7
軟體版本: office2007
閱讀權限: 10
性別: 男
註冊時間: 2012-8-1
最後登錄: 2012-9-1

3^#

發表於 2012-8-1 23:46 | 只看該作者

回復 2# Hsieh

抱歉!不知是否有範例檔案，影片看不太清處詳細內容

帖子: 18
主題: 3
精華: 0
積分: 26
點名: 0
作業系統: WIN7
軟體版本: office2007
閱讀權限: 10
性別: 男
註冊時間: 2012-8-1
最後登錄: 2012-9-1

4^#

發表於 2012-8-2 00:24 | 只看該作者

原來按下去就可以放大，謝謝您
不知道是否還有其他方法?因為資料幾萬筆，欄位數也很多
我主要是想知道該列的位置，然後擷取某幾個欄位的資料填到別的欄位上

smouse0220

帖子: 9
主題: 0
精華: 0
積分: 14
點名: 0
作業系統: windows7
軟體版本: 9
閱讀權限: 10
性別: 男
註冊時間: 2012-7-31
最後登錄: 2012-12-3

5^#

發表於 2012-8-2 01:56 | 只看該作者

品號名稱製程工時
123 剪刀下料 1 100
123 剪刀粗胚 2 200
123 剪刀研磨 3 100
124 叉子下料 1 100

複製代碼

假設你的資料是如上述的方式排列(也就是 "品號"在A1 , "名稱"在B1 , "123"在A2..以此類推)
我會用以下的方式節選出來
PS:把資料放在Sheet1 , 多開一個sheet2(資料會轉存到這)

Sub Trans()
Dim New_Count,Data_Count,I as Double
Dim Key_Word1 as string
Dim Key_Word2 as string
worksheets(2).range("A1").value="品號"
worksheets(2).range("B1").value="工序"
Data_Count=worksheets(1).range("A65536").end(xlup).row
For I = 1 to Data_Count
Key_Word1=worksheets(1).range("A" & I).value '品號
Key_Word2=worksheets(1).range("D" & I).value '工序
If Key_Word1="123" and Key_Word1="1" Then
New_Count=worksheets(2).range("A65536").end(xlup).row
worksheets(2).range("A" & New_Count+1).value=Key_Word1
worksheets(2).range("B" & New_Count+1).value=Key_Word2
End IF
Next I
end sub

複製代碼

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

6^#

發表於 2012-8-2 07:01 | 只看該作者

我主要是想知道該列的位置，然後擷取某幾個欄位的資料填到別的欄位上假面超人發表於 2012/8/2 00:24

上傳檔案來看看

帖子: 18
主題: 3
精華: 0
積分: 26
點名: 0
作業系統: WIN7
軟體版本: office2007
閱讀權限: 10
性別: 男
註冊時間: 2012-8-1
最後登錄: 2012-9-1

7^#

發表於 2012-8-2 13:31 | 只看該作者

回復 5# smouse0220

真的太謝謝你了，這樣讓又能繼續寫下去了!

第15列中的 If Key_Word1="123" and Key_Word1="1" Then
好像有點問題，我修改成 If Key_Word1="123" and Key_Word2="2" Then
就能正常判斷了

帖子: 18
主題: 3
精華: 0
積分: 26
點名: 0
作業系統: WIN7
軟體版本: office2007
閱讀權限: 10
性別: 男
註冊時間: 2012-8-1
最後登錄: 2012-9-1

8^#

發表於 2012-8-2 14:39 | 只看該作者

剛試了一下，還是不行
我想要做的是
當判斷品號和工序是在同一列時
去抓在同一列裡面工時這個資料

原本只用vlooKup 去判斷和抓資料，但他只能判斷單一的資料
當遇到多筆重複的資料時只會去抓最先找的那一筆
摸索了好久
才想到VBA或許能解決這問題
請個位先進指點一下!!謝謝

帖子: 18
主題: 3
精華: 0
積分: 26
點名: 0
作業系統: WIN7
軟體版本: office2007
閱讀權限: 10
性別: 男
註冊時間: 2012-8-1
最後登錄: 2012-9-1

9^#

發表於 2012-8-2 15:22 | 只看該作者

回復 6# GBKEE

多筆資料判斷.rar (9.03 KB)

這只是類似要處理的檔案
檔案來源是
第一個工作頁的品號欄由BOM表展開，後面的名稱、製程等都是後來要從其他工作頁抓過來填入
後面工作頁是由現場單位實際情況生產情況回報回來

目前要處理的動作
第一個工作頁的品號欄都是獨立不會重複，但其他工作頁的品號會重複(因為資料來源就是這樣)，所以我才會想既然裡面有工序，就以工序做第二判斷條件去抓取同一列裡面如工時等其他資料回寫到工作頁1裡面，如果有三個相同品號但工序不同的資料，會依照工序順序在下面又新增兩列，再把資料抓進來(這部分目前寫道變成無窮迴圈，還在動腦中)

Hsieh

超級版主 Rank: 8 Rank: 8

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 42
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2025-2-17

2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

10^#

發表於 2012-8-2 16:21 | 只看該作者

回復 9# 假面超人

進階篩選很容易達成

如果堅持寫迴圈

Sub ex()
Dim Ar()
With Sheet1
For Each a In .Range(.[A2], .[A2].End(xlDown))
With Sheet2
For Each b In .Range(.[A2], .[A2].End(xlDown))
If b = a Then
ReDim Preserve Ar(s)
Ar(s) = Array(b.Value, b.Offset(, 1).Value, b.Offset(, 2).Value, b.Offset(, 4).Value)
s = s + 1
End If
Next
End With
Sheet3.[A65536].End(xlUp).Offset(1).Resize(s, 4) = Application.Transpose(Application.Transpose(Ar))
Erase Ar
s = 0
Next
End With
End Sub

複製代碼

學海無涯_不恥下問