- 帖子
- 9
- 主題
- 0
- 精華
- 0
- 積分
- 14
- 點名
- 0
- 作業系統
- windows7
- 軟體版本
- 9
- 閱讀權限
- 10
- 性別
- 男
- 註冊時間
- 2012-7-31
- 最後登錄
- 2012-12-3
|
- 品號 名稱 製程 工時
- 123 剪刀 下料 1 100
- 123 剪刀 粗胚 2 200
- 123 剪刀 研磨 3 100
- 124 叉子 下料 1 100
我會用以下的方式節選出來
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
|
|
發表於 2012-8-2 01:56
| 
