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，請參閱問題評論以便輕松回答