- ©«¤l
- 77
- ¥DÃD
- 30
- ºëµØ
- 0
- ¿n¤À
- 110
- ÂI¦W
- 0
- §@·~¨t²Î
- win7
- ³nÅ骩¥»
- office2003
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¥x¥_
- µù¥U®É¶¡
- 2013-7-14
- ³Ì«áµn¿ý
- 2018-10-3
|
ÁÂÁÂ-stillfish00 ¡Aok¤F¡I
¤£¹L¡A¥i¥H¦A°l¥[¤@Ó°ÝÃD¶Ü¡H
«ç»ò§â²Ä¤GÓ°j°é»P²Ä¤@Ó¤@°_¼g¶i¥h¡A§Ú·d¦n¤[¤F
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 |
|