½Ð¨D°ª¤â...¦³¤èªk¯à§Ö³t§@¶Ü?
- ©«¤l
- 11
- ¥DÃD
- 4
- ºëµØ
- 0
- ¿n¤À
- 15
- ÂI¦W
- 0
- §@·~¨t²Î
- win7
- ³nÅ骩¥»
- office 2007
- ¾\ŪÅv
- 10
- ©Ê§O
- ¤k
- µù¥U®É¶¡
- 2014-2-22
- ³Ì«áµn¿ý
- 2014-5-2
|
½Ð¨D°ª¤â...¦³¤èªk¯à§Ö³t§@¶Ü?
¥»©«³Ì«á¥Ñ ¥d¹Å¶ð ©ó 2014-2-22 14:48 ½s¿è
A¦C ¬O¥DÅé ¤£¯à§R°£ªº
µM«á ¦aÂI¸ò¹q¸Ü Äæ¦ìªÅ¥Õªº¸Ü
«h¦bB C §ì¨ú¸ê®Æ («½Æ¦WºÙªº)
B ¬°Àu¥ý ¨ä¦¸¬OC
(A B C¨º¤@Äæ ¤£¯à¬å! ´N¬O³Ì¥ªÃ䪺¨ºÓ)
(¨S¦³BC¦Cªº¸Ü ´Nª½±µ«O¯dì¦ì¸m)
½Ð°Ý¦³¤èªk§Ö³t§@¶Ü? ...¦]¬°¦³¼Æ¸Uµ§¸ê®Æ...§@¨ì¦³ÂI§Öú¤F....:'(
|
|
|
|
|
|
|
- ©«¤l
- 11
- ¥DÃD
- 4
- ºëµØ
- 0
- ¿n¤À
- 15
- ÂI¦W
- 0
- §@·~¨t²Î
- win7
- ³nÅ骩¥»
- office 2007
- ¾\ŪÅv
- 10
- ©Ê§O
- ¤k
- µù¥U®É¶¡
- 2014-2-22
- ³Ì«áµn¿ý
- 2014-5-2
|
¹ï!!¨S¿ù!!¯uªº«Ü·PÁ§A!
¹ï¤£°_ Á٧ѰO¥[¤F¥t¤@Ó
b c ¤ÀÃþ °²¦p¨S¦³aªº¸Ü ¥u¦³b©Mcªº¸Ü ¤£¥Îdel «O¯d¤U¨Ó
¦n¹³¦³ÂI½ÆÂø ÀY¦n·w = = |
|
|
|
|
|
|
- ©«¤l
- 11
- ¥DÃD
- 4
- ºëµØ
- 0
- ¿n¤À
- 15
- ÂI¦W
- 0
- §@·~¨t²Î
- win7
- ³nÅ骩¥»
- office 2007
- ¾\ŪÅv
- 10
- ©Ê§O
- ¤k
- µù¥U®É¶¡
- 2014-2-22
- ³Ì«áµn¿ý
- 2014-5-2
|
¨ºÓ¹ï¤£°_ §Úªº¶W¹L3¤ÀÄÁ¤£¯à½s¿è°T®§
§Ú·Q½Ð±Ð¤@¤U ¨º¤@Ó§R°£«½Æ¦C
¬O³oÓ¹À ¦]¬°§ä¤£¨ì 0.0
|
|
|
|
|
|
|
- ©«¤l
- 11
- ¥DÃD
- 4
- ºëµØ
- 0
- ¿n¤À
- 15
- ÂI¦W
- 0
- §@·~¨t²Î
- win7
- ³nÅ骩¥»
- office 2007
- ¾\ŪÅv
- 10
- ©Ê§O
- ¤k
- µù¥U®É¶¡
- 2014-2-22
- ³Ì«áµn¿ý
- 2014-5-2
|
¨ºÓ©êºp
½Ð°Ý¨º¬O ? n«ç»ò¥Î?
Private Sub CommandButton1_Click()
Dim i As Integer
Dim strB, strC As Range
For i = [B2].End(xlDown).Row To 2 Step -1
Set strB = Cells(i - 1, 2)
Set strC = Cells(i, 2)
If strC.Value = strB.Value Then
If strB.Offset(0, 1) = "" And strC.Offset(0, 1) <> "" Then
strB.Offset(0, 1) = strC.Offset(0, 1)
End If
If strB.Offset(0, 2).Value = "" And strC.Offset(0, 2).Value <> "" Then
strB.Offset(0, 2).Value = strC.Offset(0, 2).Value
End If
strC.EntireRow.Delete
End If
Next
End Sub |
|
|
|
|
|
|
- ©«¤l
- 11
- ¥DÃD
- 4
- ºëµØ
- 0
- ¿n¤À
- 15
- ÂI¦W
- 0
- §@·~¨t²Î
- win7
- ³nÅ骩¥»
- office 2007
- ¾\ŪÅv
- 10
- ©Ê§O
- ¤k
- µù¥U®É¶¡
- 2014-2-22
- ³Ì«áµn¿ý
- 2014-5-2
|
¯uªº«Ü·PÁ§A
¤£¹L......·Q¦b°Ý¤@¤U
°²¦p»Ýn¶ñªº¸ê®Æ¤£¥u¨âµ§ ¦Ó¬O¤¤»µ§ªº¸Ü n«ç»ò§ó§ï?
¤ñ¦p»¡³oÓ
|
|
|
|
|
|
|