Excel 关于在行中循环代码的问题，无法开始工作

我有一个有两列的数字表，较低的数字在左边，较高的数字在右边。我需要一个代码，它穿过每一行，打印a列和B列之间的每个数字，包括起点和终点。打印完这些内容后，需要转到下一行并重复该过程

我试着在网上找，但找不到任何帮助

Sub Values_between_dates()
    Application.ScreenUpdating = False
    Dim rng As Range
    Dim row As Range
    Dim cell As Range

    Set rng = Range("z3:AA11")

    For Each row In rng.Rows
        For Each cell In row.Cells
            cell = numone
            Print numone.Range("AB3")
        Next cell

        cell = "numtwo"
        Range("AC3").Select
        Range("AC3") = numone
        numone = numone + 1

        Do While numone < Format(numtwo + 1, "00000000000")
            ActiveCell.Offset(1, 0).Range("A1").Select
            ActiveCell.Value = numone
            numone = Format(numone + 1, "00000000000")    
        Loop
    Next row
End Sub

日期之间的子值（） Application.ScreenUpdating=False 变暗rng As范围 暗行作为范围 暗淡单元格作为范围 设置rng=范围（“z3:AA11”） 对于rng.行中的每一行 对于行中的每个单元格。单元格 细胞=纽蒙尼 打印货币范围（“AB3”） 下一个细胞 cell=“numtwo” 范围（“AC3”）。选择 范围（“AC3”）=货币 努蒙=努蒙+1 当numone<格式（numtwo+1，“00000000000”）时执行 ActiveCell.Offset（1，0）.范围（“A1”）.选择 ActiveCell.Value=numone numone=格式（numone+1，“00000000000”） 环 下一排 端接头 您可以使用：

Option Explicit

Sub test()

    Dim StartPoint As Long, EndPoint As Long, LastRow As Long, i As Long
    Dim str As String

    With ThisWorkbook.Worksheets("Sheet1")

        'Find last row of column A
        LastRow = .Cells(.Rows.Count, "A").End(xlUp).Row

        'Loop from row 1 to lastrow
        For i = 1 To LastRow

            StartPoint = .Range("A" & i).Value
            EndPoint = .Range("B" & i).Value

            Do Until StartPoint = EndPoint + 1

                If str = "" Then
                    str = StartPoint
                Else
                    str = str & ", " & StartPoint
                End If

                StartPoint = StartPoint + 1

            Loop

            'Paste re results in Column C row i
            .Range("C" & i).Value = str

            'Clear str variable
            str = ""

        Next i

    End With

End Sub

结果:

---

您的代码有什么问题？你在哪里卡住了？有任何错误（如果有，是哪一个，在哪里）？您的代码是什么？您对代码的期望是什么？请在原始问题中添加所有这些信息。•你也可以从阅读中受益。