엑셀 매크로 활용 VBA(3)

kukuta님께 도움받음

안녕하세요. 먼저 답변이 늦어 죄송합니다. 이렇게 한번 해보시겠어요? ThisWorkbook.Worksheets("Sheet1").Range("Z6") = WorksheetFunction.Sum(Range("A1:H1").Value) 아래 포스트에서 보다 자세한 내용을 참고하실 수 있습니다. https://kukuta.tistory.com/279#headline_unique_id_2 아니면 워크시트의 코드네임을 이용해 아래와 같이도 가능합니다. Sheet1.Range("Z6") = WorksheetFunction.Sum(Range("A1:H1").Value) 워크시트에 접근하는 다양한 방법은 다음 포스트에서 확인 가능합니다. https://kukuta.tistory.com/278 코드 네임에 관련된 내용은 https://kukuta.tistory.com/278#headline_unique_id_6 에서 확인 가능합니다. 감사합니다.

---

Sub callVal()

'초기화[병합된셀 Range로 범위표현]
    Sheets("monthly_graph").Select
    Range("E2:O4").Select
    Range("C8").Select
    Range("L9").Select
    Selection.ClearContents

'복사할 시트 선택 [Cells(,) = Range("")]
    Sheets(Sheets.Count).Select
    Range("I5:S7").Select

'시트안 값 복사
    Selection.Copy

'붙여넣을 시트 값 선택
    Sheets("monthly_graph").Select
    Range("E2:O4").Select

'붙여넣기
    ActiveSheet.Paste

'Diactive[직전시트 이동하려면 프로시저 추가해야해서 이동할 시트를 맨 우측 끝으로 보냄]
    Sheets(Sheets.Count).Select
    Application.CutCopyMode = False

'계산[.Value를 빼야함]
    Sheet2.Range("C8") = Cells(46, 9)
    Sheet2.Range("L9") = WorksheetFunction.Sum(Range("N46:S46"))

'시트 이동
    Sheet2.Select
    
End Sub