技术需求：一步跨工作表复制单元格内容、大行数TXT拆分列

嗨，针对你提出的两个数据处理需求，我整理了实用且高效的解决方案，都是实际工作中验证过的方法：

问题1：跨工作表一步复制指定多部分单元格内容 #

如果是偶尔操作，用Excel内置功能就能快速搞定；要是需要频繁重复这个操作，写个简单的VBA宏一键执行更省心：

方案A：手动快速操作（适合偶尔使用） #

• 按住Ctrl键，逐个选中所有需要复制的不连续单元格/单元格区域
• 按Ctrl+C复制内容
• 切换到目标工作表，选中要粘贴的起始单元格，按Ctrl+V完成粘贴
  • 小贴士：如果要保留源单元格的格式，右键选择「选择性粘贴」→「全部」就可以啦

方案B：VBA宏一键执行（适合频繁重复操作） #

1. 按Alt+F11打开VBA编辑器，右键左侧的工作簿名称→「插入」→「模块」
2. 粘贴以下代码，记得把代码里的「源工作表名称」「目标工作表名称」和复制区域改成你实际的内容：

Sub CopyMultiRangeToSheet()
    ' 定义源工作表和目标工作表
    Dim sourceSheet As Worksheet
    Dim targetSheet As Worksheet
    Set sourceSheet = ThisWorkbook.Sheets("源工作表名称") ' 替换成你的源表名
    Set targetSheet = ThisWorkbook.Sheets("目标工作表名称") ' 替换成你的目标表名
    
    ' 定义要复制的多部分区域（可以添加更多区域，用逗号分隔）
    Dim copyRanges As Variant
    copyRanges = Array(sourceSheet.Range("A1:A5"), sourceSheet.Range("C3:D7"), sourceSheet.Range("F2"))
    
    Dim i As Integer
    Dim targetStart As Range
    Set targetStart = targetSheet.Range("A1") ' 粘贴的起始位置
    
    ' 依次复制每个区域到目标表
    For i = LBound(copyRanges) To UBound(copyRanges)
        copyRanges(i).Copy targetStart
        ' 下移到下一个区域的起始行，避免内容重叠
        Set targetStart = targetStart.Offset(copyRanges(i).Rows.Count)
    Next i
End Sub

3. 保存后，你可以给这个宏添加工具栏按钮，以后一键就能完成复制操作啦

问题2：处理23500+行TXT文件，按规则拆分数据（---为列分隔符） #

从你给出的示例来看，核心拆分规则是：日期段拆分为「年---月---日」，后续字符串按固定长度用---分隔，空格开头的字符串保留空格后拆分。针对大体积文件，推荐用以下两种方法：

方案A：Excel Power Query处理（无需编程） #

1. 打开Excel，点击「数据」选项卡→「获取数据」→「从文件」→「从文本/CSV」，选中你的TXT文件
2. 在导入预览界面，选择「分隔符」→「空格」，点击「加载到」→「仅创建连接」
3. 打开Power Query编辑器：点击「数据」→「查询和连接」，右键刚才创建的连接→「编辑」
4. 添加自定义列处理每行数据：
   • 点击「添加列」→「自定义列」，输入以下公式（记得根据你的实际字符串长度调整拆分索引哦）：

     = let
         text = [Column1],
         splitBySpace = Text.Split(text, " "),
         processBlock = (block as text) as text =>
             if Text.StartsWith(block, {"20","19"}) and Text.Length(block)>=8 then
                 let
                     year = Text.Start(block,4),
                     month = Text.Middle(block,4,2),
                     day = Text.Middle(block,6,2),
                     rest = Text.Middle(block,8,Text.Length(block)-8),
                     # 这里的数字对应拆分位置：0-3(abcd),4-10(fhkjvda),11-16(fhkkjg),17-18(bv)
                     splitRest = List.Transform(
                         {0,4,11,17,19},
                         each if _ < Text.Length(rest) then Text.Middle(rest,_,if _=0 then 4 else if _=4 then7 else if _=11 then6 else2) else ""
                     ),
                     joinedRest = Text.Join("---", List.RemoveNulls(splitRest))
                 in Text.Join("---", {year,month,day,joinedRest})
             else if Text.StartsWith(block, " ") then
                 let
                     trimmed = Text.TrimStart(block),
                     part1 = Text.Start(trimmed,4),
                     part2 = Text.Middle(trimmed,4,Text.Length(trimmed)-4)
                 in "---" & part1 & "---" & part2
             else
                 # 这里的数字对应普通字符串的拆分位置：0-3(fjgm),4-9(hjlkjlk),10-15(mghjdf),16-18(dsh),19-22(kjlk),23-31(jlkjlkjas)
                 let
                     splitParts = List.Transform(
                         {0,4,10,16,19,23},
                         each if _ < Text.Length(block) then Text.Middle(block,_,if _=0 then4 else if _=4 then6 else if _=10 then6 else if _=16 then3 else if _=19 then4 else9) else ""
                     ),
                     joinedParts = Text.Join("---", List.RemoveNulls(splitParts))
                 in joinedParts
         in Text.Join(" ", List.Transform(splitBySpace, processBlock))
     

   • 点击「确定」后，就能看到处理后的内容
5. 点击「关闭并上载」，把结果导出到Excel，再另存为TXT文件即可

方案B：Python脚本处理（适合批量或复杂规则） #

如果Power Query的拆分规则不好调整，用Python写脚本更灵活，步骤如下：

1. 安装Python环境（官网下载即可）
2. 创建一个.py文件，粘贴以下代码，修改input_path和output_path为你的文件路径，同时调整splits里的数字匹配你的拆分长度：

def process_block(block):
    # 处理日期开头的块（比如20180214abcdfhkjvdafhkkjgbv）
    if block[:4].isdigit() and len(block) >= 8:
        year = block[:4]
        month = block[4:6]
        day = block[6:8]
        rest = block[8:]
        # 按示例拆分剩余字符串：4位、7位、6位、2位
        splits = [4, 7, 6, 2]
        split_rest = []
        start = 0
        for length in splits:
            if start + length <= len(rest):
                split_rest.append(rest[start:start+length])
                start += length
            else:
                if start < len(rest):
                    split_rest.append(rest[start:])
                break
        return f"{year}---{month}---{day}---{'---'.join(split_rest)}"
    # 处理空格开头的块（比如 trewfdgjklmbv）
    elif block.startswith(' '):
        trimmed = block.strip()
        if len(trimmed) >= 4:
            part1 = trimmed[:4]
            part2 = trimmed[4:]
            return f"---{part1}---{part2}"
        else:
            return block
    # 处理普通字符串块（比如fjgmhjlkjlkmghjdfdshkjlkjlkjlkjas）
    else:
        # 按示例拆分规则：4位、6位、6位、3位、4位、9位
        splits = [4, 6, 6, 3, 4, 9]
        split_parts = []
        start = 0
        for length in splits:
            if start + length <= len(block):
                split_parts.append(block[start:start+length])
                start += length
            else:
                if start < len(block):
                    split_parts.append(block[start:])
                break
        return '---'.join(split_parts)

# 替换成你的输入输出文件路径
input_path = "输入文件路径.txt"
output_path = "拆分后的文件路径.txt"

# 读取并处理文件
with open(input_path, 'r', encoding='utf-8') as f:
    lines = f.readlines()

processed_lines = []
for line in lines:
    line = line.strip()
    if not line:
        processed_lines.append('')
        continue
    blocks = line.split(' ')
    processed_blocks = [process_block(block) for block in blocks]
    processed_line = ' '.join(processed_blocks)
    processed_lines.append(processed_line)

# 写入结果
with open(output_path, 'w', encoding='utf-8') as f:
    f.write('\n'.join(processed_lines))

3. 运行脚本，就能得到拆分后的TXT文件啦

内容的提问来源于stack exchange，提问作者Accexcessel