- 帖子
- 77
- 主題
- 30
- 精華
- 0
- 積分
- 110
- 點名
- 0
- 作業系統
- win7
- 軟體版本
- office2003
- 閱讀權限
- 20
- 性別
- 男
- 來自
- 台北
- 註冊時間
- 2013-7-14
- 最後登錄
- 2018-10-3
|
3#
發表於 2013-7-29 16:55
| 只看該作者
謝謝-stillfish00 ,ok了!
不過,可以再追加一個問題嗎?
怎麼把第二個迴圈與第一個一起寫進去,我搞好久了
Dim aa As String
Dim row1, row2, row3, i, o, k, j As Integer
row1 = Sheets("1").Range("a65536").End(xlUp).Row
row2 = Sheets("2").Range("a65536").End(xlUp).Row
For i = 2 To row2
aa = Sheets("2").Cells(i, 3).Value
Select Case True
Case aa Like "*成交*"
Sheets("3").Select
row3 = Range("a65536").End(xlUp).Row
k = row3 + 1
Sheets("3").Cells(k, 1).Value = Sheets("2").Cells(i, 3)
Sheets("3").Cells(k, 2).Value = Sheets("2").Cells(i, 11)
Sheets("3").Cells(k, 3).Value = Sheets("2").Cells(i, 10)
Sheets("3").Cells(k, 4).Value = Sheets("2").Cells(i, 25)
End Select
Next
----------------------------------------------------------
row1 = Sheets("1").Range("a65536").End(xlUp).Row
row2 = Sheets("2").Range("a65536").End(xlUp).Row
For j = 2 To row2
For i = 2 To row1
If Sheets("3").Cells(j, 4) = Sheets("1").Cells(i, 2) _
And Sheets("3").Cells(j, 2) = Sheets("1").Cells(i, 25) Then
Sheets("3").Cells(j, 5).Value = Sheets("1").Cells(i, 5)
Exit For
End If
Next
Next |
|