0

複数のことを行うマクロを作成し、最終的に 20 を超える列を削除したいと考えています。
以下のステートメントを使用して実行しましたが、実行時エラーが発生します。一度に削除できる列の数には制限があるようです。

以下のすべての列を削除するマクロを記録しましたが、Excel が範囲ステートメントを複数に分割しているようですが、使用すると機能しないようです。非常に多くの列を削除する最も簡単な方法を教えてください。ありがとう

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
4

2 に答える 2

2

range プロパティに渡すアドレス文字列は 255 文字を超えることはできません。一部の列が隣接しているため、列を短くすることができます。たとえば、T:T、U:U、V:V、W:W、X:X ではなく T:X を使用します。文字列がまだ長すぎる場合は、別の範囲を作成して結合するか、いくつかの手順で削除を実行する必要があります。

于 2013-06-04T22:17:36.673 に答える