应用程序定义或对象定义错误1004（已经解决）

530534614

这段代码运行时提示“应用程序定义或对象定义错误1004”，可否帮我看看，谢谢各位大神


Sub zongtouzi()

Dim hs_gcf, hs_qtf, i, j, k, l As Variant


Sheets("工程费用估算").Select
hs_gcf = Application.WorksheetFunction.CountIf(Range("F4:F30"), ">0") '工程费用的行数

Sheets("总投资估算表-概算法").Select
For i = 1 To hs_gcf
     For j = 1 To 5
      Cells(4 + i, j).FormulaR1C1 = "=工程费用估算！R[-1]C"
    Next j
Next i


  Sheets("总投资估算表-概算法").Select


For k = 3 To 30

   If Sheets("其他费用").Cells(k, 3) > 0 Then
       Cells(k + hs_gcf + 5, 3) = "=Sheets(""其他费用"").Cells(" & Trim(k) & ", 3)"   
    End If

Next

End Sub

abc123281

建议上传附件来查看问题

abc123281

也许是下面的问题
Cells(k + hs_gcf + 5, 3) =         没有指定 工作表的名称  

530534614

abc123281 发表于 2018-8-31 21:12
也许是下面的问题
Cells(k + hs_gcf + 5, 3) =         没有指定 工作表的名称

附件上传了，您帮我看一下吧，谢谢

abc123281

代码猜测着写的  不知是否是你要的效果


例子abc123.rar (26.62 KB, 下载次数: 3)

2018-9-1 00:02 上传

点击文件名下载附件

530534614

abc123281 发表于 2018-9-1 00:02
代码猜测着写的  不知是否是你要的效果

不是一样的，我想让单元格里显示链接公式的，不过后来我想明白了,改成类似这样就行了，，       Cells(k + hs_gcf + 5, 3) = "=其他费用C" & Trim(k) ，初学，只会写简单的代码，谢谢帮助