=====-I T-=====/▣기타등등
[Excel] 엑셀 매크로로 마지막줄 다음줄에 복사하기
윤귀
2015. 10. 14. 13:14
반응형
Sub insertTempCells()
Dim i As Long, n As Long
n = Val(InputBox("How many rows insert?", "Number"))
If n <= 0 Then Exit Sub
For i = 1 To n
Dim lastRow As Long, lastCol As Long
ActiveSheet.UsedRange.Select
lastRow = Selection.End(xlDown).Row
Range("A" & lastRow & ":AH" & lastRow).Copy
Cells(lastRow + 1, 1).Select
ActiveSheet.Paste
Next
End Sub
컬럼사이즈는 어떻게 잡아서 어떻게 처리해야될지 몰라서 일단 하드코딩으로 처리......
엑셀 VB Macro 를 사용해서 마지막행을 찾아서 그 행의 내용은 바로 아래 복사하는데,
몇번 복사할지까지 물어봐서 처리하는 구문인데, 좀 더 폭넓게 사용하기 위해 더 많은 수정이 있어야 겠다 ㅠ
아오 매크로 어렵네
반응형