vba编辑多条Mysql程序_用VBA 比较Excel多行数据，请高手优化程序

一个工作簿中有Sheet1和Sheet2两张工作表。要求：Sheet1中从第五行开始，分别与前第4、3、2、1行同列位置比较，若数据值相同，则把该数据放在Sheet2中，并在该行12列算出相同个数；每...

一个工作簿中有Sheet1 和Sheet2两张工作表。

要求：Sheet1中从第五行开始，分别与前第4、3、2、1行同列位置比较，若数据值相同，则把该数据放在Sheet2中，并在该行12列算出相同个数；每四行为一组，每组间有一空行，直至最后一行。代码如下：

Sub 数据比较()

Dim i As Integer

Dim j As Integer

Dim k As Integer

Dim n As Integer

For i = 5 To ActiveSheet.UsedRange.Rows.Count

For k = 4 To 1 Step -1

For j = 1 To ActiveSheet.UsedRange.Columns.Count

If Cells(i, j) = "" Then

ElseIf Cells(i, j) = Cells(i - k, j) Then

n = n + 1

Sheet2.Cells((i - 4) * 5 - k, n) = Cells(i, j)

Sheet2.Cells((i - 4) * 5 - k, 12) = n

End If

Next j

n = 0

Next k

Sheet2.Cells(