엑셀 - 시트1 선택라인 시트2 옮기기 예제
조회 : 110 이름 : 불바다
E-mail :
Option Explicit

Sub Print_Click()

Dim Row As Long, Col As Long

Dim i As Integer

Sheets(1).Select 'Sheet 1 선택

Row = ActiveCell.Row
Col = ActiveCell.Column

Sheets(2).Activate 'Sheet 2 활성화

For i = 1 To 12
Sheets(2).Cells(i + 1, 2) = Sheets(1).Cells(Row, i)
Next i

End Sub

Sub Edit_Click()

Sheets(1).Activate

End Sub
작성 날짜 : 2018-09-13