请高手帮我简化代码，谢谢了！

lbhlbh

高手们好，本人是个VBA菜鸟，基本是不懂的，附件中的代码是很有规律的，本人只能用最简单的判断语句，写得太复杂了，不会用其他的语法。请高手帮我优化我的的代码：

If [P1] = 1 And [Q1] = "收据一"Then [E7] = Sheet1.[U202]: [K7] = Sheet1.[V202] '当打印收据一给[E7]和[K7]赋值

If [P1] = 2 And [Q1] = "收据一"Then [E7] = Sheet1.[U203]: [K7] = Sheet1.[V203]

If [P1] = 3 And [Q1] = "收据一"Then [E7] = Sheet1.[U204]: [K7] = Sheet1.[V204]

If [P1] = 4 And [Q1] = "收据一"Then [E7] = Sheet1.[U205]: [K7] = Sheet1.[V205]

If [P1] = 5 And [Q1] = "收据一"Then [E7] = Sheet1.[U206]: [K7] = Sheet1.[V206]

If [P1] = 6 And [Q1] = "收据一"Then [E7] = Sheet1.[U207]: [K7] = Sheet1.[V207]

If [P1] = 7 And [Q1] = "收据一"Then [E7] = Sheet1.[U208]: [K7] = Sheet1.[V208]

If [P1] = 8 And [Q1] = "收据一"Then [E7] = Sheet1.[U209]: [K7] = Sheet1.[V209]

If [P1] = 9 And [Q1] = "收据一"Then [E7] = Sheet1.[U210]: [K7] = Sheet1.[V210]

If [P1] = 10 And [Q1] = "收据一"Then [E7] = Sheet1.[U211]: [K7] = Sheet1.[V211]

If [P1] = 11 And [Q1] = "收据一"Then [E7] = Sheet1.[U212]: [K7] = Sheet1.[V212]

If [P1] = 12 And [Q1] = "收据一"Then [E7] = Sheet1.[U213]: [K7] = Sheet1.[V213]

因为收费类型可能不止12种（如P1=12），有可能50（P1=50时）种左右，那我的代代码就更又长又臭了，所以请老师们帮我简化一下，万分感谢了！具体详见附件。