从数组中删除行

本文介绍了从数组中删除行的处理方法，对大家解决问题具有一定的参考价值，需要的朋友们下面随着小编来一起学习吧！ 问题描述

我正在尝试遍历数组以在该数组的单列中查找重复的条目并删除整行.

I am trying to go through an array to find duplicate entries in a single column of that array and delete the entire row.

我正在弄清楚上方的 rangeStart ， rangeEnd 和 lastrow ，并且该部分工作正常.

I am getting figuring out rangeStart, rangeEnd, and lastrow above this and that part is working fine.

data = Range(rangeStart, rangeEnd) For i = lastrow - 1 To 2 Step -1 If data(i - 1, x) = data(i, x) Then 'Delete data(i) End If Next

任何帮助都会很棒！

推荐答案

Sub RemoveDups() Const COMPARE_COL as Long = 1 Dim a, aNew(), nr As Long, nc As Long Dim r As Long, c As Long, rNew As Long Dim v As String, tmp a = Selection.Value nr = UBound(a, 1) nc = UBound(a, 2) ReDim aNew(1 To nr, 1 To nc) rNew = 0 v = Chr(0) For r = 1 To nr tmp = a(r, COMPARE_COL) If tmp <> v Then rNew = rNew + 1 For c = 1 To nc aNew(rNew, c) = a(r, c) Next c v = tmp End If Next r Selection.Value = aNew End Sub