对象变量或者with变量未设置,求解

钟漂

Application.ScreenUpdating = False
drr = Array("表头", "发货时间", "单据编码", "店铺类型", "订单类型", "店铺名称", "平台单号", "商品名称", "数量", "让利后金额", "成本总价", "物流费用", "订单编码", "订单标识", "物流公司", "物流单号")
nn = Application.GetOpenFilename("Excel 文件 ,*.xls*;*.xlsx*;*.csv*")
Set wb = GetObject(nn)
't = wb.Sheets(1).Cells(Rows.Count, 5).End(xlUp).Row
arr = wb.Sheets(1).Range("a1:cq" & Cells(Rows.Count, 5).End(xlUp).Row)
With wb
For i = 1 To UBound(arr)
    n = n + 1
    For b = 1 To UBound(drr)
        Rng = wb.Sheets(1).Rows(1).Find(drr(b), lookat:=xlWhole).Column
            ReDim Preserve brr(1 To 15, 1 To n)
            brr(b, n) = arr(1, Rng)

        If arr(i, 15) Like "快速发货" Then
'           k = k + 1
            ReDim Preserve crr(1 To 15, 1 To k)
            crr(b, k) = arr(1, Rng.Column)
        End If

    Next
Next
End With
Application.ScreenUpdating = True
End Sub

哪位大神帮忙看一下,这是错在哪里了?

smiletwo

  set rng=……

钟漂

smiletwo 发表于 2022-3-27 04:28
set rng=……

这步有什么含义吗

今铭昔

不加Set，假设右边是单元格A1，其值是10，那么此时的rng的值就是10，是一个基本数据类型的变量，如果之后使用rng.value，肯定会报错的，大白话来讲，其实是10.value

加上Set后，表示右边单元格的地址赋值给左边，此时的rng就是A1（引用了A1单元格，是个引用数据类型），之后rng.value，就不会报错，因为是A1.value，读取A1单元格的值。

所以，Set的意思是表示之后跟着的变量是一个对象，可以使用它的方法和属性。

Learner2022

今铭昔 发表于 2022-4-11 18:55
不加Set，假设右边是单元格A1，其值是10，那么此时的rng的值就是10，是一个基本数据类型的变量，如果之后使 ...

学到了 之前只是一直知道如果不是直接赋值的都需要用set 现在你这么一说我就全明白了