4.7.7批量对数据分类

Jessegao

4.7.7批量对数据分类中，代码

Sub FenLei()
    Dim i As Long, bj As String, rng As Range
    i = 2
    bj = Cells(i, "C").Value
    Do While bj <> ""
        Set rng = Worksheets(bj).Range("A65536").End(xlUp).Offset(1, 0)
        Cells(i, "A").Resize(1, 7).Copy rng
        i = i + 1
        bj = Cells(i, "C").Value
    Loop
End Sub

为什么前面有一个bj = Cells(i, "C").Value

最后还有一个bj = Cells(i, "C").Value， 没看懂作用是什么

so21

两个bj引用是不一样的。第一个是引用（i,3)的值，下面是i+1，是引用（i+1,3)的值，且在不断+1,直到退出do 循环。

Jessegao

so21 发表于 2019-9-9 14:13
两个bj引用是不一样的。第一个是引用（i,3)的值，下面是i+1，是引用（i+1,3)的值，且在不断+1,直到退出do  ...

好的  明白了 非常感谢