在清单排版时出现的问题，因为有众多单元格已经超出409磅行高限制，需要合并单元格才能突破限制，故而制作了该代码，该代码作用域为选定区域，优先先自适应行高，当达到最大磅数时则合并单元格突破限制。但因为excel底层太过老旧，无法判断单元格内容是否超出，只能手动调整。。。。将就用吧Sub 突破行高限制合并单元格() Dim ws As Worksheet Set ws = ActiveSheet ' 当前工作表 ' 获取当前选中的所有单元格 Dim sel As Range Set sel = Selection If sel Is Nothing Then Exit Sub ' 将选区内单元格设置为自动换行（WrapText），使Excel自动换行并调整行高​:contentReference[oaicite:9]{index=9} sel.WrapText = True ' 收集选中单元格所在的所有不重复行号 Dim dict As Object Set d
该代码不是我写的，只是原代码是作用于手动填写的一整列，在存在合并单元格标题的处理时容易出错，我修改为了作用于选中区域。主要用于处理某一列存在合并单元格，但分页后，下一页合并单元格被拦腰斩断的问题，该代码会将被跨页的单元格进行分割，重新填入内容。
将清单中选中单元格英文符号全部替换为中文（不含.）
处理清单中存在的手动设置超链接报错问题
狗剩