- ©«¤l
- 835
- ¥DÃD
- 6
- ºëµØ
- 0
- ¿n¤À
- 915
- ÂI¦W
- 13
- §@·~¨t²Î
- Win 10,7
- ³nÅ骩¥»
- 2019,2013,2003
- ¾\ŪÅv
- 50
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2010-5-3
- ³Ì«áµn¿ý
- 2024-10-25
|
¥»©«³Ì«á¥Ñ luhpro ©ó 2014-9-9 23:07 ½s¿è
§Ú¦³¤@¥÷¥|¸U¦hµ§ªº¸ê®Æ
§Ú¥ÎPDF ½Æ»s¹L¨Ó¤§«á
·|¦³¤@¨Ç¦a§} ¹³²Ä¤@µ§¤@¼Ë
¦]¬°¦a§}¹Lªø¦Ó¸õ¤F¤@®æÀx¦s ...
super31610 µoªí©ó 2014-9-9 10:15
¦]¬°§Aªº¸ê®Æ¶q¤Ó¤j¤F,
¥B¨ä¤º®e¤S»Ýn·h²¾»P¦X¨Ö,
©Ò¥H¤ñ¸û¾A¦X¥Î Excel VBA ¨Ó¹F¦¨,
¤£©y¥ÎÀx¦s®æ¤½¦¡¨Ó¹ê²{.- Sub nn()
- Dim lRows&, lRow&
- Dim iI%
-
- lRow = 1
- Do While Cells(lRow, 1) <> ""
- With Cells(lRow, 1)
- If Mid(.Value, 3, 1) = "¥«" Or Mid(.Value, 3, 1) = "¿¤" Then
- If Not IsNumeric(.Offset(1)) Then
- .Value = .Value & .Offset(1)
- .Offset(1).Rows.Delete xlShiftUp
- End If
- For iI = 1 To 3
- .Offset(, iI) = .Offset(1)
- .Offset(1).Rows.Delete xlShiftUp
- Next
- End If
- lRow = lRow + 1
- End With
- Loop
½Æ»s¥N½X
¨D§U-a.zip (15.87 KB)
|
|