If Target.Address = "$E$6" And [G2] <> "" And [H2] <> "" Then Range("e6") = WorksheetFunction.Average(Range("g2"), Range("h2"))End If End With End Sub 双击E6就执行
If Cells(i, 5) = Cells(i + 1, 5) Then Sheet1.Range(Cells(i, 3), Cells(i, 5)).Copy 把这句改成 下面的试试 If Cells(i, 5) = Cells(i + 1, 5) Then Sheet1.Range(Sheet1.Cells(i, 3), Sheet1.Cells(i, 5)).Copy ...
“Sheet3.Range”里的Sheet3没定义。定义sheet3，Dim Sheet3 as worksheet set sheet3=thisworkbook.sheets("sheet3")或者把程序里所有没有引号的“Sheet3”，改成 Sheets("Sheet3")
请仔细看你的图，下面部分显示c为空值，这样Sheets(2).Range("C" & c)就会出问题，c必须要是一个从1开始的整数才不报错，c为空值的时候，系统就去访问Sheets(2).Range("C")，这明细缺少一个行，所以报错，明白了吗？另外，图和代码已经不同了，不知道你现在的代码又改为什么样子了，所以谈...
在VBA(Visual Basic for Applications)中,遇到“方法Range作用于对象_global时失败”的错误通常意味着Range方法被错误地应用到了一个不支持该方法的对象上,或者在使用Range时没有正确地指定上下文(如在哪个工作表或工作簿中)。VBA中的Range对象主要用于操作Excel中的单元格区域,但它必须明确地与某个工作表相关联。 以...
代码没有错，检查：1、工作簿2.xlsm是否已经打开 2、工作簿2.xlsm下是否有名为“2015表”的工作表
可以这么考虑!要看你的具体代码，可能是range引用的单元格区域超出表格的规定，比如你在03版里引用了第65537行或257列，这都会导致引用失败。另：Range对象是针对activesheet,看看你操作的对象表中是否存在保护等情况
我要将同一工作簿里的三张工作表 sheets("1月")、sheets("2月")、sheets("3月")的数据复制到sheets("1季度"),当我复制一月的时候,要激活一月,以此类推,一旦把active语句去掉后立马就弹出“方法range作用于对象worksheet时失败”我想知道当我用上了active 分别依次激活1、2、3月份复制到1季度,1季度一直没处...
方法Reage 作用于对象work sheet时失败Sub 测试() Dim rg As Range Dim rg1 As Range Dim rngs As Range Dim a As Long Dim ws As Worksheet Dim ws1 As Worksheet Dim kd As Range Dim i As Long Set ws = ThisWorkbook.Sheets("提取") Set ws1 = ThisWorkbook.Sheets("数据源") Set rg = ws...
代码是没有问题的，但是运行代码的时候要在sheet1的页面上运行才行，因为你后边copy的range地址是指向当前页面的而不是锁定sheet1 就是说你运行这段代码的时候要点开sheet1的时候来运行宏 或者把最后一个copy改成 Sheet1.Range("A" & i & ":AA" & i).Copy (Sheet2.Cells(3 * i - 6, 1)...