VBA-使用具有范围的单元格进行复制和粘贴

Question

I am beginner in VBA and am finding it hard to understand what is wrong with my below statement. To give a context of what I am trying to do, I have a source sheet (oldViewsWbk) whose cells I want to copy into my final workbook (finalViewsWbk) and then do some logic over these copied cells.

ActiveSheet.Range(Cells(2, 2), Cells(246, 2)).Value = oldViewsWbk.Sheets(1).Range(Cells(2, 2), Cells(246, 2)).Value

My ActiveSheet is my final workbook. For now I have hard-coded the row and column numbers, but they will be replaced by variables once I can get this working.

I know I can use Copy and PasteSpecial to get this done, but I am wondering why this particular statement keeps throwing the error '1004': Object defined or Application defined error . Maybe I cant do this way at all, but I would like to know whats the reason behind it.

Many Thanks!

Answer 1

Because you don't reference the sheet when calling Cells, the activesheet is implied. It works on the left side of the equation, because both the range and the cells are on the same sheet (ActiveSheet)

ActiveSheet.Range(Cells(2, 2), Cells(246, 2)).Value

but not on the right side, because the sheet is oldViewsWbk.Sheets(1) while the cells are on the activeSheet

oldViewsWbk.Sheets(1).Range(Cells(2, 2), Cells(246, 2)).Value

To address that, use

ActiveSheet.Range(ActiveSheet.Cells(2, 2), ActiveSheet.Cells(246, 2)).Value = oldViewsWbk.Sheets(1).Range(oldViewsWbk.Sheets(1).Cells(2, 2), oldViewsWbk.Sheets(1).Cells(246, 2)).Value

Answer 2

Cells refers to the active sheet. .Cells refers to the sheet you've referenced.

dim rng as Range
With oldViewswbk.Sheets(1)
    Set rng = .Range(.Cells(2,2),.Cells(246,2))
Wend

ActiveSheet.Range(Cells(2,2),Cells(246,2)).Value = rng.Value

Answer 3

为避免此类问题，请使用：

ActiveSheet.Range("B2:B246").Value = oldViewsWbk.Sheets(1).Range("B2:B246").Value

Answer 4

its all on how you start the code off, for example,

Sub Button1_Click()
    Dim wb As Workbook
    Dim bk As Workbook
    Dim ws As Worksheet
    Dim sh As Worksheet
    Dim WSrng As Range
    Dim shRng As Range

    Set wb = Workbooks("Book3 1.xlsx")
    Set bk = Workbooks("Book3 2.xlsx")

    Set ws = wb.Sheets("Sheet1")
    Set sh = bk.Sheets("Sheet1")

    Set WSrng = ws.Range("A1:A10")
    Set shRng = sh.Range("A1:A10")

    WSrng.Value = shRng.Value


End Sub