EXCEL高手请进,需要VBA编程,筛选重复数据并显示统计数量以及显示下一行...答:Range("a3:a100").ClearContents Set sh1 = Sheets("sheet1")x = sh1.[a65536].End(xlUp).Row n = 3 For i = 2 To x With sh1 If .Cells(i, 1) = [b1] Then Cells(n, 1) = .Cells(i, 1)Cells(n, 2) = .Cells(i, 2)Cells(n, 3) = .Cells(i, 3)Cells(n, 4...