- ©«¤l
- 967
- ¥DÃD
- 0
- ºëµØ
- 0
- ¿n¤À
- 1001
- ÂI¦W
- 0
- §@·~¨t²Î
- WIN XP
- ³nÅ骩¥»
- OFFICE 2003
- ¾\ŪÅv
- 50
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¥x¥_
- µù¥U®É¶¡
- 2010-11-29
- ³Ì«áµn¿ý
- 2022-5-17
|
¦^´_ 1# sax868 - Sub XX()
- With Sheets("Updated Data")
- For R1 = 2 To .[A65536].End(xlUp).Row
- If .Cells(R1, "AP") & .Cells(R1, "BB") <> "" Then
- For R2 = 2 To Sheets("Notes").[A65536].End(xlUp).Row
- If .Cells(R1, "A") & .Cells(R1, "C") & .Cells(R1, "E") = Sheets("Notes").Cells(R2, "A") & Sheets("Notes").Cells(R2, "C") & Sheets("Notes").Cells(R2, "E") Then
- .Rows(R1).Copy Sheets("Notes").Rows(R2)
- GoTo 10
- End If
- Next R2
- .Rows(R1).Copy Sheets("Notes").[A65536].End(xlUp).Offset(1, 0)
- 10
- End If
- Next R1
- End With
- End Sub
½Æ»s¥N½X
1.rar (9.63 KB)
|
|