VBA ColumnWidth在相邻列中不起作用

Question

我正在尝试使用以下代码确定一系列的成对的列：

Columns(7 + 2 * x - 1).Select
Selection.ColumnWidth = 7

Columns(7 + 2 * x).Select
Selection.ColumnWidth = 14

其中x是一个变量，允许我在成对的列之间移动

但是两列最终都以宽度14结尾。

有什么建议吗？

Answer 1

首先：无需使用Select，请阅读https://stackoverflow.com/a/10717999/7599798`。这样写就足够了

Columns(7 + 2 * x - 1).ColumnWidth = 7

第二：您指的是ActiveSheet（具有焦点的工作表）。您确定要这个吗？链接的答案还说明了这一点的详细信息。