[求助]VBA数组第二示例的代码问题（已解决）

箫风

VBA数组第二示例，我用数组方法已经解决了，想用单元格循环的方法对比一下，可下面这段代码有什么问题？请高人指点迷津！

Sub text1()
Dim n, a, b, c As Long
With Sheets("sheet1")
For n = 2 To .Range("a65536").End(xlUp).Row
Select Case .Cells(n, 1)
    Case Is = "北京"
    a = a + 1
    Sheets("北京").Range(Cells(a + 1, 1), Cells(a + 1, 4)) = .Range(Cells(n, 2), Cells(n, 5)).Value
    Case Is = "上海"
    b = b + 1
    Sheets("上海").Range(Cells(b + 1, 1), Cells(b + 1, 4)) = .Range(Cells(n, 2), Cells(n, 5)).Value
    Case Is = "南京"
    c = c + 1
    Sheets("南京").Range(Cells(c + 1, 1), Cells(c + 1, 4)) = .Range(Cells(n, 2), Cells(n, 5)).Value
  End Select
Next n
End With
End Sub

2楼说的

a = a + 1
    Sheets("北京").Range(Cells(a + 1, 1), Cells(a + 1, 4)) = .Range(Cells(n, 2), Cells(n, 5)).Value

 上边加1了下边还加1?
上边加1是计数，而下边加1是取行数。

 看了兰版的提示，恍然大悟，正确的代码在5楼。

[此贴子已经被作者于2008-1-11 9:34:46编辑过]

hong4777

 

[em04][em04][em04]

[此贴子已经被作者于2008-1-11 13:09:21编辑过]

hhzjxss

7段高手！[em17]

youke333

哈哈，和我出的问题一模一样，嘻嘻……[em01]

箫风

问题解决了，代码如下：

Sub text1()
Dim n, a, b, c As Long
t = Timer
With Sheets("sheet1")
For n = 2 To .Range("a65536").End(xlUp).Row
Select Case .Cells(n, 1)
    Case Is = "北京"
    a = a + 1
    Sheets("北京").Range(Sheets("北京").Cells(a + 1, 1), Sheets("北京").Cells(a + 1, 4)) = .Range(.Cells(n, 2), .Cells(n, 5)).Value
    Case Is = "上海"
    b = b + 1
    Sheets("上海").Range(Sheets("上海").Cells(b + 1, 1), Sheets("上海").Cells(b + 1, 4)) = .Range(.Cells(n, 2), .Cells(n, 5)).Value
    Case Is = "南京"
    c = c + 1
    Sheets("南京").Range(Sheets("南京").Cells(c + 1, 1), Sheets("南京").Cells(c + 1, 4)) = .Range(.Cells(n, 2), .Cells(n, 5)).Value
  End Select
Next n
End With
MsgBox Timer - t
End Sub