尽管使用 EntireRow.Hidden=False，行在 .RemoveDuplicates 之后仍被隐藏

Question

我想使用 VBA 从表（“Datan”）中删除重复项。

使用下面的代码时，整个表格会被隐藏。

Sub RemoveDuplicates()
Dim rng As Range

    Set rng = ThisWorkbook.Sheets("1. Einfügen aller Touren").ListObjects("Daten").DataBodyRange
    rng.RemoveDuplicates Columns:=6, Header:=xlYes
    
Worksheets("1. Einfügen aller Touren").Rows.EntireRow.Hidden = False

End Sub

即使使用 .Rows.EntireRow.Hidden = False 它仍然隐藏

使用

Worksheets("1. Einfügen aller Touren").Rows.EntireRow.Hidden = False

但是在不同的模块中取消隐藏行。

Answer 1

您面临的问题似乎是，当您使用 VBA 从“Datan”表中删除重复项时，整个表将被隐藏，并且您希望在删除重复项后取消隐藏行。您遇到的问题可能与 Excel 如何处理表中行的可见性有关。

您可以尝试以下 VBA 代码来删除重复项并取消隐藏表中的行：

Sub RemoveDuplicatesAndUnhide()
Dim ws As Worksheet
Dim tbl As ListObject
Dim rng As Range

' Set the worksheet and table references
Set ws = ThisWorkbook.Sheets("1. Einfügen aller Touren")
Set tbl = ws.ListObjects("Daten")

' Set the range within the table's data body
Set rng = tbl.DataBodyRange

' Remove duplicates
rng.RemoveDuplicates Columns:=6, Header:=xlYes

' Unhide all rows within the table
tbl.DataBodyRange.Rows.Hidden = False

结束子