GBKEE

¦^´_ 5# missbb

Workbook.Sheets("summary").Cells.ClearContents

¦¹³B»Ý­nª«¥ó (¿ù»~ 424)
­×§ï¬Ý¬Ý

1. Workbooks("¬¡­¶Ã¯¦WºÙ").Sheets("summary").Cells.ClearContents

½Æ»s¥N½X

¥i¥H¤£¥ÎCopy

1. For Each ws In Worksheets
   
2.         If ws.Name <> "Summary" Then
   
3.              Sheets("summary").Range("A65536").End(xlUp).Offset(1).Resize(30)= ws.Range("B4")
   
4.         End If
   
5.     Next

½Æ»s¥N½X

missbb

¦^´_ 2# lpk187

·s°ÝÃD, §Ú·Q¨C¦¸¦æ¾pCOPY®É, ­n¥ý±NSUMMARYªº¤º®eCLEAR, ¥[¤J¤U¦C, ¦ý¥X²{424 ªºERROR, ¬O¬Æ©²°ÝÃD©O?:dizzy:
Sub Clear_Contents_Range()
    Workbook.Sheets("summary").Cells.ClearContents
End Sub

lpk187

¦^´_ 1# missbb

¸Õ¸Õ¬Ý
        For Each ws In Worksheets
        If ws.Name <> "Summary" Then
            ws.Range("B4").Copy
            aa = Sheets("summary").Range("A65536").End(xlUp).Row + 1
            Sheets("summary").Paste Sheets("summary").Range("A" & aa, "A" & aa + 29)
        End If
    Next ws