返回列表 上一主題 發帖

vba 此處需要物件 (錯誤 424) 求解

vba 此處需要物件 (錯誤 424) 求解

該如何修改程式碼呢
程式碼如下所示
十分感謝
在偵錯錯誤中 跑到第三行就會 跳出 錯誤424 ><

Sub test()
ReDim arr(1 To 10000, 1 To 4)
brr = Sheet1.[a1].CurrentRegion
For i = 2 To UBound(brr)
If Len(brr(i, 5)) Then
For s = 1 To brr(i, 5)
n = n + 1
For j = 1 To UBound(brr, 2) - 1
arr(n, j) = brr(i, j)
Next j
Next s
End If
Next i
Sheet2.[a1].CurrentRegion.Offset(1).ClearContents
Sheet2.[a2].Resize(n, 4) = arr
End Sub

活頁簿28-1.zip (17.77 KB)

回復 1# mickeygo


    brr = 工作表1.[a1].CurrentRegion
學海無涯_不恥下問

TOP

回復 1# mickeygo


    邏輯問題,
ReDim arr(1 To 10000, 1 To 4)
brr = Sheet1.[a1].CurrentRegion
For i = 2 To UBound(brr)

2樓超版已經告訴你錯在這,
brr = 工作表1.[a1].CurrentRegion
你計算的值應該有小於2的
如果UBound(brr)=1
那個For i = 2 To 1?
請問2怎麼到1?
For迴圈只能遞增,遞減就出錯。
再去網路上查一下For迴圈的屬性關係,



問題解決記得回覆告知,是一種禮貌也是種態度。
一分努力,一分收穫。
發問題前可以先搜索內文是否有相關範例。

TOP

        靜思自在 : 要批評別人時,先想想自己是否完美無缺。
返回列表 上一主題