엑셀 VBA 여러 시트의 내용을 합치기

시트통합.xlsm

0.02MB

엑셀 VBA 코드

Sub 도형_Click()          For Each Ws In Worksheets              If Ws.Name <> ActiveSheet.Name Then                      Set r = Ws.Range("a2", Ws.Cells(Rows.Count, "c").End(xlUp))             r.Copy Cells(Rows.Count, "a").End(xlUp)         Else             Exit For         End If          Next End Sub