Question

请问老师下面的这段VBA代码是什么意思？

Dim i, j, LastRow, k, l
k = 0
LastRow = Cells(Rows.Count, 1).End(xlUp).Row
For i = 4 To LastRow
For j = i + 1 To LastRow
If Cells(i, 2) = Cells(j, 2) And Cells(i, 3) = Cells(j, 3) And Cells(i, 4) = Cells(j, 4) And Cells(i, 5) = Cells(j, 5) And Cells(i, 7) = Cells(j, 7) And Cells(i, 8) = Cells(j, 8) Then
k = k + Cells(j, 11) * Cells(j, 6)
Rows(j).Delete
j = j - 1

k = k + Cells(i, 11) * Cells(i, 6)
'Cells(i, 14) = k
Cells(i, 6) = k
Cells(i, 11) = 1
k = 0
End If
Next
LastRow = Cells(Rows.Count, 1).End(xlUp).Row

Next

For y = 4 To LastRow
Rows(y).Copy Sheets("导出数据").Rows(l)
l = l + 1
Next

Answer 1

一个区域里面，从第4号开始到最后一行，比较连续的2行一些对应的单元格是否相等。比如比较第4行和第5行，如果相等，就计算一个k值，k=单元格（5，11）*单元格（5，6），然后再把第5行删除。j的值就变成了4，然后计算k的值就等于，k=K+单元格（4，11）*单元格（4，6）然后把结果保存在单元格（4，6）。计算完所有的数据，再拷贝数据。
总之就是比较连续2行的数据是不是相等，相等就把后面那一行删掉，并且统计这2行的2个单元格的乘积和。全部做完以后，导出数据。

追问

我导入到另一个页面上怎么时空的？

追答

？

时空？

追问

导入到另一页中没有数据

追答

实在是太抽象

除非把表格给我看

追问

留个QQ号，我发给你帮我看看

追答

1421677926