复制并粘贴多个单元格错误450

我正试图复制多个单元格到一个新的工作表基于特定的条件。

但是我得到一个错误说：

“错误的论点或无效的财产分配”

Sub sort() Set ws = ThisWorkbook.Sheets(Array("3rd and 4th Floor Columns", "3rd Floor Beams", "Test1", "Test2")) For k = 12 To 360 With ws(1) i = 1 j = 1 Select Case ws(1).Cells(k, 9).Value Case 26 ws(1).Range(.Cells(k, 9), .Cells(k, 12)).Copy ws(3).Range(.Cells(i, 1), .Cells(i, 4)).PasteSpecial xlPasteValues Application.CutCopyMode = False i = i + 1 Case 57 ws(1).Range(.Cells(k, 9), .Cells(k, 12)).Copy ws(4).Range(.Cells(j, 1), .Cells(j, 4)).PasteSpecial xlPasteValues 'Application defined.. error Application.CutCopyMode = False j = j + 1 Case Else End Select End With Next k End Sub 

Answer 1

你只需要input左上angular的单元格和右下angular的单元格来定义一个范围 ，所以你的代码如下所示：

 For k = 12 To 360 With ws(1) i = 1 j = 1 Select Case .Cells(k, 9).Value Case 26 ws(1).Range(.Cells(k, 9), .Cells(k, 12)).Copy ws(3).Range(ws(3).Cells(i, 1)).PasteSpecial Paste:=xlPasteValues Application.CutCopyMode = False i = i + 1 Case 57 ws(1).Range(.Cells(k, 9), .Cells(k, 12)).Copy ws(4).Range(ws(4).Cells(j, 1)).PasteSpecial Paste:=xlPasteValues Application.CutCopyMode = False j = j + 1 Case Else End Select End With