非常简单的一段代码WPS的vba可以运行，EXCEL却不行问题在哪呢。。求教

wz79945696

Sub 三行一组数据()
    Dim m As Long
    Dim n As Long
    Dim i As Long
    m = Worksheets("Sheet1").Cells(Rows.Count, 1).End(xlUp).Row
    n = 1

    For i = 1 To m / 3 Step 1
        Worksheets("Sheet2").Cells(i, "A") = Worksheets("Sheet1").Cells(n, "A")
        Worksheets("Sheet2").Cells(i, "B") = Worksheets("Sheet1").Cells(n + 1, "A")
        Worksheets("Sheet2").Range(Cells(i, "C"), Cells(i, "L")).Value = Worksheets("Sheet1").Range(Cells(n + 2, "A"), Cells(n + 2, "J")).Value
        n = n + 3
        If (3 * i >= m) Then Exit For
    Next i

End Sub

报错就是蓝色这段

3190496160

Sub 三行一组数据()
Dim m As Long
Dim n As Long
Dim i As Long
Set sh = Sheets("Sheet1")
m = sh.Cells(Rows.Count, 1).End(xlUp).Row
n = 1
For i = 1 To m / 3 Step 1
    With Sheets("Sheet2")
        .Cells(i, "A") = sh.Cells(n, "A")
        .Cells(i, "B") = sh.Cells(n + 1, "A")
        .Range(.Cells(i, "C"), .Cells(i, "L")).Value = sh.Range(sh.Cells(n + 2, "A"), sh.Cells(n + 2, "J")).Value
        n = n + 3
        If (3 * i >= m) Then Exit For
   End With
Next i
End Sub

3190496160

3190496160

基础不牢，地动山摇，代码不顾严谨，

zjzyj

Worksheets("Sheet2").Cells(i, "C").resize(1,10).Value =Worksheets("Sheet1").Cells(n + 2, "A").resize(1,10).Value

wz79945696

3190496160 发表于 2023-3-11 08:06

感谢，确实基础不牢，不够严谨

wz79945696

zjzyj 发表于 2023-3-11 08:17
Worksheets("Sheet2").Cells(i, "C").resize(1,10).Value =Worksheets("Sheet1").Cells(n + 2, "A").resize ...

这也是一种方案，之前还觉得我直接range就好了。。。