摘要:
Sub 设置表格行距为最小值_WPS兼容() ' 适用于 WPS 和 Microsoft Word 的表格行距宏 ' 在WPS中,使用数值 4 代替 Word 的 wdLineSpacingAtLeast Dim tbl As Object ' 使用 Object 增强兼容性 Dim rngPara 阅读全文
摘要:
首先插入模块,复制以下宏粘贴进去,切换回表格中,选中你需要删除单元格内空行的单元格,最后切回宏,模块内按下F5运行即可 Sub RemoveEmptyLinesInSelectedCells() ' 声明变量 Dim cell As Range Dim originalText As String 阅读全文