¡i½Ð°Ý¡j¦p¦ó¤ñ¹ï«½Æ¸ê®Æ¨Ã¥[¥H¼Ð¥Ü
- ©«¤l
- 1572
- ¥DÃD
- 16
- ºëµØ
- 2
- ¿n¤À
- 1521
- ÂI¦W
- 0
- §@·~¨t²Î
- xp
- ³nÅ骩¥»
- office 2003
- ¾\ŪÅv
- 150
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2010-5-1
- ³Ì«áµn¿ý
- 2016-1-13

|
«ç»ò¼ÐÃD»P¤º®e¬O¨â½X¨Æ¡Hªþ¥ó¤]¨S§A»¡ªº±¡§Î¡C |
|
|
|
|
|
|
- ©«¤l
- 1572
- ¥DÃD
- 16
- ºëµØ
- 2
- ¿n¤À
- 1521
- ÂI¦W
- 0
- §@·~¨t²Î
- xp
- ³nÅ骩¥»
- office 2003
- ¾\ŪÅv
- 150
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2010-5-1
- ³Ì«áµn¿ý
- 2016-1-13

|
- For I = 2 To [h65536].End(3).Row
- If Application.CountIf([h:h], Cells(I, 8)) > 1 And [h:h].Find(Cells(I, 8), , , 1).Row = I Then
- Cells(I, 10) = "D"
- ElseIf [h:h].Find(Cells(I, 8), , , 1, , 2).Row = I Then
- Cells(I, 10) = "O"
- End If
- Next
½Æ»s¥N½X |
|
|
|
|
|
|