无法定义range，求大神

不知道为什么

武易文 发表于 2018-6-25 16:56
是打开工作簿和with吗

刚写了一段在审核中，一会你看看把。你是犯了低级错误。加油！

不知道为什么

武易文 发表于 2018-6-25 16:56
是打开工作簿和with吗

算了，不等审核了。
先帮你解读下这句：
r = .UsedRange.Rows.Count - 1
加入同样的语句 你在你写成  maxr = .UsedRange.Rows.Count - 1 这句代码就不会报错！
为什么，你先 dim 了 r 为 range  是个对象。但是 这句  .UsedRange.Rows.Count - 1 是数值！
所以所以，你该明白错哪了不？建议：set r=.usedrange : mr=r.rows.count  这样来写。

jiminyanyan

这个审核，弄得我发帖都心情不好。。。。

武易文

不知道为什么 发表于 2018-6-25 16:59
请不要痛苦，进步就在这样痛苦中起来的
譬如你的代码
  r = .UsedRange.Rows.Count - 1

r我确实定义的是数值啊，是c和e，只要把代码里的前两个dim放进去，也就是c和edim'成range的话，就会出现错误呀，但是，我要是不dim也没事，系统可能认为他是variant，不过variant就不能使用range.row之类的语句了好似

武易文

zhjlgaojuan 发表于 2018-6-25 17:00
1004是什么错误啊....错误截图顺便放上来撒

1004是“应用程序定义或对象定义错误”，有点郁闷

武易文

jiminyanyan 发表于 2018-6-25 20:41
这个审核，弄得我发帖都心情不好。。。。

我也有点醉

zhougangs

在c=和e=之前加上set就行了吧
Private Sub lianxi()
    Workbooks.Open ("D:\原始数据")
    With Workbooks("原始数据").Worksheets("Sheet1")
        Dim e As Range
        Dim c As Range
        Dim r As Integer
        Dim b As Integer
        Dim d As Integer
        r = .UsedRange.Rows.Count - 1
        b = .UsedRange.Columns.Count
        set c = .Columns("A")
        d = WorksheetFunction.Match("Precip", c, 0)
        set e = .Range(.Cells(d, 2), .Cells(r, b))
    End With
end sub