我太懂这种想优化代码却卡在细节上的感觉了！你现在用的手动选中到最右的方法虽然能跑，但确实不够灵活，想用LastColumn来实现更规范的代码思路完全没问题，只是在Range引用的格式上踩了个小坑。

先看看你当前能正常工作的代码：

Range("B2:D2").Select
Application.CutCopyMode = False
Selection.Copy
Range("B2").Select
Range(Selection, Selection.End(xlToRight)).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=False

然后说说你尝试用LastColumn时出错的原因：你写的Range("B2:" & LastColumn &"2")是错误的单元格引用格式！因为LastColumn返回的是数字类型的列序号（比如第5列就是5），直接拼接后会变成类似Range("B2:52")的格式——Excel会把“52”当成行号，这显然不是你要的范围，自然会触发调试错误。

下面给你两种修正方案，都是合法的Range引用方式：

方案一：用Cells对象组合范围（推荐，更简洁直观） #

Cells的格式是Cells(行号, 列号)，直接用它来指定范围的起止，不需要转换列字母：

Dim LastColumn As Long
' 注意：这里要选对行！如果你是操作第2行的最后一列，就用Rows(2)，别用Rows(1)，避免表头和数据行的最后列不一致
LastColumn = ActiveSheet.Cells(2, ActiveSheet.Columns.Count).End(xlToLeft).Column

' 复制B2:D2的内容
Range("B2:D2").Copy
' 粘贴到从B2到第2行最后一列的范围（和你原来代码的效果一致）
Range(Cells(2, 2), Cells(2, LastColumn)).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False

' 记得取消剪切/复制模式，避免Excel一直显示虚线框
Application.CutCopyMode = False

方案二：把列序号转换成列字母再拼接 #

如果你习惯用列字母的格式来写Range，可以先把LastColumn转换成对应的字母（比如5→E），再拼接成合法的单元格地址：

Dim LastColumn As Long
Dim LastColLetter As String
LastColumn = ActiveSheet.Cells(2, ActiveSheet.Columns.Count).End(xlToLeft).Column
' 把列序号转换成列字母
LastColLetter = Split(ActiveSheet.Cells(1, LastColumn).Address, "$")(1)

' 复制并粘贴
Range("B2:D2").Copy
Range("B2:" & LastColLetter & "2").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False

Application.CutCopyMode = False

另外补充个小建议：VBA里尽量少用Select和Selection，直接操作Range对象会让代码运行更快、更稳定，上面的修正代码就去掉了不必要的选中操作哦～

备注：内容来源于stack exchange，提问作者CorlissExcelling