用VBA粘貼同一行但不同列的複製數據

通過我先前提出的問題，新的主題誕生了。現在，我有幾個複製的單元格，我想將它們轉換爲初始文件（例如宏所在的ThisWorkbook）。用VBA粘貼同一行但不同列的複製數據

我試過的是保持塊運算符「FOR」的同一行，將光標移回少數列並粘貼到那裏。但是出現了一個錯誤。當我使用統計方式「範圍（」C10「）」，但每次程序必須有不同的單元格粘貼在那裏。那麼，我該如何應對呢？

預先感謝您！

Option Explicit 

Sub FileFinder() 
' Excel variables: 
Dim wbResults, oWB As Workbook 
Dim Sht As Worksheet 
Dim RngS As Range 
Dim sDir As String 
Dim LastRow, i, Col As Long 
'Optimizing CPU speed 
Application.ScreenUpdating = False 
Application.EnableEvents = False 
Application.Calculation = xlCalculationManual 
' set the worksheet object 
Col = 25 
Set Sht = Worksheets("Accounts source data") 
With Sht 
    ' find last row with data in Column "Y" (Col = 25) 
    LastRow = .Cells(.Rows.Count, 25).End(xlUp).Row 
    For i = 3 To LastRow 
     If .Cells(i, Col) = "In Scope" Then 
      ' Set the range directly, no need to use `Select` and `Selection` 
      Set RngS = .Cells(i, Col).Offset(, -22) 
      ' Search, in same directory where the file is located, the file with that account (file comes with account number as name) 
      sDir = Dir$(ThisWorkbook.Path & "\" & RngS.Value & ".xlsx", vbNormal) 
      Set oWB = Workbooks.Open(ThisWorkbook.Path & "\" & sDir) 
      oWB.Worksheets("Report").Range("B27:B30").Copy 

      'My error appears here: Run-time Error 424: Object required 
      'If I replace "Cells(i, Col).Offset(, -11)" from below with "Range("C10")" the code works perfectly. But this is not the desired result 
      wbResults.Worksheets("Accounts source data").Cells(i, Col).Offset(, -11).PasteSpecial Paste:=xlPasteAll, Transpose:=True 
      oWB.Close SaveChanges:=False 

      ' clear objects 
      Set RngS = Nothing 
      Set oWB = Nothing 
     End If 

    Next i 
End With 
'End optimizing CPU speed 
Application.Calculation = xlCalculationAutomatic 
Application.EnableEvents = True 
Application.ScreenUpdating = True 
End Sub

來源

2017-08-10 VSE

您需要特別使用'Dim wbResults As Workbook'，因爲'Dim wbResults，oWB As Workbook'意味着'wbResults'是'Variant'。你也從來沒有'設置wbResults = ThisWorkbook'。 –

只是一個快速修復。試試這樣：

ThisWorkbook.Worksheets("Accounts source data").Cells(i, Col).Offset(, -11).PasteSpecial Paste:=xlPasteAll, Transpose:=True

如果它的工作原理，然後嘗試設置wbResults到ThisWorkbook，如在評論中提到。

您需要設置wbResults到指定的工作簿，如評論propsed。 Set wbResults = ThisWorkbook是一種可行的方法。此外，在VBADim a,b,c as Long設置的最後一個值爲Long另外兩個設置爲Variant。

來源

2017-08-10 09:39:42 Vityata

用VBA粘貼同一行但不同列的複製數據

回答

相關問題