- ©«¤l
- 39
- ¥DÃD
- 8
- ºëµØ
- 0
- ¿n¤À
- 53
- ÂI¦W
- 0
- §@·~¨t²Î
- WIN7
- ³nÅ骩¥»
- 2003
- ¾\ŪÅv
- 20
- µù¥U®É¶¡
- 2013-11-16
- ³Ì«áµn¿ý
- 2016-1-30
|
¦^´_ 4# luhpro - Sub ©¹¤U²¾°Ê()
- Dim lRow&, lRows&
- Dim rTar As Range
- Set rTar = Selection
- If rTar.Count = 1 Then
- lRows = 1
- Else
- lRows = UBound(rTar.Value2, 1)
- End If
- icol = 7
- Do While icol < 16
- Range(Cells(rTar.Row, icol), Cells(Rows.Count, icol).End(xlUp)).Copy _
- Cells(rTar.Row + lRows, icol)
- 'Range(Cells(rTar.Row, icol), Cells(rTar.Row + lRows - 1, icol)) = "" ' ¤£½T©w§A¬O§_n²M±¼³o¨Ç¸ê®Æ
- icol = icol + 8
- Loop
- End Sub
½Æ»s¥N½X ¤j¤j³o¤@¬q©¹¤Uªº¥N½X ¬O§_¦³¿ìªk¤@¦¸¤U°2®æ ¨Ã¼W¥[¦hÄæ
¹³¹Ï¤¤®Ø¿ïªºÄæ¦ì¦P®É¤U° |
|