隐藏不在CSV字符串中的所有列

Question

我有一个逗号分隔的字母串，对应于我希望可见的列。应隐藏所有其他列。

sub showOnly()
  Dim displayColumns As String
  Dim displayRange As Range

  displayColumns = "B,C,G,A,C"
  'convert displayColumns to displayRange

  cells.EntireColumn.Hidden = True
  displayRange.Hidden = False
end sub

边缘情况：字符串可能有重复项，可能不是连续范围

Answer 1

你可以尝试这种方法：

my_field

p.s：重复或非连续或不连续的列没有问题。