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 (лист, который имеетфокус).Вы уверены, что хотите этого?Связанный ответ также объясняет детали для этого.