VBA遍历名称含2021的工作表，无法将区域粘贴至Monthly表最后列末尾

1. 最后已用列定位逻辑完全反向（核心报错原因） #

原代码用于定位粘贴起始列的语句为：
LastRowM = Sheets("Monthly").Range("A1").End(xlToLeft).Address

• End(xlToLeft)的作用是从指定单元格出发，沿向左方向遍历连续空白单元格，直到遇到非空单元格或到达工作表左边界时停止。
• A1本身已经是工作表最左侧的单元格，向左无任何可遍历空间，因此该语句永远直接返回A1自身的地址$A$1，拆分得到的列字母固定为A，代码每次都会把内容粘贴到A列第2行的位置，完全无法根据Monthly表的实际数据向后移动定位位置。
• *正确的第一行最后已用列定位逻辑，需要从工作表最右侧的第一行单元格出发向左遍历，使用Cells(1, Columns.Count).End(xlToLeft)的写法，才能拿到真实的最后已用列位置。

2. 未做列偏移，追加操作会覆盖原有存量数据 #

即便修正了最后列的定位逻辑，原代码仍存在逻辑偏差：

• 代码拿到最后已用列的列标识后，直接将匹配工作表的选定区域粘贴到该列起始行位置，这会直接覆盖Monthly表最后一列已有的数据，无法实现“在最后一列后方的空位置追加粘贴”的预期。
• 正确逻辑需要在定位到最后已用列的列号后，执行列号+1的偏移，定位到最后已用列紧邻的空列作为粘贴起点。

3. 循环逻辑不符合预期，存在匹配漏判、提前中断问题 #

• 名称匹配规则偏差：原判断条件ws.Name Like "2021*"仅能匹配工作表名称以2021作为开头的表，和预期的“名称任意位置包含2021”的逻辑不符。如果存在名称为年度汇总2021、分表2021这类包含2021但不以2021开头的工作表，会被直接漏判。要实现全量包含匹配，需要将判断条件修改为ws.Name Like "*2021*"。
• 循环提前中断：代码在找到第一个名称匹配的工作表、完成一次粘贴后，立即执行Exit For退出循环。如果工作簿中存在多个符合名称规则的工作表，后续匹配的工作表完全不会被处理。

4. 变量使用不规范 #

• 代码预先定义了Monthly As Worksheet对象，但从未将其绑定到实际的Monthly工作表，全程通过字符串表名Sheets("Monthly")重复引用，不仅代码冗余，一旦Monthly工作表的名称发生修改，代码会直接触发运行错误。
• 存储列地址的变量被命名为LastRowM，变量语义和实际存储的列地址信息完全不匹配，容易造成后续维护的逻辑混淆。

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