时间戳

首页 > 解决方案 > 此代码中是否存在任何语法错误？

excel - 此代码中是否存在任何语法错误？

问题描述

我的目标是从一个工作表（表 1）复制一些数据并将其粘贴（仅值）到另一个工作表（缺少编号 - 选定部分）。我已经编写了代码，但它显示错误 - “下标超出范围”。可能是我犯了任何语法错误，或者我可能缺少 VBA 的某些功能。请帮我。

我已经写了代码。如下所示。

Sub Check_123()
Dim i As Integer, j As Integer, i_max As Integer, j_max As Integer
i = 0
j = 0
i_max = 10 'Max value of i that can be entered
j_max = 31 'Range of columns - 6 Num to 36 Num
For i = 1 To i_max Step 1
    Worksheets("Missing Num - Selected Part").Range("C5").Value = Worksheets("Missing Num - Selected Part").Cells(i + 3, 5).Value   
        For j = 1 To j_max Step 1
            Worksheets("Missing Num - Selected Part").Cells(3 + i, 5 + j).Value = Worksheets("Sheet 1").Cells(38, 3 + j).Value
            'RHS is original strip from which data has to be extracted & LHS where data has to be entered
        Next j
Next i


End Sub

标签： excelvba

解决方案

Excel 单元格索引对于行和列都以1而不是开头。0例如，C2使用 访问单元格Cells(2,3)。因此，请确保您的i和j具有初始值1。

推荐阅读