_Global的VBA错误1004对象范围失败
我需要为一个学校项目做一个小的VBA申请。
我录制了一个调整所有单元格的macros，然后让它们变成绿色。 之后，我select特定的细胞，并重新着色成白色。 所以结果应该是Excel的标志。 但是，当我运行代码有一个错误1004范围对象_Global失败。
码：
Sub Resize() Columns("A:BZ").ColumnWidth = 2.71 Rows("1:1000").RowHeight = 15 Cells.Select With Selection.Interior .Pattern = xlSolid .PatternColorIndex = xlAutomatic .Color = 4485149 .TintAndShade = 0 .PatternTintAndShade = 0 End With Union(Range( _ "O14:P15,L7:T7,S5:T6,P6:Q6,E38:F47,G46:J47,G42:J43,G38:J39,N38:O39,O40:R41,R38:S39,P42:Q43,O44:R45,N46:O47,R46:S47,W38:X47,Y46:AB47,Y38:AB39,AF38:AK39,AF40:AG47,AH46:AK47,AH42:AK43,AO38:AP47,AQ46:AT47,R6,Y7:AP9,AN10:AP31,Y29:AM31,AF10:AF28,AG24:AM24,Y24:AE24" _ ), Range( _ "AG19:AM19,AG14:AM14,Y14:AE14,V4:X33,U5:U32,T12:T25,S14:S23,R16:R21,Q18:Q19,Q28:T32,M26:R27,N24:Q25,O22:P23,L28:P31,H28:K30,F9:G29,H8:J27,K12:K25,L14:L23,M16:M21,N18:N19,K8:T9,M10:R11,N12:Q13" _ )).Select Cells.Select With Selection.Interior .Pattern = xlSolid .PatternColorIndex = xlAutomatic .ThemeColor = xlThemeColorDark1 .TintAndShade = 0 .PatternTintAndShade = 0 End With End Sub 提供给Range的string必须小于256个字符，而你的第一个范围只有257个字符…所以只要把一些字符移到第二个范围
此外，你select所有的细胞，而不是想要的
看代码：
Option Explicit Sub Resize() With Range("A1:BZ1000") .ColumnWidth = 2.71 .RowHeight = 15 With .Interior .Pattern = xlSolid .PatternColorIndex = xlAutomatic .Color = 4485149 .TintAndShade = 0 .PatternTintAndShade = 0 End With End With With Union(Range( _ "O14:P15,L7:T7,S5:T6,P6:Q6,E38:F47,G46:J47,G42:J43,G38:J39,N38:O39,O40:R41,R38:S39,P42:Q43,O44:R45,N46:O47,R46:S47,W38:X47,Y46:AB47,Y38:AB39,AF38:AK39,AF40:AG47,AH46:AK47,AH42:AK43,AO38:AP47,AQ46:AT47,R6,Y7:AP9,AN10:AP31,Y29:AM31" _ ), Range( _ "AF10:AF28,AG24:AM24,Y24:AE24,AG19:AM19,AG14:AM14,Y14:AE14,V4:X33,U5:U32,T12:T25,S14:S23,R16:R21,Q18:Q19,Q28:T32,M26:R27,N24:Q25,O22:P23,L28:P31,H28:K30,F9:G29,H8:J27,K12:K25,L14:L23,M16:M21,N18:N19,K8:T9,M10:R11,N12:Q13" _ )).Interior .Pattern = xlSolid .PatternColorIndex = xlAutomatic .ThemeColor = xlThemeColorDark1 .TintAndShade = 0 .PatternTintAndShade = 0 End With End Sub