절차

Question

좋아, 내가 쓴이 small sub :

Sub dingo() 

Dim apriori 
    Dim e As Integer 
    Dim n As Integer 
    Dim rr As Integer 
    Dim yolk As Integer 
    Dim timy As Integer 

    'timy = yeah.Count 

    rr = ActiveWorkbook.Worksheets.Count 
    yolk = rr 
    e = 1 

    For Each apriori In yeah 


    'WE NEED LOOP ON THE COPYING MECHANISM!!!-re-test 

    Dim Rng As Range 

    If Trim(apriori) <> "" Then 
     With Sheets(yolk).Range("1:1") 
      Set Rng = .Find(apriori, .Cells(.Cells.Count), xlValues, xlWhole, xlByRows, _ 
          xlNext, False) 
      yolk = yolk - 1 
      'e = 1 
      If Not Rng Is Nothing Then 
       Application.Goto Rng, True 
       ActiveCell.Offset(26, 0).Copy Worksheets("EXTRACTIONS").Range("B2").Offset(, e).Paste 
       e = e + 1 

      Else 
       MsgBox "Nothing found" 
      End If 
     End With 
    End If 


    Next apriori 


End Sub 

값을 찾아 apriori라는 변수에 넣어하기로하고 Offset 26 행 아래로된다.

그러나 이유는 매크로가 모르겠다 아니 결과 시트에 붙여 넣기 .... 어떤 아이디어가 이런 일이 무엇입니까? 당신은이 라인의 끝에 .Paste 필요가 없습니다

Answer 1

ActiveCell.Offset(26, 0).Copy Worksheets("EXTRACTIONS").Range("B2").Offset(, e).Paste 

, 당신은 그것을 붙여 넣 할 수있는 대상을 공급하고 있습니다.