请老师帮我把未到校名册用公式分村到后面工作表中

365413473

请老师帮我把未到校名册用公式分村到后面工作表中。

sugar9783869

排序不行么？

365413473

sugar9783869 发表于 2014-9-18 11:31
排序不行么？

行，筛选也行，只是想把它公式化，以后好操作

lisai66111

Sub 练习()
Dim i, j, k As Integer
Dim n As Integer
n = 4
For i = 4 To [a65536].End(xlUp).Row
If Worksheets("sheet6").Cells(i, 1) <> "" Then
For k = 1 To 8
Worksheets("sheet7").Cells(n, k) = Worksheets("sheet6").Cells(i, k)
Next
n = n + 1

End If
For j = i + 1 To [a65536].End(xlUp).Row
If Range("a" & i) = Range("a" & j) And Range("a" & j) <> "" Then
For k = 1 To 8
Worksheets("sheet7").Cells(n, k) = Worksheets("sheet6").Cells(j, k)
Next
Range("a" & j) = ""
n = n + 1
End If
Next
Next
End Sub

365413473

能发个模板吗？

365413473

lisai66111 发表于 2014-12-11 23:43
Sub 练习()
Dim i, j, k As Integer
Dim n As Integer

编程不会呀

ggsmart

365413473 发表于 2016-9-19 17:52
编程不会呀

论坛搜索一下，条件筛选公式