반응형
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 를 사용해서 마지막행을 찾아서 그 행의 내용은 바로 아래 복사하는데,
몇번 복사할지까지 물어봐서 처리하는 구문인데, 좀 더 폭넓게 사용하기 위해 더 많은 수정이 있어야 겠다 ㅠ
아오 매크로 어렵네
반응형
'=====-I T-===== > ▣기타등등' 카테고리의 다른 글
| [Git] Git Error Message 시 대처사항 목록(계속 추가예정) (0) | 2016.09.01 |
|---|---|
| svn 디렉토리 정리하기(서브버전 찌꺼기 디렉토리 제거) (0) | 2013.01.16 |
| 파일삭제 스크립트(배치작업 위한) (0) | 2012.12.18 |
| [IIS] 캠타시아로 만든 플래시가 작동이 되지 않을때 (0) | 2011.03.22 |
| [VB script] 년도, 몇주, 요일 값을 받아와서 날짜 계산하는 함수 (0) | 2010.11.16 |