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编辑过] |