查询顾客多次购买的时间代码如下:
Sub 多次购买时间查询()
Dim b As Integer
For b = 5 To 988
Dim x As Integer
x = Application.CountIf(Sheet2.Range("C:C"), Sheet9.Cells(b, 3))
Set mrg = Sheet2.Cells(7, 3)
For y = 1 To x
Set mrg = Sheet2.Range("C:C").Find(Sheet9.Cells(b, 3).Value, mrg)
Dim t As Integer
t = 26 + y
Sheet9.Cells(b, t) = mrg.Offset(0, 11)
Next y
Next b
End Sub
谁帮我解释一下这段代码的意思:Set mrg = Sheet2.Range("C:C").Find(Sheet9.Cells(b, 3).Value, mrg)
Sub 多次购买时间查询()
Dim b As Integer
For b = 5 To 988
Dim x As Integer
x = Application.CountIf(Sheet2.Range("C:C"), Sheet9.Cells(b, 3))
Set mrg = Sheet2.Cells(7, 3)
For y = 1 To x
Set mrg = Sheet2.Range("C:C").Find(Sheet9.Cells(b, 3).Value, mrg)
Dim t As Integer
t = 26 + y
Sheet9.Cells(b, t) = mrg.Offset(0, 11)
Next y
Next b
End Sub
谁帮我解释一下这段代码的意思:Set mrg = Sheet2.Range("C:C").Find(Sheet9.Cells(b, 3).Value, mrg)