VBA - 如何取消隐藏列？

Question

更新：所以我发现了这个问题。当用户选择工作表上的链接时，宏将运行。我将链接设置为取消隐藏行宏。

我在使用VBA取消隐藏列时出现问题。我一直在使用这个链接作为尝试解决我的问题的基础，但它并不适合我。

Macro to Hide/Unhide Columns in Excel

这是我现在的代码：

Public Sub a_view_calc_columns()
     Dim calc as Worksheet
     Dim rng as Range

     Set calc = ThisWorkbook.Sheets("Calc")
     Set rng = calc.Range("A:T")

     rng.EntireColumn.Hidden = False

我也尝试过：

rng.Column.EntireColumn.Hidden = False

和

With Columns("A:T")
     If .EntireColumn.Hidden = True Then
          .EntireColumn.Hidden = False
     End If
End With

我正在使用Excel 2016。

我应该注意到A：T列中会有数据，我手动隐藏G＆amp;列。 H来测试代码。

Answer 1

这是一个简单的例子

dat[unique(dat[, list(groups)])[sample(.N, 3, replace = TRUE)], on = "groups"]
#    ids groups
# 1:   3      C
# 2:  10      C
# 3:  12      C
# 4:   6      A
# 5:  15      A
# 6:  18      A
# 7:   6      A
# 8:  15      A
# 9:  18      A