VBA问题

rdwolf

请大佬看下是什么问题报错吗？一会儿运行OK。一会又报错了，没有搞明白  

ykcbf1100

就是个多表合并，新写一个吧。

楼主备注的都是拼音，看起来费劲，为啥不用中文呢。

ykcbf1100

新写一个吧，感觉没改的必要。

1. Sub ykcbf()   '//2024.11.15
   
2.     Set sh = ThisWorkbook.Sheets("数据")
   
3.     ReDim brr(1 To 10000, 1 To 100)
   
4.     For Each sht In Sheets
   
5.         If sht.Name <> sh.Name Then
   
6.             With sht
   
7.                 r = .Cells(Rows.Count, 1).End(3).Row
   
8.                 If r > 1 Then
   
9.                     arr = .[a1].Resize(r, 6)
   
10.                     For i = 2 To UBound(arr)
    
11.                         m = m + 1
    
12.                         For J = 1 To UBound(arr, 2)
    
13.                             brr(m, J) = arr(i, J)
    
14.                         Next
    
15.                     Next
    
16.                 End If
    
17.             End With
    
18.         End If
    
19.     Next
    
20.     With sh
    
21.         .UsedRange.Offset(1).ClearContents
    
22.         .[a2].Resize(m, 6) = brr
    
23.     End With
    
24.     MsgBox "OK！"
    
25. End Sub
    

复制代码

rdwolf

好的，谢谢

gwjkkkkk

请参考。。。

gwjkkkkk

请参考。。。

书呆子99

请问这个附件怎么上传？在哪里能截个图吗？