请高手利用ExcelVBA产生这样的数据第一组数据：在A2-A151产生从1-150编号第二组数据：在B2-B150将上述1-150个数分成2组（第一组共100人，用A表示，第二组50人用B表示），第三组数据：在C2-C151产

Question

请高手利用Excel VBA产生这样的数据
第一组数据：在A2-A151产生从1-150编号
第二组数据：在B2-B150将上述1-150个数分成2组（第一组共100人，用A表示，第二组50人用B表示），
第三组数据：在C2-C151产生第三组数据：将A组100个病人分成甲乙丙丁小组，其中甲占30%，乙占40%，丙占20%，丁占10%，将B组也分成甲乙丙丁小组，其中甲占10%，乙占20%，丙占40%，丁占30%，甲乙丙丁是随机分配给每个病人的。
第四组数据：要D2-D151产生150个年龄数字。要求：所有150个人年龄范围18-75，其中18-40占30%，40-60占50%，60-75占20%。
第五组数据：给每个病人产生一个生存数字，要求：A组范围6-70，其中6-12占30%，12-24占30%，24-36占20%,36-48占10%，48-70占10%。B组范围6-72，且B组均值要比A组大6-12，6-12占20%，12-24占30%，24-36占30%,36-48占10%，48-70占10%。数据显示在E列。
第六组数据：根据第五组数字在F列产生第六组数据，要求：如果A组中，数值位于6-24内时，50%赋值X，50%赋值Y，如果位于24-48时，30%赋值X，70%赋值Y，如果超过48，则10%赋值X，90%赋值Y。在B组中，数值位于6-24内时，40%赋值X，60%赋值Y，如果位于24-48时，20%赋值X，80%赋值Y，如果超过48，则5%赋值X，95%赋值Y。
一定要用VBA编程。请高手帮忙了。急急急！！！！
第一列要自动填充1-150号。
第二列对第一列数字进行分组，表示采用A方法治疗和B方法治疗。
第三列是疗效，分甲乙丙丁四个等级，A组疗效甲占30%，乙占40%，丙占20%，丁占10%，同样对于B组。
第四列是病人的年龄，是随机产生的，但要控制比例。
第五列是生存时间，A组范围6-70，其中6-12占30%，12-24占30%，24-36占20%,36-48占10%，48-70占10%。B组范围6-72，且B组均值要比A组大6-12，6-12占20%，12-24占30%，24-36占30%,36-48占10%，48-70占10%。数据显示在E列。也是随机产生，但要控制比例。
第六组是生存结果，只有X和Y，代表死亡和存活。也就是说，如果A组中，存活了6-24个月的这部分病人，死亡（X）率占50%，如果存活了24-36个月的病人中，死亡率为30%。

Answer 1

福建老乡，你这样问，根本就没有人理解呀