程序执行没结果，求指教（已解决）

yjm0809

下面这段程序，运行，未显示填列的数据，未找出错在哪，请指教，谢谢。详见附件

Sub ????????????????????()   '//???л???????????

  Application.ScreenUpdating = False: Application.DisplayAlerts = False  '//????????????
  t = Timer  '//?趨??????
  Dim arr, i&, brr, s$, d
  Set d = CreateObject("Scripting.Dictionary")
  Sheets("??????????").Activate
  arr = Sheets("??????????").[a1].CurrentRegion
     For i = 3 To UBound(arr)
       d(arr(i, 1)) = i
     Next
  brr = [a1].CurrentRegion
     For i = 8 To UBound(brr)
       s = Left(brr(i, 1), 4)
         If d.exists(s) Then
            Cells(i, 2) = arr(d(s), 3): Cells(i, 3) = arr(d(s), 4): Cells(i, 4) = arr(d(s), 5)
         End If
     Next
  ActiveWorkbook.Save
  Application.ScreenUpdating = True: Application.DisplayAlerts = True
  MsgBox "????????" & Format(Timer - t, "#0.0000") & " ??", , "???????????"      '//??????????
End Sub

liulang0808

brr = ActiveSheet.UsedRange修改后测试看看是否满足需求吧

lsc900707

brr = [a1].CurrentRegion这里有问题的。

lsc900707

1. Sub 填列项目()
   
2.      Application.ScreenUpdating = False: Application.DisplayAlerts = False  '//屏幕不闪动语句
   
3.      t = Timer  '//设定开始时间
   
4.      Dim arr, i&, brr, s$, d
   
5.      Set d = CreateObject("Scripting.Dictionary")
   
6.      arr = Sheets("会计编码对照表").[a1].CurrentRegion
   
7.      For i = 3 To UBound(arr)
   
8.          d(arr(i, 1)) = i
   
9.      Next
   
10.      brr = Range("a8:d" & Cells(Rows.Count, 1).End(3).Row)
    
11.      For i = 1 To UBound(brr)
    
12.          s = Left(brr(i, 1), 4)
    
13.          If d.exists(s) Then
    
14.              For j = 2 To 4
    
15.                  brr(i, j) = arr(d(s), (j + 1))
    
16.              Next
    
17.          End If
    
18.      Next
    
19.      Range("a8:d" & Cells(Rows.Count, 1).End(3).Row) = brr
    
20.      Application.ScreenUpdating = True: Application.DisplayAlerts = True
    
21.      MsgBox "一共用时：" & Format(Timer - t, "#0.0000") & " 秒", , "程序运行时间："      '//提示所用时间
    
22. End Sub
    

复制代码

yjm0809

lsc900707 发表于 2018-7-30 09:44

Range("a8:d" & Cells(Rows.Count, 1).End(3).Row) </span>= brr，这语句显示表达式错误啊？

lsc900707

yjm0809 发表于 2018-7-30 10:03
Range("a8:d" & Cells(Rows.Count, 1).End(3).Row) = brr，这语句显示表达式错误啊？

Range("a8:d" & Cells(Rows.Count, 1).End(3).Row) = brr

yjm0809

感谢你的支持，谢谢