该代码主要用于拆分清单中不同县部门的部分，后来优化了一下，使其可以适用于不同表格，也算比较实用，不同于方方格子的拆分是，方方格子的拆分适用于单元格内内容固定，该脚本逻辑是“只要包含某个关键词就拆分入其中”，并且会将未拆分过的单独列出，方便检查。import tkinter as tk from tkinterdnd2 import DND_FILES, TkinterDnD from tkinter import messagebox, ttk import openpyxl from openpyxl import Workbook, load_workbook from openpyxl.utils import column_index_from_string, get_column_letter from copy import copy import os import threading import concurrent.futures import time # 定义拆分列号识别的关键词 KEYWORDS = ["县级指导部门", "上级
Sub 数字全部换为新罗马() Dim cell As Range Dim originalText As String Dim i As Long Dim char As String ' Loop through each selected cell For Each cell In Selection If Not IsEmpty(cell) Then originalText = cell.value If Len(originalText) > 0 Then ' Process each character in the cell For i = 1 To Len(originalText) char = Mid(originalText, i, 1) ' Check if the character is
使用前需对溯源序号进行超链接赋予操作。' 定义全局变量，记录第一次输入的工作表名称及筛选的列号 Private storedSheetName As String Private storedFilterColumn As Long ' 用户可在此处填写目标工作表名称 Private Function GetTargetSheetName() As String GetTargetSheetName = "1." ' 替换为实际工作表名称，例如 "Sheet1" 或 "基础版" End Function ' 用户可在此处填写筛选的列号 Private Function GetFilterColumn() As Long GetFilterColumn = 1 ' 替换为实际列号，例如 1 表示第一列 End Function Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink) Dim arr() As String
在清单排版时出现的问题，因为有众多单元格已经超出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
该代码不是我写的，只是原代码是作用于手动填写的一整列，在存在合并单元格标题的处理时容易出错，我修改为了作用于选中区域。主要用于处理某一列存在合并单元格，但分页后，下一页合并单元格被拦腰斩断的问题，该代码会将被跨页的单元格进行分割，重新填入内容。
狗剩