VBA选定区域太多，导致定义错误，怎么办？

wuyunxz

Sheets("sheets1").Range("B4:D5,E4:H5,J5:L5,N4:O5,P4,P5,Q5,R5,S4:S5,A7:A8,B7:B8,D7:Q7,B9:S9,B2:E2,G2:H2,K2:N2,P2,R2:S2,E11:F12,G11:H12,J12:L12,N11:O12,P11,P12,Q12,R12,S11:S12,A14:A15,B14:B15,D14:Q14,B16:S16,B18:D19,E18:H19,J19:L19,N18:O19,P18,P19,Q19,R19,S18:S19,A21:A22,B21:B22,D21:Q21,B23:S23,B25:D26,E25:H26,J26:L26,N25:O26,P25,P26,Q26,R26,S25:S26,A28:A29,B28:B29,D28:Q28,B30:S30,B32:D33,E32:H33,J33:L33,N32:O33,P32,P33,Q33,R33,S32:S33,A35:A36,B35:B36,D35:Q35,B37:S37,B39:D40,E39:H40,J40:L40,N39:O40,P39,P40,Q40,R40,S39:S40,A42:A43,B42:B43,D42:Q42,B44:S44,B46:D47,E46:H47,J47:L47,N46:O47,P46,P47,Q47,R47,S46:S47,A49:A50,B49:B50,D49:Q49,B51:S51,B53:D54,E53:H54,J54:L54,N53:O54,P53,P54,Q54,R54,S53:S54,A56:A57,B56:B57,D56:Q56,B58:S58,B60:D61,E60:H61,J61:L61,N60:O61,P60,P61,Q61,R61,S60:S61,A63:A64,B63:B64,D63:Q63,B65:S65,B67:D68,E67:H68,J68:L68,N67:O68,P67,P68,Q68,R68,S67:S68,A70:A71,B70:B71,D70:Q70,B72:S72,B74:D75,E74:H75,J75:L75,N74:O75,P74,P75,Q75,R75,S74:S75,A77:A78,B77:B78,D77:Q77,B79:O79").Select


这个选定的区域太多，代码太长。导致出错，怎么解决呢？

怎样编程才能选定上面的区域，又不发生错误？