如何 运行 一个代码遍历 excel 内的每一列（包含信息）？

Question

我正在处理一份文档，我需要从数百列中独立删除重复值。我的数据从 H 列开始。我知道我可以使用

Range("H1:H100").RemoveDuplicates Columns:=1, Header:=xlYes

在该列上执行此操作，但是有没有一种方法可以从 H 开始，然后 运行 在包含数据的每一列上编写该代码？

我对这个问题进行了广泛的搜索，但未能找到成功实现我所寻找的功能的代码

Answer 1

这很基础，像这样应该可以解决问题：

For Each Rng In ReplaceRng.Columns(1).Cells
    InputRng.replace what:=Rng.Value, replacement:=Rng.Offset(0, 1).Value, Lookat:=xlPart
Next

Answer 2

使用以下代码，变量 c 从 8 开始，因为您说过您的代码需要 运行 来自列 H - 您可以将其更改为套装.

Option Explicit
Sub RemoveDuplicates()
Dim c As Long, LastCol as Long
LastCol = Cells(1, Columns.Count).End(xlToLeft).Column

For c = 8 To LastCol
    If Cells(Rows.Count, c).End(xlUp).Row <> 1 Then
        Cells(1, c).EntireColumn.RemoveDuplicates Columns:=Array(1), Header:=xlYes
    End If
Next

End Sub