엑셀고수님 봐주세요    글쓴이:하얀그림자 , Hit : 415

- File #1 : 줄삽입.xlsm(20.2 KB), Download : 5

설계변경을 할려고 하는데  각 줄마다 2칸씩 공간을 만들려고 합니다. 인터넷에 찾다보니 1칸씩 늘리는 줄삽인 메크로가 있어 사용할려고하니 1번 누르면 1칸씩 늘어나고 다시 한번더 누르면 2칸씩 늘어나서 3칸이 되어 버리네요 첨부한 매크로를 어떻게 변형해야 2칸씩만 삽입이 가능할까요?? 알려주시면 감사하겠습니다.   추천:종서

하얀그림자 회원님의 소개글이 없습니다. 정보력:670 친절도:2115

피키 정보력:41360 친절도:27778   04-16 18:56 모바일- 잘 쓰겠습니다

도리순_볶음지름신 정보력:48270 친절도:16346   04-16 19:03 모바일- 모바일- 모바일- Sub InsertRows() Dim ws As Worksheet Set ws = ActiveSheet Dim i As Integer Dim lastRow As Integer lastRow = ws.Cells(ws.Rows.Count, \\\"A\\\").End(xlUp).Row For i = lastRow To 1 Step -1 ws.Rows(i + 1).Resize(2).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove Next i End Sub Vba편집기열어서 붙여넣으신다음 영역설정하시고 실행하면 두칸삽입됩니다 그후에 첫번째 공종만 작업한다음 붙여넣기해서 사용중입니다 직접 매크로돌려서 작업방법이 있긴한데 조금 복잡하구요 저도 설변이 편했으면 좋겠어요 년차별 내역작업하시나봅니다

쎈보 정보력:1270 친절도:519   04-16 20:09 모바일- 전태영 설계변경툴 이라고 있는데 저는 이거사용해서 설변서류 작성합니다. 구글링 해보셔도 나올듯하고. 아님 좀이따 컴앞에갔을때 올려드릴께요.