- 帖子
- 1
- 主題
- 1
- 精華
- 0
- 積分
- 12
- 點名
- 0
- 作業系統
- WIN7
- 軟體版本
- 2010
- 閱讀權限
- 10
- 註冊時間
- 2016-8-31
- 最後登錄
- 2018-10-2
|
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)
|
發表於 2018-10-1 17:50
| 
