smouse0220

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

複製代碼

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

1. Sub Trans()
   
2. Dim New_Count,Data_Count,I as Double
   
3. Dim Key_Word1 as string
   
4. Dim Key_Word2 as string
   
5. 
   
6. worksheets(2).range("A1").value="品號"
   
7. worksheets(2).range("B1").value="工序"
   
8. 
   
9. Data_Count=worksheets(1).range("A65536").end(xlup).row
   
10. 
    
11. For I = 1 to Data_Count
    
12.       Key_Word1=worksheets(1).range("A" & I).value  '品號
    
13.       Key_Word2=worksheets(1).range("D" & I).value  '工序
    
14. 
    
15.           If Key_Word1="123" and Key_Word1="1" Then
    
16.                    New_Count=worksheets(2).range("A65536").end(xlup).row
    
17.                    worksheets(2).range("A" & New_Count+1).value=Key_Word1
    
18.                    worksheets(2).range("B" & New_Count+1).value=Key_Word2
    
19.         End IF
    
20. Next I
    
21. end sub

複製代碼

smouse0220

回復  smouse0220


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

第15列中的                         ...
假面超人 發表於 2012-8-2 13:31

0802.rar (9.52 KB)

下載次數: 5

2012-8-2 19:32

smouse0220

回復 14# 假面超人

Fyi.
http://imxd.net/file?id=6716