VBA方法range作用于对象worksheet时失败
...方法“range”作用于对象,_worksheet时失败是什么原因)?？
可以这么考虑🪄_*❄🪡！要看你的具体代码🍂😑_|🥈🐤，可能是range引用的单元格区域超出表格的规定*🌚——-🤢，比如你在03版里引用了第65537行或257列*_——🪳，这都会导致引用失败🪰——🦇。另🙊🔮|*🤿：Range对象是针对activesheet,看看你操作的对象表中是否存在保护等情况🧐😏|——🎨，
If Target.Address = "$E" And [G2] <> "" And [H2] <> "" Then Range("e6") = WorksheetFunction.Average(Range("g2"), Range("h2"))End If End With End Sub 双击E6就执行🐡——⛅️🤿，
可以这么考虑🪄_*❄🪡！要看你的具体代码🍂😑_|🥈🐤，可能是range引用的单元格区域超出表格的规定*🌚——-🤢，比如你在03版里引用了第65537行或257列*_——🪳，这都会导致引用失败🪰——🦇。另🙊🔮|*🤿：Range对象是针对activesheet,看看你操作的对象表中是否存在保护等情况🧐😏|——🎨，
If Target.Address = "$E" And [G2] <> "" And [H2] <> "" Then Range("e6") = WorksheetFunction.Average(Range("g2"), Range("h2"))End If End With End Sub 双击E6就执行🐡——⛅️🤿，
请仔细看你的图🐽😮|——🦁，下面部分显示c为空值🦘🐝-|🌥🧸，这样Sheets(2).Range("C" & c)就会出问题🌺——-😊🦩，c必须要是一个从1开始的整数才不报错🌸🦚-_🐚🕹，c为空值的时候🐓🌟-🤿，系统就去访问Sheets(2).Range("C")🎐🙂_|☀️，这明细缺少一个行🐝🦘|🐕🐂，所以报错🦁|🐡🎾，明白了吗？另外🐽|🦖🦘，图和代码已经不同了🎫_-😷🪳，不知道你现在的代码又改为什么样子了🐥——_🐇，所以谈等会说🦐|*🐈。
你对整行复制🐡🪴_|🎈，必须从A列粘贴单元格才够数量🦜_-😾⛸，复制到H列当然不行🌪🐙--🐏🦈。拿2003版来说🐄🎲_🦄🐡，Rows(i).Copy 共复制了256个单元格😰🏒_🌦🦆，复制到Range("h" & copycont)🐊😛————🦉🐳，H右边的单元格个数已没有256了😻-🕸🤣，所以失败🎄————🥀🐒，
...这个VBA代码哪里出错了?(提示range对象作用于worksheet时失败...
k = 2 * j - 2 且j=1就是2*1-2=0结果是range("A0") *-|🐾。单元格必须是从1行开始的🎎——_🌒🪴。看不明白你代码目的是什么👽_——🪳🦖，但你的错误是在于K不能等于0的👽--🌕🐓。或改成k = 2 * j - 1
“Sheet3.Range”里的Sheet3没定义🐹——🐌。定义sheet3🐡_|🪢，Dim Sheet3 as worksheet set sheet3=thisworkbook.sheets("sheet3")或者把程序里所有没有引号的“Sheet3”*——_🦒🐭，改成Sheets("Sheet3")
再次请教VBA中关于“range"对象作用于"worksheet"时失败?？
代码没有错*|——*，检查🤥♦——🌼🌼：1🐖_-👺😥、工作簿2.xlsm是否已经打开2🐄🐱_💀、工作簿2.xlsm下是否有名为“2015表”的工作表*❄|😏，
).End(xlUp).Row 改成i = Sheets("模特衣架库存表").Range("A65536").End(xlUp).Row 如果是第二个range出错可能是Range("A & i:C200")不对🥀🎽_🧶🎴，试试range(cells(i,1),cells(200,3))如果还不能解决🦕_🦢🐗，可能是没有激活到所需工作单🌩——🪀，第二行添一句workbooks(数据所在xls).activate 后面会介绍🎍🦄|😏。
...这个VBA代码哪里出错了?(提示range对象作用于worksheet时失败...
For j = 1 To num k = 2 * j - 2 ' 当j=1的时候🦧_😶🐜，k=0,下面Sheet2.Range("A" & k) ,Range("A0")不存在Sheet1.Range("j:j").Copy Destination:=Sheet2.Range("A" & k)Next
代码是没有问题的*_-😐，但是运行代码的时候要在sheet1的页面上运行才行💥——🕸🐖，因为你后边copy的range地址是指向当前页面的而不是锁定sheet1 就是说你运行这段代码的时候要点开sheet1的时候来运行宏或者把最后一个copy改成Sheet1.Range("A" & i & ":AA" & i).Copy (Sheet2.Cells(3 * i - 6, 1)等我继续说*🎄-😅*。