删除重复项（多列和工作表）
- 使用
Option Explicit。 - 这
ActiveSheet.Range("A1" & LastRow)肯定是错误的。想一想。 - 你有资格
Range，Cells，Rows和Columns例如Current.Cells，Current.Rows.Count... - 你不必激活
Current。Current是ActiveSheet你的情况（因为你已激活它），因此无需使用ActiveSheet。 - 不要让
Excel我们定义范围：你要定义它。
有问题的代码
Option Explicit
Sub removeDupes()
' Here's a question:
' Why can't I use 'Cols' instead of the array written explicitly?
Dim Cols As Variant
Cols = Array(1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11)
Const FirstAddress As String = "A1"
Dim wb As Workbook
Set wb = ActiveWorkbook
Dim ws As Worksheet
Dim LastCell As Range
For Each ws In wb.Worksheets
Set LastCell = ws.Cells(ws.Rows.Count, "A").End(xlUp).Offset(, 10)
ws.Range(FirstAddress, LastCell).RemoveDuplicates _
Columns:=Array(1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11), Header:=xlYes
' This doesn't work.
'ws.Range(FirstAddress, LastCell).RemoveDuplicates _
Columns:=Cols, Header:=xlYes
Next
End Sub
非常感谢你。只是查看Option Explicit是什么，非常有用，它认为我确实也在我所引用的代码示例中看到了它。我明白了您指的是引用一个单元格然后是一行的意思。我一直使用当前的活动表来进行斩波和更改，我明白我的错误。而且我确实感到很奇怪，您必须为列使用显式数组。因此，从您的示例中我假设使用ws.Rows.Count将仅对其中包含数据的行进行计数？优秀的答复再次感谢，
因为
Excel 2007，ws.Rows.Count（Rows.Count在工作表）方式排1048576，所以它实际上是在列的最后一个单元格A：单元格A1048576。仅End（xlUp）会“跳转”到最后一个非空单元格。等效于按CRTL+UP。最后，Offset(, 10)或的Offset(0, 10)意思是在右边确定十列，以确定同一行中但在列中的单元格K，因此在下一行（ws.Range(FirstAddress, LastCell)...）中，我们可以定义完整范围：fromA1 to KwhateverRow。非常感谢！那完全清楚地解释了这些人在做什么。感谢您帮助像vba这样的完整初学者。@ VBasic2008