Board logo

標題: vba 此處需要物件 (錯誤 424) 求解 [打印本頁]

作者: mickeygo    時間: 2018-10-1 17:50     標題: 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
作者: Hsieh    時間: 2018-10-2 09:09

回復 1# mickeygo


    brr = 工作表1.[a1].CurrentRegion
作者: faye59    時間: 2018-10-4 22:01

回復 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迴圈的屬性關係,



問題解決記得回覆告知,是一種禮貌也是種態度。




歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)