位置偏移时候总是提示下标错误

拒绝笑脸2022

这是好心的网友提供的，学习过程中想吧答题卡更换位置，在sheet1和sheet2中更改代码时候出现下标错误。有哪位老师帮忙看看怎么就实现了偏移啊





答题卡生成1 (1).zip (26.19 KB, 下载次数: 3)

2022-12-7 06:57 上传

点击文件名下载附件

zxsea_7426

这段代码是我写，还是我改
我发现楼主代码抄错了啊。我运行还报错了。
重新修改加如下：


Sub new_Click()
    Dim rng As Range
    Set d = CreateObject("scripting.dictionary")
    ar = Sheet1.[a1].CurrentRegion.Resize(, 4)
    For i = 2 To UBound(ar)
        d(ar(i, 1)) = Array(ar(i, 3), ar(i, 4))
    Next i
    dou_col = WorksheetFunction.RoundUp(d.Count / 25, 0)       '一行标题+25题分栏
    ReDim arr(1 To 26, 1 To dou_col * 2)
    With Sheet3
        For j = 1 To UBound(arr, 2) Step 2
            arr(1, j) = "题号": arr(1, j + 1) = "答案"
        Next j
        n = 1
        col_ = 1
        For i = 1 To d.Count
            n = n + 1
            If n > 26 Then
                col_ = col_ + 1
                n = 2
            End If
            If d.exists(i) Then
                arr(n, 2 * (col_ - 1) + 1) = "第" & i & "题"
                arr(n, 2 * (col_ - 1) + 2) = d(i)(1)
                If d(i)(0) <> d(i)(1) Then
                    If rng Is Nothing Then
                        Set rng = .Cells(n + 5, 2 * (col_ + 4) + 2)
                    Else
                        Set rng = Union(rng, .Cells(n + 5, 2 * (col_ + 4) + 2))
                    End If
                End If
            End If
        Next
        '=================================输出位置更改下方三行修改为：下方三行:===========
'        Sheet3.[a1].Resize(UBound(arr), UBound(arr, 2)) = arr
'        Sheet3.[al].Resize(UBound(arr), UBound(arr, 2)).HorizontalAlignment = xlCenter
'        Sheet3.[a1].Resize(UBound(arr), UBound(arr, 2)).VerticalAlignment = xlCenter
        Sheet3.[k6].Resize(UBound(arr), UBound(arr, 2)) = arr
        Sheet3.[k6].Resize(UBound(arr), UBound(arr, 2)).HorizontalAlignment = xlCenter
        Sheet3.[k6].Resize(UBound(arr), UBound(arr, 2)).VerticalAlignment = xlCenter
        '===============================================================================
        If Not rng Is Nothing Then
            rng.Font.Color = vbRed: rng.Font.Bold = True
        End If
    End With
End Sub

拒绝笑脸2022

zxsea_7426 发表于 2022-12-7 07:25
这段代码是我写，还是我改
我发现楼主代码抄错了啊。我运行还报错了。
重新修改加如下：

辛苦你了老师，我就说我怎么偏移老出错啊