- ©«¤l
- 835
- ¥DÃD
- 6
- ºëµØ
- 0
- ¿n¤À
- 915
- ÂI¦W
- 14
- §@·~¨t²Î
- Win 10,7
- ³nÅ骩¥»
- 2019,2013,2003
- ¾\ŪÅv
- 50
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2010-5-3
- ³Ì«áµn¿ý
- 2024-11-6
|
¤j®a¦n §Ú¬Oè¾Ç²ßvbaªº·s¤â
¦³°ÝÃD·Q½Ð±Ð
¦³¤@Ó¤u§@ªí
°¸¼Æ¦Cªº¸ê®Æn²¾¨ì¤W±©_¼Æ¦C«á±¸É»ô
¤£¹L ...
lyc43210 µoªí©ó 2015-4-12 17:34
§â
a = Range(Cells(i + 1, 1), Cells(i + 1, 10))
Range(Cells(i, c), Cells(i, 11)) = a
§ï¦¨
Range(Cells(i + 1, 1), Cells(i + 1, 10)).Cut Cells(i, c + 1)
¥u¥Î c ¦n¹³¬O¤£¹ïªº, «Øij§ï¦¨ C + 1.
(±N·h²¾°Ê§@ª½±µ¥Ñ¤@Ó¨ç¼Æ§¹¦¨)
¦A±N Range(Cells(i + 1, 1), Cells(i + 1, 10)).Cut Cells(i, c + 1)
§ï¦¨
Range(Cells(i + 1, 1), Cells(i + 1, 10-c)).Cut Cells(i, c + 1)
(¹ïÀx¦s®æ°µ°Ê§@·|¤ñ³æ¯Âpºâ¼Æ¦rnªá§ó¦h®É¶¡)
¦p¦¹,À³¸Ó·|¦³§ïµ½.- Sub hm()
-
- Dim i%, c
-
- i = 1
-
- Do
- c = Cells(i, 1).End(xlToRight).Column
- If c < 11 Then
- Range(Cells(i + 1, 1), Cells(i + 1, 10 - c)).Cut Cells(i, c + 1)
- Rows(i + 1).Delete
- End If
-
- i = i + 1
- Loop Until Cells(i, 1) = ""
-
- End Sub
½Æ»s¥N½X |
|