Excel VBA如何实现动态范围适配，完成多表批量复制粘贴与自动格式化

现有代码核心痛点 #

当前两段独立绑定按钮的代码存在流程割裂、范围硬编码的本质问题：

• 复制粘贴逻辑仅实现从「Auto」表命名区域到「Final」表的值拷贝，执行完成后没有留存每次粘贴内容的实际位置、尺寸信息
• 格式化逻辑全部绑定写死的静态单元格地址（如A1:E15、A3:E19），仅能匹配首个待展示表格的位置与尺寸，批量处理50个以上表格时，完全无法适配逐次粘贴的位置偏移、不同表格的实际大小差异，必须手动调整代码才能使用

核心改造方向 #

将“复制-粘贴-格式化”流程整合成闭环，用动态变量完全替代硬编码的单元格引用，彻底摆脱固定范围的限制，实现粘贴完成自动匹配对应表格尺寸套用格式的效果。

1. 锚定动态范围的改造基础 #

保留原有粘贴起始点的查找逻辑，补全动态范围的记录能力：

• 在CommandButton1的点击事件中，将「Final工作表A列最后非空单元格向下偏移2行」的位置定义为变量pasteStartCell，避免流程中位置信息丢失
• 完成值粘贴后，立即通过pasteStartCell.CurrentRegion抓取本次粘贴内容的实际占用范围，定义为对象变量currentTableRange，后续所有格式化操作全部基于这个动态对象执行，完全替换原来的静态单元格地址

2. 格式化逻辑的动态映射 #

把原来硬编码的所有格式规则，全部迁移到currentTableRange的引用上，保持原有格式效果完全不变：

• 列宽自适应：直接执行currentTableRange.Columns.AutoFit，不需要指定固定列号
• 单元格填充、合并单元格、对齐规则：基于currentTableRange的相对偏移计算目标子范围，比如原来针对表头行的合并设置，直接用currentTableRange.Resize(1, currentTableRange.Columns.Count).Offset(对应行偏移量)定位目标区域，不写死固定行号
• 细黑边框：直接对currentTableRange.Borders统一配置xlContinuous线型、xlThin粗细
• 货币格式：通过相对列偏移定位表格中的数值列位置，套用对应格式，不绑定固定列的单元格地址

3. 多表批量适配逻辑 #

• 每完成一次“粘贴+格式化”流程，自动记录currentTableRange的最末行位置，作为下一次粘贴的基准锚点，逐次向下偏移2行即可实现50个表格的连续无重叠排列
• 移除独立的CommandButton2触发逻辑，将格式化代码直接嵌入粘贴流程的后续步骤，实现单次点击按钮即可完成从复制到格式化的全流程操作
• 补充性能优化：批量处理前执行Application.ScreenUpdating = False关闭屏幕刷新，流程全部跑完后恢复刷新，避免批量操作时的界面卡顿

整套改造不需要调整原有格式的视觉标准，仅将静态单元格引用替换为动态范围匹配逻辑，最终输出效果可与参考示例图完全一致。

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