VBA 루프를 복사하여 특정 셀에 붙여 넣기

-1

VBA를 처음 사용합니다. 아이디어는 루프가 A 열의 과정에서 각 셀을 셀 "B1"로 가져와야한다는 것입니다.VBA 루프를 복사하여 특정 셀에 붙여 넣기

이제는 데이터가 오른쪽 열에 복사되지만 맨 위로 올라가고 싶습니다.

코드가 지금 당장이를 수행합니다.
A1에서 B1, A2에서 B2, A3에서 B3 등으로 이동합니다. A1에서 B1, A2에서 B1, A3에서 B1, A4에서 B1 등의 아이디어를 얻을 수 있습니다.

Sub StartLoop() 
Application.Goto Reference:="StartLoop" 
Do Until AciveCell = "" 
    ActiveCell.Offset(1, 0).Range("A1").Select 'range "A2:A2000" contains the data to test 
Loop 
End Sub 
Sub copyLoop() 'copy from columnn A and past to a fix destination 
Application.Goto Reference:="StartLoop" 
    Do Until ActiveCell = "" 
     Selection.Copy 
     ActiveCell.Offset(0, 1).Range("A1").Select 
     ActiveSheet.Paste 
     ActiveCell.Offset(1, -1).Range("A1").Select 
Loop 
    Application.CutCopyMode = xlCopy 
End Sub>

출처

2014-07-06 user3809857

달성하려는 내용이 사용자의 설명에서 명확하지 않습니다. 하나 이상의 스크린 샷을 올리면 이미 시도한 것을 보여주는 몇 가지 샘플 코드, 즉 원하는 방식으로 작동하지 않는 코드가 도움이 될 수 있습니다. (stackoverflow의 [코드 포맷] (http://stackoverflow.com/editing-help)은 정말 훌륭하고 개발자는 _code_를보고 싶어합니다.) – evadeflow

열을 행에 * 전 환하고 싶습니까? 전체 데이터를 복사하고 붙여 넣기 특수 효과를 조 변경하십시오. 매크로 레코더를 사용하여 이것이 어떻게 수행되는지보십시오. –

안녕 데이비드, 실제로 그랬지만 매크로 레코더에서 배웠던 것에서 작동하지는 않습니다. 내가하려는 일은 복사 과정을 자동화하여 a1이 b1으로 가고, a2가 b1으로 가고, a3이 b1으로 간다. b1은 데이터 공급자에 연결되고 매크로의 두 번째 부분이 내보낼 정보를 업데이트합니다. – user3809857

볼 수 있듯이 값의 열을 반복하여 각 셀을 동일한 셀에 순서대로 붙여 넣으려고하는 것입니다. 다음 코드는이를 수행하는 방법입니다.

Sub LoopTheStuff() 
Dim columnA As Range 
Dim target As Range 

Set columnA = Range("A1:A" & ActiveSheet.Cells.SpecialCells(xlCellTypeLastCell).Row) 'selects range of A1 to the last cell with value 
Set target = Range("B1") 
For Each c In columnA 
    target = c 'B1 = Ax 
Next c 

End Sub

출처

2017-11-09 14:14:42

VBA 루프를 복사하여 특정 셀에 붙여 넣기

답변

관련 문제