摘要：
问题来源：在编写002-004的过程中，突然想到现在学生已经开始分文理科了，导致班号并不是连着的，很多时候需要分别处理文、理科的数据，如果能事先把文科或理科的班号先提出来，然后根据班号来对应不同的程序，是不是效率会更高些？所以本次只解决一个问题：如何按列提取不重复值.但是现在寻找了好几种方法,不是看不懂(^_^),就是感觉太麻烦,其实主要是看不懂啊.现在想了一个笨办法,就是先把数据复制到一个新表中,然后把所有重复的行删掉,这样就可以只剩下所有不重复值了.接着就可以把这些不重复值引入到数组或列表中,按数值有针对性对原表(复制源)进行操作,比如提取指定班级的学生信息,打印指定班级的学生信息等等.先 阅读全文
摘要：
Sub 取消合并单元格并保留内容() Dim strmer As String '用于存储需要取消合并单元格的内容 Dim intcot As Integer '用于存储被合并单元格的个数 Dim i As Integer, j As Integer '用于循环计数 Dim totalR As Integer, totalC As Integer '用于统计行数 Dim myrange As Range Worksheets(1).Activate totalR = Range("B65536").End(xlUp).Row totalC = 阅读全文