Sheet.Range(Sheet,Cells(x,y), Sheet.Cells(x2,y2)) 语法

Question

我想通过 .Cells(x,y) 语法将多个单元格添加到名为“ValueRange”的范围中，如下所示：

Dim ws As Worksheet
Dim j As long
Dim Valuerange As Range

j = 6 'rowNumber 6
Set ws = ThisWorkbook.Worksheets("My Worksheet1")
Set Valuerange = ws.Range(ws.Cells(j, 3), ws.Cells(j, 5), ws.Cells(j, 7), ws.Cells(j, 9))

并且我想在更改 j (rowNumber) 之后通过相同的格式来 Select 这个范围

ws.Range(ws.Cells(j, 3), ws.Cells(j, 5), ws.Cells(j, 7), ws.Cells(j, 9)).Select

但我总是收到此语法“错误编号 Arguments 或无效属性分配”的错误

任何人都可以帮忙吗？ 干杯

Answer 1

通过使用 Union-Statement 而不是 Range-Object，请参阅问题评论以便轻松回答