使用偏移量移动单元格引用时遇到问题

尝试从其他电子表格导入主电子表格中的数据时遇到了一些麻烦。我在打开16个电子表格，从每个电子表格中获取一块数据并将其粘贴到主电子表格中。然后，我正在寻找将我的单元格引用向下移动12行，然后重复。这是我遇到麻烦的最后一部分 - 我试图使用偏移量，但它似乎没有移动单元格。所发生的只是数据被第一个覆盖。 PasteStart实际上出现在第二循环使用偏移量移动单元格引用时遇到问题

Sub ImportData() 

Dim wb1 As Workbook 
Dim wb2 As Workbook 
Dim Sheet As Worksheet 
Dim PasteStart As Range 
Dim count As Integer 
Dim name As String 

Set wb1 = ActiveWorkbook 
Set PasteStart = [Sheet1!A1] 

PasteStart = Application.InputBox(prompt:="ENTER a Single Cell Address to paste data or leave it blank to exit", Type:=2) 

If PasteStart = "" Then 
    Exit Sub 
Else 

For count = 1 To 16 

    FileToOpen = Application.GetOpenFilename _ 
    (Title:="Please choose a Report to Parse", _ 
    FileFilter:="Report Files *.xlsx (*.xlsx),") 


     If FileToOpen = False Then 
      MsgBox "No File Specified.", vbExclamation, "ERROR" 
      Exit Sub 
     Else 
      Set wb2 = Workbooks.Open(Filename:=FileToOpen) 

      Sheets("JourneyPlanner").Select 

      PasteStart.Value = Application.InputBox(prompt:="Who's data are you inputting?", Type:=2) 


      ActiveSheet.Range("B132:B139").Copy 
      PasteStart.Offset(1, 0).PasteSpecial xlPasteValues 

      ActiveSheet.Range("C132:C139").Copy 
      PasteStart.Offset(1, 1).PasteSpecial xlPasteValues 

      ActiveSheet.Range("D132:D133").Copy 
      PasteStart.Offset(1, 2).PasteSpecial xlPasteValues 

      ActiveSheet.Range("E132:E133").Copy 
      PasteStart.Offset(1, 3).PasteSpecial xlPasteValues 
    End If 

    Row = Row + 12 
    PasteStart = PasteStart.Offset(12, 0) 
    wb2.Close 

Next count 

End If 

End Sub

任何想法空值？在此先感谢

来源

2014-06-05 Wired84

PasteStart = PasteStart.Offset(12,0)将设置值PasteStart等于PasteStart.Offset(12,0)的值。您需要使用Set关键字来指示您要将变量分配到新范围。

试试这个：Set PasteStart = PasteStart.Offset(12,0)

来源

2014-06-05 18:39:26 CodeJockey

使用偏移量移动单元格引用时遇到问题

回答

相关问题