- ©«¤l
- 3
- ¥DÃD
- 1
- ºëµØ
- 0
- ¿n¤À
- 4
- ÂI¦W
- 0
- §@·~¨t²Î
- Windows 9
- ³nÅ骩¥»
- office2010
- ¾\ŪÅv
- 10
- ©Ê§O
- ¤k
- µù¥U®É¶¡
- 2015-12-2
- ³Ì«áµn¿ý
- 2015-12-2
|
[µo°Ý] ¤@¶}©l¯à¥Î,«á¨Ó¥[¤F¤@±iªí®æ¸ò¤º«Ø¤½¦¡´N¶Ã¤F
¥»©«³Ì«á¥Ñ Convulse ©ó 2015-12-2 09:14 ½s¿è
¥»¨Ó¼g¤F¤@ÓMacro §â63Óªí®æªº¸ê®Æ¶K¨ì¤@Óªí®æ
¤@¶}©l¶]¬OOK¤F
¦ý¬O«á¨Ó·s¼W¤F¤@±iªí°µpºâ,¥[¤F«Ü¦h¤½¦¡¦b¸Ì±
¦A«¶]VBA¦X¨Ö¤@¦¸¸ê®Æ,´N¨S¿ìªk§ì¨ì¥þ³¡63ÓSheet¤F, ´N¤@ª½¥u¯à§ì¬Y´XÓsheet(¤j·§´N4±i)¦Ó¤w
·Ó²z¨Ó»¡·s¼W¨º±ipºâªºªí®æ,ÁÙ¦³¸Ì±¤½¦¡À³¸Ó³£¸òVBA¨S¦³Ãö«Y( ¦]¬°¨S¦³§ì¨º±ipºâªí®æªº¸ê®Æ),¥i¬O´N¤@ª½§ì¤£¨ì¸ê®Æ:'(
¬ã¨s¤F¦n¤[³£ÁÙ¬O¤£¯à§ì¦^쥻63Ósheet¸Ìªº¸ê®Æ,·Q°Ý°Ý¬°¤°»ò·|³o¼Ë?
·|¬OCodeªº°ÝÃD¶Ü?¨º¬°¤°»ò¤@¶}©l¶]¯à¥Î©O?®³¨ìì©lÁÙ¨S°µpºâªºªí®æ¤S¥i¥H¶]?
ªþ¤W§Ú¼gªºµ{¦¡½X
Sub Merge()
'
'
Sheets("summary").Select
Range("A2").Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).Select
Selection.ClearContents
For x = 4 To 66
Sheets(x).Select
Application.ScreenUpdating = False
Range("A2").Select
Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select
Application.CutCopyMode = False
Selection.Copy
Sheets("summary").Select
ActiveCell.Select
ActiveSheet.Paste
Range("A:A").End(xlDown).Select
ActiveCell.Offset(1, 0).Select
Next x
End Sub
³Â·Ð¤j®aÀ°À°¦£¤F~~ |
|