可以的,我用的方法是识别上下边框(包括内部的上下边框),当识别到上边框时开始循环,识别到下边框时结束,将每一行做字符串拼接,然后输出到新的表格里面。我做的不很完善,新表有空行,需要手工删掉,然后再加上边框。
可以的,我用的方法是识别上下边框(包括内部的上下边框),当识别到上边框时开始循环,识别到下边框时结束,将每一行做字符串拼接,然后输出到新的表格里面。我做的不很完善,新表有空行,需要手工删掉,然后再加上边框。
If Cells(i, 1).Borders(xlEdgeTop).LineStyle = xlNone
当上边框存在
If Cells(i, 1).Borders(xlEdgeBottom).LineStyle = xlNone
当下边框存在