我使用Union创建一个range对象,将一些非连续的范围组合在一起.然后,我把它传递给一个试图设置这些非连续范围的边界的潜艇。Excel抛出"Object不支持此属性或方法“的错误消息。我认为代码应该在一个范围内工作。因此,问题是当涉及到多个范围时,应该使用哪些代码?
..............
For record_num = 1 To Total_Record_Num - 1 Step 1
Set rng3 = Union(rng3, .Range("A" & record_num * Rows_Per_Record + 1 & ":C" & record_num * Rows_Per_Record + 2))
Next record_num
...........
set_border1 rng3
..............
End Sub
.......another sub ....
Sub set_border1(rng As Range)
With ThisWorkbook.Sheets("Sheet1").rng '<= problematic code发布于 2020-10-11 10:06:17
工作表没有rng方法。您可以省略ThisWorkbook.Sheets("Sheet1"),因为rng已经限定为工作表。
和rng
https://stackoverflow.com/questions/64302326
复制相似问题