|
안녕하세요.
데이터를 다른 파일에 누적시키는 소스를 네이버 검색 중 큰형님께서
만들어주신 소스를 찾게되었습니다.
Link = http://kin.naver.com/qna/detail.nhn?d1id=1&dirId=102020101&docId=179438482&sp=1&sort=0&rank=1&search_sort=0&qb=7JeR7IWAIOuLpOuluCDtjIzsnbzsl5Ag64iE7KCB&spq=0§ion=kin&enc=utf8
궁굼한 사항은
아래 소스내용을 사용하면
Sub 누적_저장하기()
Dim rngPaste As Range
Dim T As Variant
Dim strPath As String
Application.ScreenUpdating = False
strPath = ThisWorkbook.Path
T = Range("B1:B5").Value
Workbooks.Open strPath & "\저장파일.xlsx"
Set rngPaste = Cells(Rows.Count, 2).End(3)(2)
With rngPaste
.Offset(, -1) = .Row - 1
.Resize(, 5) = Application.Transpose(T)
End With
ActiveWorkbook.Save
End Sub
B 라인에
1 가
2 나
3 다
로는 누적이 잘 되는데
제가 원하는건 (가로방향으로 된 데이터를 누적시키는 것입니다.)
B C D
1 가 나 다
저 위의 소스 중에 어떤것을 수정해야 되는지 궁굼합니다.
이제 본격적으로 겨울이 시작되네요.
이 글을 읽는 모든분들 다사다난했던 한해 마무리 잘 하시고
내년에는 좋은일 가득하길 바랍니다.
|
|