Удаление более 20 столбцов в excel vba

Question

Я написал макрос для выполнения нескольких действий и в конце концов хочу удалить более 20 столбцов.
Я использовал оператор ниже, чтобы выполнить его, но он дает мне ошибку времени выполнения. Похоже, что существует ограничение на количество столбцов, которые вы можете удалить за раз.

Я записал макрос, чтобы удалить все приведенные ниже столбцы, и кажется, что excel разбивает оператор диапазона на несколько, но когда я его использую, он, похоже, не работает. PLS, дайте мне знать, что это самый простой способ удалить столько столбцов. спасибо

Range("A:A,C:C,D:D,E:E,F:F,J:J,L:L,M:M,O:O,Q:Q,R:R,T:T,U:U,V:V,W:W,X:X,Z:Z,AA:AA,AB:AB,AC:AC,AD:AD,AE:AE,AG:AG,AI:AI,AK:AK,AL:AL,AN:AN,AO:AO,AP:AP,AQ:AQ,AR:AR,AT:AT,AU:AU, AV: AV , AW: AW , AX: AX , AY: AY , AZ: AZ , BA: BA , BB: BB , BC: BC , BD: BD , BE: BE , BF: BF , BG: BG , BH: BH, BI:  BI , BJ: BJ , BK: BK , BM: BM , BN: BN , BP: BP , BQ: BQ , BR: BR , BS: BS , BU: BU , BV: BV , BW: BW , BX: BX , BY: BY , CA: CA, CB:  CB , CC: CC , CE: CE ").Select 
Range("CE1").Activate 
Selection.Delete Shift:=xlToLeft 

Answer 1

Адресная строка, передаваемая в свойство диапазона, не может превышать 255 символов. Вы можете сократить ваши, потому что некоторые из столбцов смежны - используйте T: X, а не T: T, U: U, V: V, W: W, X: X. Если строка еще слишком длинная, вам нужно будет создать отдельные диапазоны и объединить их или выполнить удаление за пару шагов.

Answer 2

With Sheets(shtname) 
     .Columns(Range("A").Select).EntireColumn.Delete 
     .Columns(Range("C:F,J,L,M,O").Select).EntireColumn.Delete 
     .Columns(Range("Q:R, T:X").Select).EntireColumn.Delete 
     .Columns(Range("Z:AE,AI,AK:AL,AN:AR,AT:BK").EntireColumn.Delete 
' complete your range in the same way and you should be sorted 
End With 

Похоже, что это должно сработать для вашей цели, если нет, оставьте комментарий, разъясняющий ваш вопрос.