VBA：複製粘貼範圍從數組

我有一個數組，包含單元格位置形成一個搜索功能。我想要顯示數組中每個位置的結果以及來自列D：P的後續數據輸入。有沒有這樣做的有效方式？這是我有這麼遠，但它不是一個工作代碼，我寧願它，如果它只是選擇d：P列，而不是一整行VBA：複製粘貼範圍從數組

Dim i1 As Integer 
Dim Results1() As Variant 
Dim p1results As Range 
Dim NextRow as Long 

    For i1 = LBound(Results1) To UBound(Results1) 
     Set p1results = Results1(i1).Value 
     p1results.EntireRow.Copy 
     Sheets("SearchResult").Select 
     NextRow = Range("D65536").End(xlUp).Row + 1 
     Cells(NextRow, 1).Select 
     ActiveSheet.Paste 
    Next i1

來源

2011-06-24 Ren-How Harn

您將不得不告訴我們結果1的確切內容。範圍對象？帶位置地址的字符串？ –

結果1應包含位置地址 –

Dim i1 As Integer 
Dim Results1() As Variant 
Dim rngDest as Range 

Set rngDest = Sheets("SearchResult").Cells(rows.count,4).End(xlUp).Offset(1,-3) 

For i1 = LBound(Results1) To UBound(Results1) 
        
    Range(Results1(i1)).EntireRow.Copy rngDest 
    Set rngDest = rngDest.Offset(1,0) 
             
Next i1

來源

2011-06-24 15:18:39

的對列（d：P）嘗試：

Dim i1 As Integer 
Dim Results1() As Variant 

For i1 = LBound(Results1) To UBound(Results1) 
    Sheets("SearchResult").Cells(Rows.Count, "D").End(xlUp)(2).Resize(, 13).Value = _ 
    Range(Results1(i1)).Resize(, 13).Value 
Next i1

假設使用不需要格式，那麼它最好避免使用副本。複製使用緩慢的剪貼板。

來源

2011-06-25 00:19:47 Reafidy

VBA：複製粘貼範圍從數組

回答

相關問題