VBA脚本求助：循环复制转置Sheet1区域值到Sheet2指定列

嘿，作为VBA新手能想到用循环实现需求已经很棒啦！不过你的代码里有几个关键问题需要修正，包括语法错误、低效的选择操作，还有粘贴位置的逻辑问题。下面是修正后的代码，以及详细的解释：

修正后的完整代码 #

Sub Run()
    Dim i As Long
    Dim sourceRange As Range
    Dim targetStartCell As Range
    
    ' 提前定义好源区域和目标起始单元格，避免重复引用
    Set sourceRange = ThisWorkbook.Sheets("Sheet1").Range("C1:P1")
    Set targetStartCell = ThisWorkbook.Sheets("Sheet2").Range("H2")
    
    ' 关闭屏幕刷新，大幅提升循环运行速度
    Application.ScreenUpdating = False
    
    ' 循环2500次：从0开始计数更方便计算偏移量
    For i = 0 To 2499
        ' 计算当前循环的目标粘贴起始位置
        ' 因为C1:P1是14个单元格，转置后会占14行，所以每次往下偏移14*i行
        Dim targetCell As Range
        Set targetCell = targetStartCell.Offset(i * 14, 0)
        
        ' 直接复制+转置粘贴，完全不用Select/Selection（这是VBA的最佳实践）
        sourceRange.Copy
        targetCell.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, Transpose:=True
    Next i
    
    ' 清理剪贴板，恢复屏幕刷新
    Application.CutCopyMode = False
    Application.ScreenUpdating = True
    
    MsgBox "操作完成！", vbInformation
End Sub

关键修正点说明 #

• 干掉低效的Select/Selection：直接引用Range对象不仅运行速度更快，还能避免因工作表切换、弹窗干扰导致的错误，这是VBA开发的核心好习惯。
• 修正拼写错误：你代码里的x1PasteFormulas和x1Non是拼写错误，应该是xlPasteFormulas和xlNone（注意是小写字母L，不是数字1）。
• 加上转置参数：在PasteSpecial里必须加上Transpose:=True，这才是实现“行转列”的关键，原代码漏掉了这个核心参数。
• 优化循环逻辑：循环从0到2499（刚好2500次），每次偏移i*14行（因为C1到P1一共14个单元格，转置后会占14行），确保每次粘贴的位置不会重叠。
• 性能优化：加上Application.ScreenUpdating = False，避免循环过程中频繁刷新屏幕，能让你的代码运行速度提升好几倍，最后记得恢复这个设置。

额外的需求适配提示 #

如果你的真实需求是把C1:P1转置后的值重复填充到Sheet2的H2:H2500区域（而不是循环2500次粘贴14行的内容），那可以不用写循环，直接一次性填充，效率更高：

Sub FillTransposedRange()
    Dim sourceRange As Range
    Dim targetRange As Range
    
    Set sourceRange = ThisWorkbook.Sheets("Sheet1").Range("C1:P1")
    Set targetRange = ThisWorkbook.Sheets("Sheet2").Range("H2:H2500")
    
    ' 先把源区域转置粘贴到目标区域的前14行，再用FillDown填充整个范围
    sourceRange.Copy
    targetRange.Resize(14).PasteSpecial Paste:=xlPasteFormulas, Transpose:=True
    targetRange.FillDown
    
    Application.CutCopyMode = False
    MsgBox "填充完成！", vbInformation
End Sub

你可以根据自己的实际需求选择对应的代码哦~

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