如何确定在Excel VBA中复制时是否存在隐藏列

Question

正如标题所解释的那样,我有一个Excel 2003工作簿,我在VBA中将一个工作表的一些列复制到另一个工作表.我不知道,有人在源表上隐藏了几列,它搞砸了我如何处理目标表中的单元格.

我怎样才能在程序上确定:

1. 如果有隐藏的列
2. 哪些列隐藏？

谢谢!JFV

Answer 1

对于a Range,请检查Range.Hidden酒店.

MSDN的以下代码段是如何隐藏/取消隐藏行/列的一个很好的示例:

 Worksheets("Sheet1").Columns("C").Hidden = True

您还可以使用If语句测试该值:

 For ColCounter = 1 To 10
      If Columns("C").Hidden = True Then
           Columns("C").Hidden = False
      End If
 Next