음.. 답이 좀 늦어서 도움이 되려나 모르겠네요...
일단 위에 수작업시의 키보드반복하는 동작은 메모장에서 가능할것 같습니다.
액셀에서는 위의 키보드 반복작업해서 편집이 안되것 같기는 합니다.
그래서 매크로를 두가지로 첨부합니다.
Sub Range_plue()
Dim i As Long
For i = 2 To Range(\"a\" & Columns(1).Rows.Count).End(xlUp).Row
\'반복문입니다. 2부터시작해서 A열의 값이 있는 제일 아래의 행까지 반복합니다.
Cells(1, 1).Value = Cells(1, 1) & \",\" & Cells(i, 1)
\'cells(1,1) = A1입니다. A1에 아래부분의 값들을 \",\"를 포함하여 뒤로 추가합니다.
Next i
\'반복이 끝날대까지 계속합니다.
End Sub
\'가 ~ 사 의 값이 Range(\"a1\") ~ Range(\"a7\")에 들어있다고 가정하고 작업하였습니다.
등록안내
일단 위에 수작업시의 키보드반복하는 동작은 메모장에서 가능할것 같습니다.
액셀에서는 위의 키보드 반복작업해서 편집이 안되것 같기는 합니다.
그래서 매크로를 두가지로 첨부합니다.
Sub Range_plue()
Dim i As Long
For i = 2 To Range(\"a\" & Columns(1).Rows.Count).End(xlUp).Row
\'반복문입니다. 2부터시작해서 A열의 값이 있는 제일 아래의 행까지 반복합니다.
Cells(1, 1).Value = Cells(1, 1) & \",\" & Cells(i, 1)
\'cells(1,1) = A1입니다. A1에 아래부분의 값들을 \",\"를 포함하여 뒤로 추가합니다.
Next i
\'반복이 끝날대까지 계속합니다.
End Sub
\'가 ~ 사 의 값이 Range(\"a1\") ~ Range(\"a7\")에 들어있다고 가정하고 작업하였습니다.
Sub sendkeys()
Application.ScreenUpdating = False
Range(\"A1\").Select
Application.sendkeys \"{,}\"
Application.sendkeys \"{RIGHT}\"
Application.sendkeys \"{del}\"
Application.sendkeys \"{RIGHT}\"
Application.sendkeys \"{enter}\"
Application.ScreenUpdating = True
End Sub
[ ,->Del->end] 를 한번 실행합니다. 만약 여러번 반복을 하시려면
For문 등을 통해 반복하셔야 합니다.
D-I-T님 매크로 짜주셔서 너무나도 감사드립니다^^
쪽지 한 반 확임 부탁드려요~