Excel VBA循环复制数值至新表为空问题求助

嘿，作为VBA新手碰到这种问题太正常啦！我来帮你捋捋为啥会出现空块，以及怎么修复：

问题根源分析 #

你当前的代码依赖Select和Selection操作，这是VBA里非常容易踩的坑——如果代码执行时，激活的工作表不是你要复制数据的那个表，Range(Cells(42, 1), Cells(86, 20)).Select选中的就是空范围，复制出来自然是空的。另外还要确认变量a在循环里是不是正确递增了，如果a没变化，每次粘贴的位置重复，也可能看起来像是空块（或者覆盖了之前的内容）。

改进后的代码（去掉Select，更可靠） #

直接抛弃Select操作，明确指定源工作表和目标工作表，这样不管当前激活哪个表，代码都能精准找到数据：

Sub CopyValuesToOutput()
    ' 定义工作表变量，根据你的实际表名修改"Source"
    Dim sourceSheet As Worksheet
    Dim outputSheet As Worksheet
    Dim a As Integer
    Dim b As Integer
    
    ' 绑定工作表，确保不会找错表
    Set sourceSheet = ThisWorkbook.Worksheets("Source") ' 替换成你的数据所在表名
    Set outputSheet = ThisWorkbook.Worksheets("output")
    
    ' 这里假设你要循环20次（对应你说的20个块），根据实际需求调整循环范围
    For a = 0 To 19
        b = 1 + 35 * a
        ' 直接将源区域的值赋值给目标区域，比Copy/PasteSpecial更高效且稳定
        outputSheet.Range(outputSheet.Cells(b, 1), outputSheet.Cells(b + 32, 20)).Value = _
            sourceSheet.Range(sourceSheet.Cells(42, 1), sourceSheet.Cells(86, 20)).Value
    Next a
End Sub

关键注意点 #

• 确认源表名称：把代码里的"Source"改成你实际存放数据的工作表名称，比如"Sheet1"。
• 检查变量a的循环逻辑：确保a在循环里是从0开始递增的（比如For a = 0 To 19），这样b的取值才会是1、36、71...依次往下，每个块间隔35行。
• 验证源数据范围：手动检查sourceSheet.Range(Cells(42,1), Cells(86,20))这个区域确实有数值，避免源数据本身就是空的。

这种直接赋值的方式不仅避开了Select的坑，运行速度也比复制粘贴快很多哦！

内容的提问来源于stack exchange，提问作者Joseph Yang Shihao